mapis.bas

AeroSuite--一组非常漂亮的VISTA控件集

Attribute VB_Name = "mDeclares"
Public Const MSM_NCACTIVATE As Long = &H86

Public Enum eMsg
    ALL_MESSAGES = -1&
    WM_NULL = &H0&
    WM_CREATE = &H1&
    WM_DESTROY = &H2&
    WM_MOVE = &H3&
    WM_SIZE = &H5&
    WM_ACTIVATE = &H6&
    WM_SETFOCUS = &H7&
    WM_KILLFOCUS = &H8&
    WM_ENABLE = &HA&
    WM_SETREDRAW = &HB&
    WM_SETTEXT = &HC&
    WM_GETTEXT = &HD&
    WM_GETTEXTLENGTH = &HE&
    WM_PAINT = &HF&
    WM_CLOSE = &H10&
    WM_QUERYENDSESSION = &H11&
    WM_QUIT = &H12&
    WM_QUERYOPEN = &H13&
    WM_ERASEBKGND = &H14&
    WM_SYSCOLORCHANGE = &H15&
    WM_ENDSESSION = &H16&
    WM_SHOWWINDOW = &H18&
    WM_WININICHANGE = &H1A&
    WM_SETTINGCHANGE = &H1A&
    WM_DEVMODECHANGE = &H1B&
    WM_ACTIVATEAPP = &H1C&
    WM_FONTCHANGE = &H1D&
    WM_TIMECHANGE = &H1E&
    WM_CANCELMODE = &H1F&
    WM_SETCURSOR = &H20&
    WM_MOUSEACTIVATE = &H21&
    WM_CHILDACTIVATE = &H22&
    WM_QUEUESYNC = &H23&
    WM_GETMINMAXINFO = &H24&
    WM_PAINTICON = &H26&
    WM_ICONERASEBKGND = &H27&
    WM_NEXTDLGCTL = &H28&
    WM_SPOOLERSTATUS = &H2A&
    WM_DRAWITEM = &H2B&
    WM_MEASUREITEM = &H2C&
    WM_DELETEITEM = &H2D&
    WM_VKEYTOITEM = &H2E&
    WM_CHARTOITEM = &H2F&
    WM_SETFONT = &H30&
    WM_GETFONT = &H31&
    WM_SETHOTKEY = &H32&
    WM_GETHOTKEY = &H33&
    WM_QUERYDRAGICON = &H37&
    WM_COMPAREITEM = &H39&
    WM_GETOBJECT = &H3D&
    WM_COMPACTING = &H41&
    WM_WINDOWPOSCHANGING = &H46&
    WM_WINDOWPOSCHANGED = &H47&
    WM_POWER = &H48&
    WM_COPYDATA = &H4A&
    WM_CANCELJOURNAL = &H4B&
    WM_NOTIFY = &H4E&
    WM_INPUTLANGCHANGEREQUEST = &H50&
    WM_INPUTLANGCHANGE = &H51&
    WM_TCARD = &H52&
    WM_HELP = &H53&
    WM_USERCHANGED = &H54&
    WM_NOTIFYFORMAT = &H55&
    WM_CONTEXTMENU = &H7B&
    WM_STYLECHANGING = &H7C&
    WM_STYLECHANGED = &H7D&
    WM_DISPLAYCHANGE = &H7E&
    WM_GETICON = &H7F&
    WM_SETICON = &H80&
    WM_NCCREATE = &H81&
    WM_NCDESTROY = &H82&
    WM_NCCALCSIZE = &H83&
    WM_NCHITTEST = &H84&
    WM_NCPAINT = &H85&
    WM_NCACTIVATE = &H86&
    WM_GETDLGCODE = &H87&
    WM_SYNCPAINT = &H88&
    WM_NCMOUSEMOVE = &HA0&
    WM_NCLBUTTONDOWN = &HA1&
    WM_NCLBUTTONUP = &HA2&
    WM_NCLBUTTONDBLCLK = &HA3&
    WM_NCRBUTTONDOWN = &HA4&
    WM_NCRBUTTONUP = &HA5&
    WM_NCRBUTTONDBLCLK = &HA6&
    WM_NCMBUTTONDOWN = &HA7&
    WM_NCMBUTTONUP = &HA8&
    WM_NCMBUTTONDBLCLK = &HA9&
    WM_KEYFIRST = &H100&
    WM_KEYDOWN = &H100&
    WM_KEYUP = &H101&
    WM_CHAR = &H102&
    WM_DEADCHAR = &H103&
    WM_SYSKEYDOWN = &H104&
    WM_SYSKEYUP = &H105&
    WM_SYSCHAR = &H106&
    WM_SYSDEADCHAR = &H107&
    WM_KEYLAST = &H108&
    WM_IME_STARTCOMPOSITION = &H10D&
    WM_IME_ENDCOMPOSITION = &H10E&
    WM_IME_COMPOSITION = &H10F&
    WM_IME_KEYLAST = &H10F&
    WM_INITDIALOG = &H110&
    WM_COMMAND = &H111&
    WM_SYSCOMMAND = &H112&
    WM_TIMER = &H113&
    WM_HSCROLL = &H114&
    WM_VSCROLL = &H115&
    WM_INITMENU = &H116&
    WM_INITMENUPOPUP = &H117&
    WM_MENUSELECT = &H11F&
    WM_MENUCHAR = &H120&
    WM_ENTERIDLE = &H121&
    WM_MENURBUTTONUP = &H122&
    WM_MENUDRAG = &H123&
    WM_MENUGETOBJECT = &H124&
    WM_UNINITMENUPOPUP = &H125&
    WM_MENUCOMMAND = &H126&
    WM_CTLCOLORMSGBOX = &H132&
    WM_CTLCOLOREDIT = &H133&
    WM_CTLCOLORLISTBOX = &H134&
    WM_CTLCOLORBTN = &H135&
    WM_CTLCOLORDLG = &H136&
    WM_CTLCOLORSCROLLBAR = &H137&
    WM_CTLCOLORSTATIC = &H138&
    WM_MOUSEFIRST = &H200&
    WM_MOUSEMOVE = &H200&
    WM_LBUTTONDOWN = &H201&
    WM_LBUTTONUP = &H202&
    WM_LBUTTONDBLCLK = &H203&
    WM_RBUTTONDOWN = &H204&
    WM_RBUTTONUP = &H205&
    WM_RBUTTONDBLCLK = &H206&
    WM_MBUTTONDOWN = &H207&
    WM_MBUTTONUP = &H208&
    WM_MBUTTONDBLCLK = &H209&
    WM_MOUSEWHEEL = &H20A&
    WM_PARENTNOTIFY = &H210&
    WM_ENTERMENULOOP = &H211&
    WM_EXITMENULOOP = &H212&
    WM_NEXTMENU = &H213&
    WM_SIZING = &H214&
    WM_CAPTURECHANGED = &H215&
    WM_MOVING = &H216&
    WM_DEVICECHANGE = &H219&
    WM_MDICREATE = &H220&
    WM_MDIDESTROY = &H221&
    WM_MDIACTIVATE = &H222&
    WM_MDIRESTORE = &H223&
    WM_MDINEXT = &H224&
    WM_MDIMAXIMIZE = &H225&
    WM_MDITILE = &H226&
    WM_MDICASCADE = &H227&
    WM_MDIICONARRANGE = &H228&
    WM_MDIGETACTIVE = &H229&
    WM_MDISETMENU = &H230&
    WM_ENTERSIZEMOVE = &H231&
    WM_EXITSIZEMOVE = &H232&
    WM_DROPFILES = &H233&
    WM_MDIREFRESHMENU = &H234&
    WM_IME_SETCONTEXT = &H281&
    WM_IME_NOTIFY = &H282&
    WM_IME_CONTROL = &H283&
    WM_IME_COMPOSITIONFULL = &H284&
    WM_IME_SELECT = &H285&
    WM_IME_CHAR = &H286&
    WM_IME_REQUEST = &H288&
    WM_IME_KEYDOWN = &H290&
    WM_IME_KEYUP = &H291&
    WM_MOUSEHOVER = &H2A1&
    WM_MOUSELEAVE = &H2A3&
    WM_CUT = &H300&
    WM_COPY = &H301&
    WM_PASTE = &H302&
    WM_CLEAR = &H303&
    WM_UNDO = &H304&
    WM_RENDERFORMAT = &H305&
    WM_RENDERALLFORMATS = &H306&
    WM_DESTROYCLIPBOARD = &H307&
    WM_DRAWCLIPBOARD = &H308&
    WM_PAINTCLIPBOARD = &H309&
    WM_VSCROLLCLIPBOARD = &H30A&
    WM_SIZECLIPBOARD = &H30B&
    WM_ASKCBFORMATNAME = &H30C&
    WM_CHANGECBCHAIN = &H30D&
    WM_HSCROLLCLIPBOARD = &H30E&
    WM_QUERYNEWPALETTE = &H30F&
    WM_PALETTEISCHANGING = &H310&
    WM_PALETTECHANGED = &H311&
    WM_HOTKEY = &H312&
    WM_PRINT = &H317&
    WM_PRINTCLIENT = &H318&
    WM_THEMECHANGED = &H31A&
    WM_HANDHELDFIRST = &H358&
    WM_HANDHELDLAST = &H35F&
    WM_AFXFIRST = &H360&
    WM_AFXLAST = &H37F&
    WM_PENWINFIRST = &H380&
    WM_PENWINLAST = &H38F&
    WM_USER = &H400&
    WM_APP = &H8000&
    WM_UPDATEUISTATE = &H128&
    WM_CHANGEUISTATE = &H127&
