module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 28 行

Module Module1
    Public Structure POINTAPI
        Dim x As Integer
        Dim y As Integer
    End Structure
    '定义POINTAPI类型
    Public Declare Function CreatePolygonRgn Lib "gdi32" (ByRef lpPoint As POINTAPI, _
                                                 ByVal nCOUNT As Integer, _
                                                 ByVal nPolyFillMode As Integer) _
                                                 As Integer
    Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Integer, _
                                                ByVal hRgn As Integer, _
                                                ByVal bRedraw As Boolean) _
                                                As Integer
    Public Declare Function GetActiveWindow Lib "user32" () As Integer
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
                                            ByVal hwnd As IntPtr, _
                                            ByVal wMsg As Integer, _
                                            ByVal wParam As Integer, _
                                            ByVal lParam As Integer) _
                                            As Boolean
    Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Boolean
    Public Const WM_SYSCOMMAND = &H112
    Public Const SC_MOVE = &HF010&
    Public Const HTCAPTION = 2
    '声明API函数
End Module