moddeclares.bas

VB下开发Windows XP风格的控件

Attribute VB_Name = "modDeclares"
Option Explicit

Public Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Public Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

Public Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function DrawFocusRect Lib "user32" (ByVal hDC As Long, lpRect As RECT) As Long
Public Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function RedrawWindow Lib "user32" (ByVal hWnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Public Declare Function WindowFromDC Lib "user32" (ByVal hDC As Long) As Long
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Public Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hWnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
Public Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal Handle As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long
Public Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Public Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Public Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex 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 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 Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long
'Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Public Const HTCAPTION As Long = 2
Public Const WM_NCLBUTTONDBLCLK As Long = &HA3
Public Const WM_LBUTTONDBLCLK As Long = &H203
Public Const MF_OWNERDRAW As Long = &H100
Public Const MF_BYPOSITION As Long = &H400
Public Const GWL_WNDPROC As Long = (-4)
Public Const WM_DRAWITEM As Long = &H2B
Public Const WM_MEASUREITEM As Long = &H2C
Public Const WM_COMMAND As Long = &H111

Public Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type

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

Public Type MEASUREITEMSTRUCT
    CtlType As Long
    CtlID As Long
    ItemId As Long
    itemWidth As Long
    itemHeight As Long
    itemData As Long
End Type

Public Type DRAWITEMSTRUCT
    CtlType As Long
    CtlID As Long
    ItemId As Long
    ItemAction As Long
    ItemState As Long
    hwndItem As Long
    hDC As Long
    rcItem As RECT
    itemData As Long
End Type

'text measurement functions/structures
Public Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hDC As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As Size) As Long
Public Type Size
    cx As Long
    cy As Long
End Type

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Public Const WS_OVERLAPPED As Long = &H0
Public Const WS_POPUP  As Long = &H80000000
Public Const WS_CHILD  As Long = &H40000000
Public Const WS_MINIMIZE As Long = &H20000000
Public Const WS_VISIBLE  As Long = &H10000000
Public Const WS_DISABLED  As Long = &H8000000
Public Const WS_CLIPSIBLINGS As Long = &H4000000
Public Const WS_CLIPCHILDREN As Long = &H2000000
Public Const WS_MAXIMIZE  As Long = &H1000000
Public Const WS_CAPTION  As Long = &HC00000   ' WS_BORDER + WS_DLGFRAME  '
Public Const WS_BORDER  As Long = &H800000
Public Const WS_DLGFRAME As Long = &H400000
Public Const WS_VSCROL As Long = &H200000
Public Const WS_HSCROL As Long = &H100000
Public Const WS_SYSMENU  As Long = &H80000
Public Const WS_THICKFRAME  As Long = &H40000
Public Const WS_GROUP  As Long = &H20000
Public Const WS_TABSTOP As Long = &H10000
Public Const WS_MINIMIZEBOX As Long = &H20000
Public Const WS_MAXIMIZEBOX As Long = &H10000
Public Const WS_TILED As Long = WS_OVERLAPPED
Public Const WS_ICONIC As Long = WS_MINIMIZE
Public Const WS_SIZEBOX As Long = WS_THICKFRAME

' Window Styles 2

Public Const WS_OVERLAPPEDWINDOW  As Long = (WS_OVERLAPPED + _
              WS_CAPTION + _
              WS_SYSMENU + _
              WS_THICKFRAME + _
              WS_MINIMIZEBOX + _
              WS_MAXIMIZEBOX)

Public Const WS_POPUPWINDOW  As Long = (WS_POPUP + _
              WS_BORDER + _
              WS_SYSMENU)

Public Const WS_CHILDWINDOW As Long = (WS_CHILD)
Public Const WS_TILEDWINDOW As Long = WS_OVERLAPPEDWINDOW
'
' Extended Window Styles
'
Public Const WS_EX_DLGMODALFRAME As Long = &H1
Public Const WS_EX_NOPARENTNOTIFY As Long = &H4
Public Const WS_EX_TOPMOST  As Long = &H8
Public Const WS_EX_ACCEPTFILES  As Long = &H10
Public Const WS_EX_TRANSPARENT  As Long = &H20
Public Const WS_EX_MDICHILD  As Long = &H40
Public Const WS_EX_TOOLWINDOW As Long = &H80
Public Const WS_EX_WINDOWEDGE  As Long = &H100
Public Const WS_EX_CLIENTEDGE As Long = &H200
Public Const WS_EX_CONTEXTHELP As Long = &H400
Public Const WS_EX_RIGHT As Long = &H1000
Public Const WS_EX_LEFT  As Long = &H0
Public Const WS_EX_RTLREADING  As Long = &H2000
Public Const WS_EX_LTRREADING  As Long = &H0
Public Const WS_EX_LEFTSCROLLBAR As Long = &H4000
Public Const WS_EX_RIGHTSCROLLBAR  As Long = &H0
Public Const WS_EX_CONTROLPARENT  As Long = &H10000
Public Const WS_EX_STATICEDGE  As Long = &H20000
Public Const WS_EX_APPWINDOW As Long = &H40000
Public Const WS_EX_OVERLAPPEDWINDOW As Long = (WS_EX_WINDOWEDGE + WS_EX_CLIENTEDGE)
Public Const WS_EX_PALETTEWINDOW As Long = (WS_EX_WINDOWEDGE + WS_EX_TOOLWINDOW + WS_EX_TOPMOST)