End Enum

Public Enum ESetWindowPosStyles
    SWP_SHOWWINDOW = &H40
    SWP_HIDEWINDOW = &H80
    SWP_FRAMECHANGED = &H20
    SWP_NOACTIVATE = &H10
    SWP_NOCOPYBITS = &H100
    SWP_NOMOVE = &H2
    SWP_NOOWNERZORDER = &H200
    SWP_NOREDRAW = &H8
    SWP_NOREPOSITION = SWP_NOOWNERZORDER
    SWP_NOSIZE = &H1
    SWP_NOZORDER = &H4
    SWP_DRAWFRAME = SWP_FRAMECHANGED
    hwnd_notopmost = -2
End Enum

Public Const SC_CLOSE           As Long = &HF060
Public Const SC_MAXIMIZE        As Long = &HF030&
Public Const SC_MINIMIZE        As Long = &HF020&
Public Const SC_RESTORE         As Long = &HF120&
Public Const SC_MOVE            As Long = &HF010&
Public Const HTCAPTION          As Integer = 2
Public Const HTBOTTOM           As Integer = 15
Public Const HTBOTTOMLEFT       As Integer = 16
Public Const HTBOTTOMRIGHT      As Integer = 17
Public Const HTLEFT             As Integer = 10
Public Const HTRIGHT            As Integer = 11
Public Const HTTOP              As Integer = 12
Public Const HTTOPLEFT          As Integer = 13
Public Const HTTOPRIGHT         As Integer = 14

