modapideclares.bas

很好的教程原代码！

Attribute VB_Name = "modAPIDeclares"
Option Explicit

Public Const PM_REMOVE = &H1
' 鼠标相关消息
Public Const WM_MOUSEFIRST = &H200
Public Const WM_MOUSELAST = &H209
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Public Const WM_LBUTTONUP = &H202
Public Const WM_MOUSEMOVE = &H200

' BitBlt 函数常量
Public Const SRCCOPY = &HCC0020
Public Const SRCINVERT = &H660046

' PatBlt 函数常量
Public Const DINV = 3
Public Const DSTINVERT = &H550009

Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Type POINTAPI
        x As Long
        y As Long
End Type

Type Size
        cx As Long
        cy As Long
End Type

Type msg
    hwnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type

'Windows 关于消息的函数
Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" _
    (lpMsg As msg, ByVal hwnd As Long, _
    ByVal wMsgFilterMin As Long, _
    ByVal wMsgFilterMax As Long, _
    ByVal wRemoveMsg As Long _
    ) As Long
Declare Function WaitMessage Lib "user32" () As Long

Declare Function TranslateMessage Lib "user32" (lpMsg As msg) As Long

Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" _
    (lpMsg As msg) As Long

Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long _
    ) As Long

'鼠标捕捉函数
Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long

Declare Function ReleaseCapture Lib "user32" () As Long

Declare Function GetCapture Lib "user32" () As Long

Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Declare Function DeleteObject Lib "gdi32" _
    (ByVal hObject As Long) As Long

Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" _
    (ByVal hdc As Long, _
    ByVal lpszString As String, _
    ByVal cbString As Long, _
    lpSize As Size _
    ) As Long

Declare Function IsRectEmpty Lib "user32" (lpRect As RECT) As Long

Declare Function PatBlt Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal x As Long, ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal dwRop As Long _
    ) As Long

Declare Function Rectangle Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal X1 As Long, ByVal Y1 As Long, _
    ByVal X2 As Long, ByVal Y2 As Long _
    ) As Long

Declare Function ScreenToClient Lib "user32" _
    (ByVal hwnd As Long, _
    lpPoint As POINTAPI _
    ) As Long

Declare Function SelectObject Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal hObject As Long _
    ) As Long

Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
    (ByVal hdc As Long, _
    ByVal x As Long, ByVal y As Long, _
    ByVal lpString As String, _
    ByVal nCount As Long _
    ) As Long

Declare Function SetTextColor Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal crColor As Long _
    ) As Long

Declare Function SetBkColor Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal crColor As Long _
    ) As Long

Declare Function SetForegroundWindow Lib "user32" _
    (ByVal hwnd As Long) As Long

Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long

Declare Function WindowFromPoint Lib "user32" _
    (ByVal xPoint As Long, _
    ByVal yPoint As Long _
    ) As Long

Declare Function BitBlt Lib "gdi32" _
    (ByVal hDestDC As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal hSrcDC As Long, _
    ByVal xSrc As Long, _
    ByVal ySrc As Long, _
    ByVal dwRop As Long _
    ) As Long

Declare Function CreateDCNull Lib "gdi32" Alias "CreateDCA" _
    (ByVal lpDriverName As String, _
    ByVal lpDeviceName As String, _
    ByVal lpOutput As String, _
    ByVal lpInitData As Long _
    ) As Long

Declare Function ReleaseDC Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal hdc As Long _
    ) As Long

Declare Function GetDeviceCaps Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal nIndex As Long _
    ) As Long

Declare Function CreateBitmap Lib "gdi32" _
    (ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal nPlanes As Long, _
    ByVal nBitCount As Long, _
    lpBits As Any _
    ) As Long

Declare Function ClientToScreen Lib "user32" _
    (ByVal hwnd As Long, _
    lpPoint As POINTAPI _
    ) As Long

Declare Function CreateCompatibleDC Lib "gdi32" _
    (ByVal hdc As Long) As Long

Declare Function OpenClipboard Lib "user32" _
    (ByVal hwnd As Long) As Long
 
Declare Function EmptyClipboard Lib "user32" () As Long

Declare Function SetClipboardData Lib "user32" _
    (ByVal wFormat As Long, _
    ByVal hMem As Long _
    ) As Long
 
Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" _
    (ByVal lpDriverName As String, _
    ByVal lpDeviceName As String, _
    ByVal lpOutput As String, _
    lpInitData As Long _
    ) As Long

Declare Function CreateCompatibleBitmap Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long _
    ) As Long
 
Declare Function CloseClipboard Lib "user32" () As Long