?? mdlpublic.bas
字號:
Attribute VB_Name = "MdlPublic"
Option Explicit
Public Const AwokeInfo = "世紀行智能巡檢管理系統(tǒng)5.0"
Public Msg As String
Public Flag_CardCheck As Integer '刷卡類型
Public Flag_Sound As Boolean
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'用于測試鍵盤事件,用法如下 if GetAsyncKeyState(vbkeya )<>0 then........
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'如果近來的是Null,返回的值是空串
Public Function TestNull(InText As Variant) As String
TestNull = IIf(IsNull(InText), "", InText)
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -