?? module1.bas
字號:
Attribute VB_Name = "Module1"
Option Explicit
Public g_strAppPath As String
Sub Main()
g_strAppPath = IIf(Right(App.Path, "1") = "\", App.Path, App.Path & "\")
mFrm_Main.Show
End Sub
Public Sub ErrInfo(Optional tmpstr As String = "")
If tmpstr <> "" Then
Call MsgBox(tmpstr, vbExclamation, App.EXEName)
Else
Call MsgBox(Err.Number & ":" & Err.Description & " ", vbExclamation, App.EXEName)
End If
End Sub
Public Function ListFind(List As Object, mText As String, Optional FindList As Boolean = False) As Integer
With List
If Not FindList Then
If Val(mText) = 0 And mText <> "0" Then
For ListFind = 0 To .ListCount - 1
If .List(ListFind) = mText Then Exit For
Next
Else
For ListFind = 0 To .ListCount - 1
If .ItemData(ListFind) = Val(mText) Then Exit For
Next
End If
Else
For ListFind = 0 To .ListCount - 1
If .ItemData(ListFind) = Val(mText) Then Exit For
Next
End If
If ListFind = .ListCount Then ListFind = -1
End With
End Function
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -