?? awxb04module.bas
字號:
Attribute VB_Name = "AWXB04Module"
Option Explicit
Public Type POINTAPI
x As Long
y As Long
End Type
Public Type MSG
hWnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Global gstrThreadID As String
Global glngTimerHandle As Long
Public Sub MyTimerProc(ByVal hWnd As Long, _
ByVal uMsg As Long, _
ByVal idEvent As Long, _
ByVal dwTime As Long)
Dim objX As AWXB01Thread.AWXB01
KillTimer 0, glngTimerHandle
Set objX = New AWXB01Thread.AWXB01
objX.Show gstrThreadID
Set objX = Nothing
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -