awxb04module.bas

VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB

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