win32api

来自「用ＶＢ编写的接收卫星接收机的是数据」· 代码 · 共 19 行

Attribute VB_Name = "Win32API和常数"
' Very Important Variable marked is there any Work Processing
Public g_blWorking As Boolean

' Max device count the Ezusb.sys supports
Public Const MAX_USB_DEV_NUMBER = 32

' Is used to Control picEdit is Show/Hide
Public g_blBtnClicked As Boolean

Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)