home *** CD-ROM | disk | FTP | other *** search
'============================================================================' ' ' ' Visual Basic global constant file. This file can be loaded into the ' ' global module. ' ' ' ' Some constants are commented out because they have duplicates (for ' ' example, NONE appears in several places). ' ' ' '============================================================================' '=========' ' ' ' General ' ' ' '=========' ' Booleans Global Const TRUE = -1 Global Const FALSE = 0 '==================' ' ' ' Event parameters ' ' ' '==================' ' Button and Shift (KeyDown, KeyUp, MouseDown, MouseMove, MouseUp) Global Const SHIFT_MASK = 1 Global Const CTRL_MASK = 2 Global Const ALT_MASK = 4 Global Const LEFT_BUTTON = 1 Global Const RIGHT_BUTTON = 2 Global Const MIDDLE_BUTTON = 4 ' ErrNum (LinkError) Global Const WRONG_FORMAT = 1 Global Const REQUEST_WITHOUT_INIT = 2 Global Const DDE_WITHOUT_INIT = 3 Global Const ADVISE_WITHOUT_INIT = 4 Global Const POKE_WITHOUT_INIT = 5 Global Const DDE_SERVER_CLOSED = 6 Global Const TOO_MANY_LINKS = 7 Global Const STRING_TOO_LONG = 8 Global Const INVALID_CONTROL_ARRAY_REFERENCE = 9 Global Const UNEXPECTED_DDE = 10 Global Const OUT_OF_MEMORY = 11 Global Const SERVER_ATTEMPTED_CLIENT_OPERATION = 12 ' KeyCode (KeyDown, KeyUp) Global Const KEY_LBUTTON = &H1 Global Const KEY_RBUTTON = &H2 Global Const KEY_CANCEL = &H3 Global Const KEY_MBUTTON = &H4 ' NOT contiguous with L & RBUTTON Global Const KEY_BACK = &H8 Global Const KEY_TAB = &H9 Global Const KEY_CLEAR = &HC Global Const KEY_RETURN = &HD Global Const KEY_SHIFT = &H10 Global Const KEY_CONTROL = &H11 Global Const KEY_MENU = &H12 Global Const KEY_PAUSE = &H13 Global Const KEY_CAPITAL = &H14 Global Const KEY_ESCAPE = &H1B Global Const KEY_SPACE = &H20 Global Const KEY_PRIOR = &H21 Global Const KEY_NEXT = &H22 Global Const KEY_END = &H23 Global Const KEY_HOME = &H24 Global Const KEY_LEFT = &H25 Global Const KEY_UP = &H26 Global Const KEY_RIGHT = &H27 Global Const KEY_DOWN = &H28 Global Const KEY_SELECT = &H29 Global Const KEY_PRINT = &H2A Global Const KEY_EXECUTE = &H2B Global Const KEY_SNAPSHOT = &H2C Global Const KEY_INSERT = &H2D Global Const KEY_DELETE = &H2E Global Const KEY_HELP = &H2F ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z' ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9' Global Const KEY_NUMPAD0 = &H60 Global Const KEY_NUMPAD1 = &H61 Global Const KEY_NUMPAD2 = &H62 Global Const KEY_NUMPAD3 = &H63 Global Const KEY_NUMPAD4 = &H64 Global Const KEY_NUMPAD5 = &H65 Global Const KEY_NUMPAD6 = &H66 Global Const KEY_NUMPAD7 = &H67 Global Const KEY_NUMPAD8 = &H68 Global Const KEY_NUMPAD9 = &H69 Global Const KEY_MULTIPLY = &H6A Global Const KEY_ADD = &H6B Global Const KEY_SEPARATOR = &H6C Global Const KEY_SUBTRACT = &H6D Global Const KEY_DECIMAL = &H6E Global Const KEY_DIVIDE = &H6F Global Const KEY_F1 = &H70 Global Const KEY_F2 = &H71 Global Const KEY_F3 = &H72 Global Const KEY_F4 = &H73 Global Const KEY_F5 = &H74 Global Const KEY_F6 = &H75 Global Const KEY_F7 = &H76 Global Const KEY_F8 = &H77 Global Const KEY_F9 = &H78 Global Const KEY_F10 = &H79 Global Const KEY_F11 = &H7A Global Const KEY_F12 = &H7B Global Const KEY_F13 = &H7C Global Const KEY_F14 = &H7D Global Const KEY_F15 = &H7E Global Const KEY_F16 = &H7F Global Const KEY_NUMLOCK = &H90 ' State (DragOver) Global Const ENTER = 0 Global Const LEAVE = 1 Global Const OVER = 2 '=====================' ' ' ' Function parameters ' ' ' '=====================' ' MsgBox parameters Global Const MB_OK = 0 ' OK button only Global Const MB_OKCANCEL = 1 ' OK and Cancel buttons Global Const MB_ABORTRETRYIGNORE = 2 ' Abort, Retry, and Ignore buttons Global Const MB_YESNOCANCEL = 3 ' Yes, No, and Cancel buttons Global Const MB_YESNO = 4 ' Yes and No buttons Global Const MB_RETRYCANCEL = 5 ' Retry and Cancel buttons Global Const MB_ICONSTOP = 16 ' Critical message Global Const MB_ICONQUESTION = 32 ' Warning query Global Const MB_ICONEXCLAMATION = 48 ' Warning message Global Const MB_ICONINFORMATION = 64 ' Information message Global Const MB_DEFBUTTON1 = 0 ' First button is default Global Const MB_DEFBUTTON2 = 256 ' Second button is default Global Const MB_DEFBUTTON3 = 512 ' Third button is default ' MsgBox return values Global Const IDOK = 1 ' OK button pressed Global Const IDCANCEL = 2 ' Cancel button pressed Global Const IDABORT = 3 ' Abort button pressed Global Const IDRETRY = 4 ' Retry button pressed Global Const IDIGNORE = 5 ' Ignore button pressed Global Const IDYES = 6 ' Yes button pressed Global Const IDNO = 7 ' No button pressed '===================' ' ' ' Method parameters ' ' ' '===================' ' Drag (controls) Global Const CANCEL = 0 Global Const BEGIN_DRAG = 1 Global Const END_DRAG = 2 ' GetData, GetFormat, SetData (Clipboard) Global Const CF_LINK = &HBF00 Global Const CF_TEXT = 1 Global Const CF_BITMAP = 2 Global Const CF_METAFILE = 3 Global Const CF_DIB = 8 ' Show (form) Global Const MODAL = 1 Global Const MODELESS = 0 '=================' ' ' ' Property values ' ' ' '=================' ' Alignment (label) Global Const LEFT_JUSTIFY = 0 ' 0 - Left Justify Global Const RIGHT_JUSTIFY = 1 ' 1 - Right Justify Global Const CENTER = 2 ' 2 - Center ' BackColor, ForeColor, FillColor (standard RGB colors: form, controls) Global Const BLACK = &H0& Global Const RED = &HFF& Global Const GREEN = &HFF00& Global Const YELLOW = &HFFFF& Global Const BLUE = &HFF0000 Global Const MAGENTA = &HFF00FF Global Const CYAN = &HFFFF00 Global Const WHITE = &HFFFFFF ' BackColor, ForeColor, FillColor (system colors: form, controls) Global Const SCROLL_BARS = &H80000000 ' Scroll-bars gray area. Global Const DESKTOP = &H80000001 ' Desktop. Global Const ACTIVE_TITLE_BAR = &H80000002 ' Active window caption. Global Const INACTIVE_TITLE_BAR = &H80000003 ' Inactive window caption. Global Const MENU_BAR = &H80000004 ' Menu background. Global Const WINDOW_BACKGROUND = &H80000005 ' Window background. Global Const WINDOW_FRAME = &H80000006 ' Window frame. Global Const MENU_TEXT = &H80000007 ' Text in menus. Global Const WINDOW_TEXT = &H80000008 ' Text in windows. Global Const TITLE_BAR_TEXT = &H80000009 ' Text in caption, size box, scroll-bar arrow box.. Global Const ACTIVE_BORDER = &H8000000A ' Active window border. Global Const INACTIVE_BORDER = &H8000000B ' Inactive window border. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications. Global Const HIGHLIGHT = &H8000000D ' Items selected item in a control. Global Const HIGHLIGHT_TEXT = &H8000000E ' Text of item selected in a control. Global Const BUTTON_FACE = &H8000000F ' Face shading on command buttons. Global Const BUTTON_SHADOW = &H80000010 ' Edge shading on command buttons. Global Const GRAY_TEXT = &H80000011 ' Grayed (disabled) text. This color is set to 0 if the current display driver does not support a solid gray color. Global Const BUTTON_TEXT = &H80000012 ' Text on push buttons. ' BorderStyle (form, label, picture box, text box) Global Const NONE = 0 ' 0 - None Global Const FIXED_SINGLE = 1 ' 1 - Fixed Single Global Const SIZABLE = 2 ' 2 - Sizable (Forms only) Global Const FIXED_DOUBLE = 3 ' 3 - Fixed Double (Forms only) ' DragMode (controls) Global Const MANUAL = 0 ' 0 - Manual Global Const AUTOMATIC = 1 ' 1 - Automatic ' DrawMode (form, picture box, Printer) Global Const BLACKNESS = 1 ' 1 - Blackness Global Const NOT_MERGE_PEN = 2 ' 2 - Not Merge Pen Global Const MASK_NOT_PEN = 3 ' 3 - Mask Not Pen Global Const NOT_COPY_PEN = 4 ' 4 - Not Copy Pen Global Const MASK_PEN_NOT = 5 ' 5 - Mask Pen Not Global Const INVERT = 6 ' 6 - Invert Global Const XOR_PEN = 7 ' 7 - Xor Pen Global Const NOT_MASK_PEN = 8 ' 8 - Not Mask Pen Global Const MASK_PEN = 9 ' 9 - Mask Pen Global Const NOT_XOR_PEN = 10 ' 10 - Not Xor Pen Global Const NOP = 11 ' 11 - Nop Global Const MERGE_NOT_PEN = 12 ' 12 - Merge Not Pen Global Const COPY_PEN = 13 ' 13 - Copy Pen Global Const MERGE_PEN_NOT = 14 ' 14 - Merge Pen Not Global Const MERGE_PEN = 15 ' 15 - Merge Pen Global Const WHITENESS = 16 ' 16 - Whiteness ' DrawStyle (form, picture box, Printer) Global Const SOLID = 0 ' 0 - Solid Global Const DASH = 1 ' 1 - Dash Global Const DOT = 2 ' 2 - Dot Global Const DASH_DOT = 3 ' 3 - Dash-Dot Global Const DASH_DOT_DOT = 4 ' 4 - Dash-Dot-Dot Global Const INVISIBLE = 5 ' 5 - Invisible Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid ' FillStyle (form, picture box, Printer) ' Global Const SOLID = 0 ' 0 - Solid Global Const TRANSPARENT = 1 ' 1 - Transparent Global Const HORIZONTAL_LINE = 2 ' 2 - Horizontal Line Global Const VERTICAL_LINE = 3 ' 3 - Vertical Line Global Const UPWARD_DIAGONAL = 4 ' 4 - Upward Diagonal Global Const DOWNWARD_DIAGONAL = 5 ' 5 - Downward Diagonal Global Const CROSS = 6 ' 6 - Cross Global Const DIAGONAL_CROSS = 7 ' 7 - Diagonal Cross ' LinkMode (controls) ' Global Const NONE = 0 ' 0 - None Global Const HOT = 1 ' 1 - Hot Global Const COLD = 2 ' 2 - Cold ' LinkMode (form) ' Global Const NONE = 0 ' 0 - None Global Const SERVER = 1 ' 1 - Server ' MousePointer (form, controls) Global Const DEFAULT = 0 ' 0 - Default Global Const ARROW = 1 ' 1 - Arrow Global Const CROSSHAIR = 2 ' 2 - Cross Global Const IBEAM = 3 ' 3 - I-Beam Global Const ICON_POINTER = 4 ' 4 - Icon Global Const SIZE_POINTER = 5 ' 5 - Size Global Const SIZE_NE_SW = 6 ' 6 - Size NE SW Global Const SIZE_N_S = 7 ' 7 - Size N S Global Const SIZE_NW_SE = 8 ' 8 - Size NW SE Global Const SIZE_W_E = 9 ' 9 - Size W E Global Const UP_ARROW = 10 ' 10 - Up Arrow Global Const HOURGLASS = 11 ' 11 - Hourglass Global Const NO_DROP = 12 ' 12 - No drop ' ScaleMode (form, picture box, Printer) Global Const USER = 0 ' 0 - User Global Const TWIPS = 1 ' 1 - Twip Global Const POINTS = 2 ' 2 - Point Global Const PIXELS = 3 ' 3 - Pixel Global Const CHARACTERS = 4 ' 4 - Character Global Const INCHES = 5 ' 5 - Inch Global Const MILLIMETERS = 6 ' 6 - Millimeter Global Const CENTIMETERS = 7 ' 7 - Centimeter ' ScrollBar (text box) ' Global Const NONE = 0 ' 0 - None Global Const HORIZONTAL = 1 ' 1 - Horizontal Global Const VERTICAL = 2 ' 2 - Vertical Global Const BOTH = 3 ' 3 - Both ' Value (check box) Global Const UNCHECKED = 0 ' 0 - Unchecked Global Const CHECKED = 1 ' 1 - Checked Global Const GRAYED = 2 ' 2 - Grayed ' WindowState (form) Global Const NORMAL = 0 ' 0 - Normal Global Const MINIMIZED = 1 ' 1 - Minimized Global Const MAXIMIZED = 2 ' 2 - Maximized Global Const MF_BYPOSITION = &H400 Declare Function RemoveMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer Declare Function GetVersion Lib "Kernel" () As Integer Declare Function GetNumTasks Lib "Kernel" () As Integer Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long Declare Function GetCurrentTime Lib "User" () As Long Declare Function GetSubMenu Lib "User" (ByVal hwnd, ByVal Position) 