' Windows 5.0 (2000/Millenium)

Public Const WS_EX_LAYERED As Long = &H80000
Public Const WS_EX_NOINHERITLAYOUT  As Long = &H100000    ' Disable inheritence of mirroring by children
Public Const WS_EX_LAYOUTRTL  As Long = &H400000          ' Right to left mirroring

' Windows NT 5.0 (Windows 2000) only
Public Const WS_EX_NOACTIVATE = &H8000000

' Class styles

Public Const CS_VREDRAW  As Long = &H1
Public Const CS_HREDRAW  As Long = &H2
Public Const CS_DBLCLKS As Long = &H8
Public Const CS_OWNDC  As Long = &H20
Public Const CS_CLASSDC As Long = &H40
Public Const CS_PARENTDC  As Long = &H80
Public Const CS_NOCLOSE As Long = &H200
Public Const CS_SAVEBITS As Long = &H800
Public Const CS_BYTEALIGNCLIENT  As Long = &H1000
Public Const CS_BYTEALIGNWINDOW  As Long = &H2000
Public Const CS_GLOBALCLASS  As Long = &H4000
Public Const CS_IME As Long = &H10000

' Owner-drawn actions

Public Const ODA_DRAWENTIRE As Long = &H1
Public Const ODA_FOCUS  As Long = &H4
Public Const ODA_SELECT As Long = &H2

' Owner-drawn states

Public Const ODS_CHECKED  As Long = &H8
Public Const ODS_DISABLED As Long = &H4
Public Const ODS_FOCUS  As Long = &H10
Public Const ODS_GRAYED As Long = &H2
Public Const ODS_SELECTED  As Long = &H1
Public Const ODS_DEFAULT  As Long = &H20
Public Const ODS_HOTLIGHT  As Long = &H40
Public Const ODS_NOACCEL As Long = &H100

' Owner-drawn menu type

Public Const ODT_MENU  As Long = 1

' Window Messages

Public Const HTBORDER  As Long = 18
Public Const HTBOTTOM As Long = 15
Public Const HTBOTTOMLEFT  As Long = 16
Public Const HTBOTTOMRIGHT As Long = 17
Public Const HTCLIENT  As Long = 1
Public Const HTERROR  As Long = (-2)
Public Const HTGROWBOX As Long = 4
Public Const HTHSCROLL As Long = 6
Public Const HTLEFT  As Long = 10
Public Const HTMAXBUTTON As Long = 9
Public Const HTMENU  As Long = 5
Public Const HTMINBUTTON  As Long = 8
Public Const HTNOWHERE  As Long = 0

Public Const WM_NCMOUSEMOVE  As Long = &HA0
Public Const WM_NCHITTEST  As Long = &H84
Public Const WM_MENUCHAR  As Long = &H120
Public Const WM_MENUSELECT  As Long = &H11F
Public Const WM_USER As Long = &H400
Public Const WM_RBUTTONDBLCLK As Long = &H206
Public Const WM_RBUTTONDOWN As Long = &H204
Public Const WM_RBUTTONUP As Long = &H205
Public Const WM_MOUSEMOVE As Long = &H200
Public Const WM_MBUTTONUP As Long = &H208
Public Const WM_MBUTTONDOWN As Long = &H207
Public Const WM_MBUTTONDBLCLK As Long = &H209
Public Const WM_LBUTTONUP As Long = &H202
Public Const WM_LBUTTONDOWN As Long = &H201
Public Const WM_CONTEXTMENU As Long = &H7B
Public Const WM_TIMER As Long = &H113
Public Const WM_SYSCHAR As Long = &H106
Public Const WM_SYSKEYDOWN As Long = &H104
Public Const WM_SYSKEYUP As Long = &H105
Public Const WM_SYSCOMMAND As Long = &H112
Public Const WM_KEYUP As Long = &H101
Public Const WM_KEYLAST As Long = &H108
Public Const WM_KEYDOWN As Long = &H100
Public Const WM_KEYFIRST As Long = &H100
Public Const WM_ACTIVATE As Long = &H6
Public Const WM_SETTEXT As Long = &HC

' Multiple Document Interface Window Messages

Public Const WM_MDIACTIVATE As Long = &H222
Public Const WM_MDICASCADE As Long = &H227
Public Const WM_MDICREATE As Long = &H220
Public Const WM_MDIDESTROY As Long = &H221
Public Const WM_MDIGETACTIVE As Long = &H229
Public Const WM_MDIICONARRANGE As Long = &H228
Public Const WM_MDIMAXIMIZE As Long = &H225
Public Const WM_MDINEXT As Long = &H224
Public Const WM_MDIREFRESHMENU As Long = &H234
Public Const WM_MDIRESTORE As Long = &H223
Public Const WM_MDISETMENU As Long = &H230
Public Const WM_MDITILE As Long = &H226

