www.pudn.com > Visual_Basic_6.0.RAR > Module1.bas, change:2003-12-18,size:2254b

Attribute VB_Name = "Module1" 
Public Declare Function GetWindowLong _ 
Lib "user32" Alias "GetWindowLongA" _ 
( _ 
    ByVal hWnd As Long, ByVal nIndex As Long _ 
 ) As Long 
'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 Long, ByVal nIndex As Long, _ 
    ByVal dwNewLong As Long _ 
 ) As Long 
'hwnd为要设置特征的窗口的句柄 
'nIndex指示要设置窗口哪方面特征 
'dwNewLong为表示窗口信息的一个Long类型数值 
'--------------------------------------------- 
Public Const GWL_STYLE = (-16) 
Public Const WS_CAPTION = &HC00000 
Public Const WS_MAXIMIZEBOX = &H10000 
Public Const WS_MINIMIZEBOX = &H20000 
Public Const WS_SYSMENU = &H80000 
'声明SetWindowLong和GetWindowLong函数将要使用的常量 
'--------------------------------------------- 
 
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 Enum ESetWindowPosStyles 
    SWP_SHOWWINDOW = &H40 
    SWP_HIDEWINDOW = &H80 
    SWP_FRAMECHANGED = &H20 
    'The frame changed: send WM_NCCALCSIZE 
    SWP_NOACTIVATE = &H10 
    SWP_NOCOPYBITS = &H100 
    SWP_NOMOVE = &H2 
    SWP_NOOWNERZORDER = &H200 
    'Don't do owner Z ordering 
    SWP_NOREDRAW = &H8 
    SWP_NOREPOSITION = SWP_NOOWNERZORDER 
    SWP_NOSIZE = &H1 
    SWP_NOZORDER = &H4 
    SWP_DRAWFRAME = SWP_FRAMECHANGED 
    HWND_NOTOPMOST = -2 
End Enum 
'--------------------------------------------- 
Public Declare Function GetWindowRect Lib "user32" _ 
( _ 
    ByVal hWnd As Long, lpRect As RECT _ 
    ) As Long 
'GetWindowRect函数获得整个窗口的范围矩形 
'窗口的边框、标题栏、滚动条及菜单等都在这个矩形内 
'hWnd参数为Long型，要获得范围矩形的窗口的句柄 
'lpRect参数为RECT结构，屏幕坐标中随同窗口装载的矩形 
    
Public Type RECT 
    Left As Long 
    Top As Long 
    Right As Long 
    Bottom As Long 
End Type 
'---------------------------------------------