moddeclares.bas

VB下开发Windows XP风格的控件

Public Const TA_RIGHT As Long = 2
Public Const TA_CENTER As Long = 6

Public Const LF_FACESIZE As Long = 32

Public Const STRETCH_HALFTONE As Long = 4
Public Const STRETCH_DELETESCANS As Long = 3
Public Const STRETCH_ORSCANS As Long = 2
Public Const STRETCHBLTC As Long = 2048

Public Const DST_COMPLEX As Long = &H0
Public Const DST_TEXT As Long = &H1
Public Const DST_PREFIXTEXT As Long = &H2
Public Const DST_ICON As Long = &H3
Public Const DST_BITMAP As Long = &H4
' DrawText
Public Const DT_CALCRECT As Long = &H400
Public Const DT_LEFT As Long = &H0
Public Const DT_CENTER As Long = &H1
Public Const DT_RIGHT As Long = &H2
Public Const DT_VCENTER As Long = &H4
Public Const DT_SINGLELINE As Long = &H20
' State type

Public Const DSS_NORMAL As Long = &H0
Public Const DSS_UNION As Long = &H10         ' Gray string appearance '
Public Const DSS_DISABLED As Long = &H20
Public Const DSS_MONO As Long = &H80
Public Const DSS_RIGHT As Long = &H8000

Public Const MM_HIMETRIC As Long = 3
Public Const MM_TEXT As Long = 1
Public Const MM_TWIPS As Long = 6

' fMask flags

Public Const MIIM_STATE As Long = &H1
Public Const MIIM_ID As Long = &H2
Public Const MIIM_SUBMENU As Long = &H4
Public Const MIIM_CHECKMARKS As Long = &H8
Public Const MIIM_TYPE As Long = &H10
Public Const MIIM_DATA As Long = &H20

' New for Windows 98/2000

Public Const MIIM_STRING As Long = &H40
Public Const MIIM_BITMAP As Long = &H80
Public Const MIIM_FTYPE As Long = &H100

' End fMask flags

' Menu Flags

Public Const MF_INSERT As Long = &H0
Public Const MF_CHANGE As Long = &H80
Public Const MF_APPEND As Long = &H100
Public Const MF_DELETE As Long = &H200
Public Const MF_REMOVE As Long = &H1000
Public Const MF_BYCOMMAND As Long = &H0
Public Const MF_SEPARATOR As Long = &H800
Public Const MF_ENABLED As Long = &H0
Public Const MF_GRAYED As Long = &H1
Public Const MF_DISABLED As Long = &H2
Public Const MF_UNCHECKED As Long = &H0
Public Const MF_CHECKED As Long = &H8
Public Const MF_USECHECKBITMAPS As Long = &H200
Public Const MF_STRING As Long = &H0
Public Const MF_BITMAP As Long = &H4
Public Const MF_POPUP As Long = &H10
Public Const MF_MENUBARBREAK As Long = &H20
Public Const MF_MENUBREAK As Long = &H40
Public Const MF_UNHILITE As Long = &H0
Public Const MF_HILITE As Long = &H80
Public Const MF_DEFAULT As Long = &H1000
Public Const MF_SYSMENU As Long = &H2000
Public Const MF_HELP As Long = &H4000
Public Const MF_RIGHTJUSTIFY As Long = &H4000
Public Const MF_MOUSESELECT As Long = &H8000
Public Const MF_END As Long = &H80                    ' Obsolete -- only used by old RES files
Public Const MFT_STRING As Long = MF_STRING
Public Const MFT_BITMAP As Long = MF_BITMAP
Public Const MFT_MENUBARBREAK As Long = MF_MENUBARBREAK
Public Const MFT_MENUBREAK As Long = MF_MENUBREAK
Public Const MFT_OWNERDRAW As Long = MF_OWNERDRAW
Public Const MFT_RADIOGROUP As Long = &H200
Public Const MFT_SEPARATOR As Long = MF_SEPARATOR
Public Const MFT_RIGHTORDER As Long = &H2000
Public Const MFT_RIGHTJUSTIFY As Long = MF_RIGHTJUSTIFY

Public Const MFS_GRAYED As Long = &H3
Public Const MFS_DISABLED As Long = MFS_GRAYED
Public Const MFS_CHECKED As Long = MF_CHECKED
Public Const MFS_HILITE As Long = MF_HILITE
Public Const MFS_ENABLED As Long = MF_ENABLED
Public Const MFS_UNCHECKED As Long = MF_UNCHECKED
Public Const MFS_UNHILITE As Long = MF_UNHILITE
Public Const MFS_DEFAULT As Long = MF_DEFAULT

