module1.vb

Visual.Basic.NET实用编程百例-47.6M.zip

Module Module1
    Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
    'hwnd为窗口句柄
    'nIndex指示要获得窗口哪方面的特征
    'nIndex参数可以为下列常量之一：
    'GWL_EXSTYLE
    'GWL_HINSTANCE
    'GWL_HWNDPARENT
    'GWL_ID
    'GWL_STYLE
    'GWL_WNDPROC
    'GWL_USERDATA
    '---------------------------------------------
    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    'hwnd为要设置特征的窗口的句柄
    'nIndex指示要设置窗口哪方面特征
    'dwNewLong为表示窗口信息的一个Long类型数值
    '---------------------------------------------
    Public Const GWL_STYLE As Short = (-16)
    Public Const WS_CAPTION As Integer = &HC00000
    Public Const WS_MAXIMIZEBOX As Integer = &H10000
    Public Const WS_MINIMIZEBOX As Integer = &H20000
    Public Const WS_SYSMENU As Integer = &H80000
    '声明SetWindowLong和GetWindowLong函数将要使用的常量
    '---------------------------------------------

    Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

    Public Enum ESetWindowPosStyles
        SWP_SHOWWINDOW = &H40S
        SWP_HIDEWINDOW = &H80S
        SWP_FRAMECHANGED = &H20S
        SWP_NOACTIVATE = &H10S
        SWP_NOCOPYBITS = &H100S
        SWP_NOMOVE = &H2S
        SWP_NOOWNERZORDER = &H200S
        SWP_NOREDRAW = &H8S
        SWP_NOREPOSITION = ESetWindowPosStyles.SWP_NOOWNERZORDER
        SWP_NOSIZE = &H1S
        SWP_NOZORDER = &H4S
        SWP_DRAWFRAME = ESetWindowPosStyles.SWP_FRAMECHANGED
        HWND_NOTOPMOST = -2
    End Enum
    Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Integer, ByRef lpRect As RECT) As Integer
    'GetWindowRect函数获得整个窗口的范围矩形
    '窗口的边框、标题栏、滚动条及菜单等都在这个矩形内
    'hWnd参数为Long型，要获得范围矩形的窗口的句柄
    'lpRect参数为RECT结构，屏幕坐标中随同窗口装载的矩形
    Public Structure RECT
        Dim Left_Renamed As Integer
        Dim Top As Integer
        Dim Right_Renamed As Integer
        Dim Bottom As Integer
    End Structure
End Module