Public Const MNC_IGNORE As Long = 0
Public Const MNC_CLOSE As Long = (1 * &H10000)
Public Const MNC_EXECUTE As Long = (2 * &H10000)
Public Const MNC_SELECT As Long = (3 * &H10000)

Public Const FALT As Long = &H10
Public Const FCONTROL As Long = &H8
Public Const FNOINVERT As Long = &H2
Public Const FSHIFT As Long = &H4

Public Const NIF_CUSTOM_MSG As Long = (WM_USER + &H108)

Public Const BDR_INNER As Long = &HC
Public Const BDR_OUTER As Long = &H3
Public Const BDR_RAISED As Long = &H5
Public Const BDR_RAISEDINNER As Long = &H4
Public Const BDR_RAISEDOUTER As Long = &H1
Public Const BDR_SUNKEN As Long = &HA
Public Const BDR_SUNKENINNER As Long = &H8
Public Const BDR_SUNKENOUTER As Long = &H2

Public Const BF_ADJUST As Long = &H2000
Public Const BF_BOTTOM As Long = &H8
Public Const BF_DIAGONAL As Long = &H10
Public Const BF_FLAT As Long = &H4000
Public Const BF_LEFT As Long = &H1
Public Const BF_MIDDLE As Long = &H800
Public Const BF_MONO As Long = &H8000
Public Const BF_RIGHT As Long = &H4
Public Const BF_SOFT As Long = &H1000
Public Const BF_TOP As Long = &H2
Public Const BF_TOPLEFT As Long = (BF_TOP Or BF_LEFT)
Public Const BF_TOPRIGHT As Long = (BF_TOP Or BF_RIGHT)
Public Const BF_RECT As Long = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
Public Const BF_BOTTOMLEFT As Long = (BF_BOTTOM Or BF_LEFT)
Public Const BF_BOTTOMRIGHT As Long = (BF_BOTTOM Or BF_RIGHT)
Public Const BF_DIAGONAL_ENDBOTTOMLEFT As Long = (BF_DIAGONAL Or BF_BOTTOM Or BF_LEFT)
Public Const BF_DIAGONAL_ENDBOTTOMRIGHT As Long = (BF_DIAGONAL Or BF_BOTTOM Or BF_RIGHT)
Public Const BF_DIAGONAL_ENDTOPLEFT As Long = (BF_DIAGONAL Or BF_TOP Or BF_LEFT)
Public Const BF_DIAGONAL_ENDTOPRIGHT As Long = (BF_DIAGONAL Or BF_TOP Or BF_RIGHT)

Public Const EDGE_BUMP As Long = (BDR_RAISEDOUTER Or BDR_SUNKENINNER)
Public Const EDGE_ETCHED As Long = (BDR_SUNKENOUTER Or BDR_RAISEDINNER)
Public Const EDGE_RAISED As Long = (BDR_RAISEDOUTER Or BDR_RAISEDINNER)
Public Const EDGE_SUNKEN As Long = (BDR_SUNKENOUTER Or BDR_SUNKENINNER)

Public Const COLOR_BTNFACE As Long = 15
Public Const COLOR_GRAYTEXT As Long = 17
Public Const COLOR_CAPTIONTEXT As Long = 9
Public Const COLOR_HIGHLIGHT As Long = 13
Public Const COLOR_HIGHLIGHTTEXT As Long = 14
Public Const COLOR_MENU As Long = 4
Public Const COLOR_MENUTEXT As Long = 7
Public Const COLOR_BTNHIGHLIGHT As Long = 20
Public Const COLOR_BTNSHADOW As Long = 16
Public Const COLOR_3DDKSHADOW As Long = 21
Public Const COLOR_3DLIGHT As Long = 22
Public Const COLOR_INFOTEXT As Long = 23
Public Const COLOR_INFOBK As Long = 24
Public Const COLOR_WINDOW As Long = 5

' Windows 98/2000
Public Const COLOR_HOTLIGHT As Long = 26
Public Const COLOR_ACTIVECAPTION As Long = 2
Public Const COLOR_GRADIENTACTIVECAPTION As Long = 27
Public Const COLOR_GRADIENTINACTIVECAPTION As Long = 28

Public Const OPAQUE As Long = 2
Public Const TRANSPARENT As Long = 1

Public Const GWL_STYLE As Long = (-16)
Public Const GWL_EXSTYLE As Long = (-20)

Public Const MENU_HEIGHT As Long = 19

Public Const ICONIC_SQ As Long = 23 'ԭΪ16
Public Const SRCCOPY As Long = &HCC0020

Public Const TA_LEFT As Long = 0