' New for Windows 2000/98

Public Const MFS_MASK As Long = &H108B
Public Const MFS_HOTTRACKDRAWN As Long = &H10000000
Public Const MFS_CACHEDBMP As Long = &H20000000
Public Const MFS_BOTTOMGAPDROP As Long = &H40000000
Public Const MFS_TOPGAPDROP As Long = &H80000000
Public Const MFS_GAPDROP As Long = &HC0000000

' for the SetMenuInfo API function

Public Const MNS_NOCHECK As Long = &H80000000
Public Const MNS_MODELESS As Long = &H40000000
Public Const MNS_DRAGDROP As Long = &H20000000
Public Const MNS_AUTODISMISS As Long = &H10000000
Public Const MNS_NOTIFYBYPOS As Long = &H8000000
Public Const MNS_CHECKORBMP As Long = &H4000000

Public Const MIM_MAXHEIGHT As Long = &H1
Public Const MIM_BACKGROUND As Long = &H2
Public Const MIM_HELPID As Long = &H4
Public Const MIM_MENUDATA As Long = &H8
Public Const MIM_STYLE As Long = &H10
Public Const MIM_APPLYTOSUBMENUS As Long = &H80000000

' External interface to the Default state property

' Shell_NotifyIcon features for Windows NT 5.0 (Windows 2000)

Public Const NIN_SELECT As Long = (WM_USER + 0)
Public Const NINF_KEY As Long = &H1
Public Const NIN_KEYSELECT As Long = (NIN_SELECT + NINF_KEY)
Public Const NIM_SETFOCUS As Long = &H3
Public Const NIM_SETVERSION As Long = &H4
Public Const NOTIFYICON_VERSION As Long = 3
Public Const NIF_STATE As Long = &H8
Public Const NIF_INFO As Long = &H10

Public Const NIS_HIDDEN As Long = &H1
Public Const NIS_SHAREDICON As Long = &H2

' Regular NotifyIcon Features for Windows 95/98/NT

Public Const NIM_ADD As Long = &H0
Public Const NIM_MODIFY As Long = &H1
Public Const NIM_DELETE As Long = &H2

Public Const NIF_MESSAGE As Long = &H1
Public Const NIF_ICON As Long = &H2
Public Const NIF_TIP As Long = &H4

' Notify Icon Infotip flags

Public Const NIIF_NONE As Long = &H0

' icon flags are mutually exclusive
' and take only the lowest 2 bits

' Notify Icon Balloon Icon constants

Public Const NIIF_INFO As Long = &H1
Public Const NIIF_WARNING As Long = &H2
Public Const NIIF_ERROR As Long = &H3

Public Const IMAGE_BITMAP As Long = 0
Public Const IMAGE_ICON As Long = 1
Public Const IMAGE_CURSOR As Long = 2
Public Const IMAGE_ENHMETAFILE As Long = 3

Public Const LR_DEFAULTCOLOR As Long = &H0
Public Const LR_MONOCHROME As Long = &H1
Public Const LR_COLOR As Long = &H2
Public Const LR_COPYRETURNORG As Long = &H4
Public Const LR_COPYDELETEORG As Long = &H8
Public Const LR_LOADFROMFILE As Long = &H10
Public Const LR_LOADTRANSPARENT As Long = &H20
Public Const LR_DEFAULTSIZE As Long = &H40
Public Const LR_VGACOLOR As Long = &H80
Public Const LR_LOADMAP3DCOLORS As Long = &H1000
Public Const LR_CREATEDIBSECTION As Long = &H2000
Public Const LR_COPYFROMRESOURCE As Long = &H4000
Public Const LR_SHARED As Long = &H8000

Public Const OBJ_BITMAP As Long = 7
Public Const OBJ_BRUSH As Long = 2
Public Const OBJ_DC As Long = 3
Public Const OBJ_ENHMETADC As Long = 12
Public Const OBJ_ENHMETAFILE As Long = 13
Public Const OBJ_EXTPEN As Long = 11
Public Const OBJ_FONT As Long = 6
Public Const OBJ_MEMDC As Long = 10
Public Const OBJ_METADC As Long = 4
Public Const OBJ_METAFILE As Long = 9
Public Const OBJ_PAL As Long = 5
Public Const OBJ_PEN As Long = 1
Public Const OBJ_REGION As Long = 8