Public Const SM_CXFRAME = 32
Public Const SM_CYCAPTION = 4
Public Const SM_CXDLGFRAME = 7
Public Const SM_CYSCREEN = 1

Public Const WA_INACTIVE As Long = 0
Public Const WA_ACTIVE As Long = 1
Public Const WA_CLICKACTIVE As Long = 2

Public Const GWL_STYLE As Long = -16
Public Const GWL_EXSTYLE As Long = -20
Public Const GWL_HWNDPARENT = (-8)
Public Const WS_EX_LAYERED = &H80000
Public Const WS_EX_TOOLWINDOW As Long = &H80&
Public Const WS_EX_TRANSPARENT = &H20&
Public Const WS_VISIBLE = &H10000000
Public Const WS_CHILD = &H40000000
Public Const SS_OWNERDRAW = &HD&
Public Const WS_POPUP = &H80000000

Public Const ULW_OPAQUE = &H4
Public Const ULW_COLORKEY = &H1
Public Const ULW_ALPHA = &H2
Public Const BI_RGB As Long = 0&
Public Const DIB_RGB_COLORS As Long = 0
Public Const AC_SRC_ALPHA As Long = &H1
Public Const AC_SRC_OVER = &H0

Public Const DT_BOTTOM = &H8
Public Const DT_CALCRECT = &H400
Public Const DT_CENTER = &H1
Public Const DT_LEFT = &H0
Public Const DT_RIGHT = &H2
Public Const DT_SINGLELINE = &H20
Public Const DT_TOP = &H0
Public Const DT_VCENTER = &H4
Public Const DT_WORDBREAK = &H10
Public Const DT_END_ELLIPSIS = &H8000
Public Const DT_PATH_ELLIPSIS = &H4000

Public Const PS_DASH = 1
Public Const PS_DASHDOT = 3
Public Const PS_DASHDOTDOT = 4
Public Const PS_DOT = 2
Public Const PS_NULL = 5
Public Const PS_SOLID = 0
Public Const PS_USERSTYLE = 7

Public Type BLENDFUNCTION
    BlendOp As Byte
    BlendFlags As Byte
    SourceConstantAlpha As Byte
    AlphaFormat As Byte
End Type

Public Type RGBQUAD
    rgbBlue As Byte
    rgbGreen As Byte
    rgbRed As Byte
    rgbReserved As Byte
End Type

Public Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type

Public Type BITMAPINFO
    bmiHeader As BITMAPINFOHEADER
    bmiColors As RGBQUAD
End Type

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

Public Type Size
    cx As Long
    cy As Long
End Type

Public Type POINTAPI
    X                               As Long
    Y                               As Long
End Type

Public Type Msg
    hWnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type

Public Type TPMPARAMS
    cbSize As Long
    rcExclude As RECT
End Type

Public Const TPM_CENTERALIGN = &H4&
Public Const TPM_LEFTALIGN = &H0&
Public Const TPM_LEFTBUTTON = &H0&
Public Const TPM_RIGHTALIGN = &H8&
Public Const TPM_RIGHTBUTTON = &H2&