apicall.bas

本人收藏的用VB编写的游戏程序,希望对大家有帮助,

Attribute VB_Name = "Module1"
'Public Const NIF_ICON = &H2
'Public Const NIF_TIP = &H4
'Public Const WM_MOUSEMOVE = &H200
'Public Const WM_LBUTTONDBLCLK = &H203
'Public Const WM_LBUTTONDOWN = &H201
'Public Const WM_LBUTTONUP = &H202
'Public Const WM_RBUTTONDBLCLK = &H206
'Public Const WM_RBUTTONDOWN = &H204
'Public Const WM_RBUTTONUP = &H205
''Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, ByRef pnid As NOTIFYICONDATA) As Boolean
'Global nid As NOTIFYICONDATA

'建立椭圆窗体及设置窗体优先位置函数
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
'Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'无标题拖动需调用函数
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const WM_NCHITTEST = &H84  '无标题拖动参数
Public Const HTCAPTION = 2
Public Const HTCLIENT = 1
Public Const GWL_WNDPROC = (-4)
Public PROROC As Long


Function WindowProc(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Dim rv As Long
   
      If msg = WM_NCHITTEST Then
        rv = DefWindowProc(hwnd, msg, wParam, lParam)
        If rv = HTCLIENT Then
          WindowProc = HTCAPTION
        Else
          WindowProc = rv
        End If
       '将其他的消息传给默认的窗口函数进行处理
      Else
        WindowProc = CallWindowProc(PROROC, hwnd, msg, wParam, lParam)
      End If
      
End Function