Public Const GRADIENT_FILL_RECT_H As Long = &H0
Public Const GRADIENT_FILL_RECT_V As Long = &H1
Public Const GRADIENT_FILL_TRIANGLE As Long = &H2
Public Const GRADIENT_FILL_OP_FLAG As Long = &HFF

' Hatch brush constants

Public Const BS_HATCHED As Long = 2

Public Const HS_BDIAGONAL As Long = 3
Public Const HS_BDIAGONAL1 As Long = 7
Public Const HS_CROSS As Long = 4
Public Const HS_DIAGCROSS As Long = 5
Public Const HS_DITHEREDBKCLR As Long = 24
Public Const HS_DITHEREDCLR As Long = 20
Public Const HS_DITHEREDTEXTCLR As Long = 22
Public Const HS_FDIAGONAL As Long = 2
Public Const HS_FDIAGONAL1 As Long = 6
Public Const HS_HALFTONE As Long = 18
Public Const HS_HORIZONTAL As Long = 0
Public Const HS_NOSHADE As Long = 17
Public Const HS_SOLID As Long = 8
Public Const HS_SOLIDBKCLR As Long = 23
Public Const HS_SOLIDCLR As Long = 19
Public Const HS_SOLIDTEXTCLR As Long = 21
Public Const HS_VERTICAL As Long = 1

' Pen Styles

Public Const PS_ALTERNATE As Long = 8
Public Const PS_COSMETIC As Long = &H0
Public Const PS_DASH As Long = 1
Public Const PS_DASHDOT As Long = 3
Public Const PS_DASHDOTDOT As Long = 4
Public Const PS_DOT As Long = 2
Public Const PS_INSIDEFRAME As Long = 6
Public Const PS_NULL As Long = 5

Public Const PS_GEOMETRIC As Long = &H10000

' GetDeviceCaps parameters

Public Const LOGPIXELSX As Long = 88
Public Const LOGPIXELSY As Long = 90

' System Parameters info constants (to retrieve the current non-client font)

Public Const SPI_SETNONCLIENTMETRICS As Long = 42
Public Const SPI_GETNONCLIENTMETRICS As Long = 41

'''''''''''''''''''''''''''''''''''''''''' TYPES

' 2000+ GetVersionEx structure

Public Type OSVERSIONINFOEX
    OSVersionInfoSize As Long
    MajorVersion As Long
    MinorVersion As Long
    BuildNumber As Long
    PlatformId As Long
    CSDVersion As String * 128
    ServicePackMajor As Integer
    ServicePackMinor As Integer
    Reserved(0 To 1) As Integer
End Type

' Windows version constants enumerated (100 * Maj) + Min method

Public Enum WindowsVersionConstants
    Windows95 = 400
    WindowsNT = 400
    Windows98 = 410
    WindowsME = 490
    Windows2000 = 500
End Enum

' Old NotifyIconData

Public Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long
    uId As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type

' NotifyIconData for Window NT 5.0 (Windows 2000)

Public Type NOTIFYICONDATA5
    cbSize As Long
    hWnd As Long
    uId As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 128
    dwState As Long
    dwStateMask As Long
    szInfo As String * 256
    uVersion As Long
    szInfoTitle As String * 64
    dwInfoFlags As Long
End Type

' Point structures for scale widths and heights

Public Type POINTAPI
    X As Long
    Y As Long
End Type

' Structure for the WM_DRAWITEM message

' Structure for the WM_MEASUREITEMSTRUCT

' CreateBrushIndirect Brush structure

Public Type LOGBRUSH
    lbStyle As Long
    lbColor As Long
    lbHatch As Long
End Type

' CreatePenIndirect Pen structure

Public Type LOGPEN
    lopnStyle As Long
    lopnWidth As POINTAPI
    lopnColor As Long
End Type

' Menu event records

Public Type MENU_EVENT_RECORD
    dwCommandId As Long
End Type

' Menu item info for 95-2000

Public Type MENUITEMINFOSTRING
    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

    ' Declared for Windows 2000/98.  Still backward compatible

    hbmpItem As Long
End Type

' Item template

Public Type MENUITEMTEMPLATE
    mtOption As Integer
    mtID As Integer
    mtString As Byte
End Type

' Template header

Public Type MENUITEMTEMPLATEHEADER