stdconst.bas

研讀原始碼的好工具

Global Const vbTooManyLinks = 7 ' All source links are in use 
Global Const vbDataTransferFailed = 8 ' Failure to update data in destination 


' LinkMode Property (Forms and Controls)
Global Const vbLinkNone = 0 ' None 
Global Const vbLinkSource = 1 ' Source (forms only) 
Global Const vbLinkAutomatic = 1 ' Automatic (controls only) 
Global Const vbLinkManual = 2 ' Manual (controls only) 
Global Const vbLinkNotify = 3 ' Notify (controls only) 


' LinkMode Property 
' (Only for backward compatibility with Visual Basic version 1.0; use new constants instead)
Global Const vbHot = 1 ' Hot (controls only) 
Global Const vbServer = 1 ' Server (forms only) 
Global Const vbCold = 2 ' Cold (controls only) 


'1 Drag-and-Drop Constants

' DragOver and OLEDragOver Event
Global Const vbEnter = 0 ' Source control dragged into target 
Global Const vbLeave = 1 ' Source control dragged out of target 
Global Const vbOver = 2 ' Source control dragged from one position in target to another 


' Drag Method (Controls)
Global Const vbCancel = 0 ' Cancel drag operation 
Global Const vbBeginDrag = 1 ' Begin dragging control 
Global Const vbEndDrag = 2 ' Drop control 


' DragMode Property
Global Const vbManual = 0 ' Manual 
Global Const vbAutomatic = 1 ' Automatic 


' OLEDragMode Property
Global Const vbOLEDragManual = 0 ' Manual 
Global Const vbOLEDragAutomatic = 1 ' Automatic 


' OLEDropMode Property
Global Const vbOLEDropNone = 0 ' None 
Global Const vbOLEDropManual = 1 ' Manual 
Global Const vbOLEDropAutomatic = 2 ' Automatic 


' OLE Drop Effect
Global Const vbOLEDropEffectNone = 0 ' No OLE drag/drop operation has taken place 
Global Const vbOLEDropEffectCopy = 1 ' A mask indicating that a copy operation has taken, or would take, place 
Global Const vbOLEDropEffectMove = 2 ' A mask indicating that a move operation has taken, or would take, place 
Global Const vbOLEDropEffectScroll = &H80000000 ' A mask indicating that the drop target window has scrolled, or will scroll 


'1 Drawing Constants

' DrawMode Property
Global Const vbBlackness = 1 ' Black 
Global Const vbNotMergePen = 2 ' Not Merge pen 
Global Const vbMaskNotPen = 3 ' Mask Not pen 
Global Const vbNotCopyPen = 4 ' Not Copy pen 
Global Const vbMaskPenNot = 5 ' Mask pen Not 
Global Const vbInvert = 6 ' Invert 
Global Const vbXorPen = 7 ' Xor pen 
Global Const vbNotMaskPen = 8 ' Not Mask pen 
Global Const vbMaskPen = 9 ' Mask pen 
Global Const vbNotXorPen = 10 ' Not Xor pen 
Global Const vbNop = 11 ' No operation; output remains unchanged 
Global Const vbMergeNotPen = 12 ' Merge Not pen 
Global Const vbCopyPen = 13 ' Copy pen 
Global Const vbMergePenNot = 14 ' Merge pen Not 
Global Const vbMergePen = 15 ' Merge pen 
Global Const vbWhiteness = 16 ' White 


' DrawStyle Property
Global Const vbSolid = 0 ' Solid 
Global Const vbDash = 1 ' Dash 
Global Const vbDot = 2 ' Dot 
Global Const vbDashDot = 3 ' Dash-dot 
Global Const vbDashDotDot = 4 ' Dash-dot-dot 
Global Const vbInvisible = 5 ' Invisible 
Global Const vbInsideSolid = 6 ' Inside solid 


' DriveType Constants
Global Const Unknown = 0 ' Drive type can't be determined. 
Global Const Removable = 1 ' Drive has removable media. This includes all floppy drives and many other varieties of storage devices. 
Global Const Fixed = 2 ' Drive has fixed (nonremovable) media. This includes all hard drives, including hard drives that are removable. 
Global Const Remote = 3 ' Network drives. This includes drives shared anywhere on a network. 
Global Const CDROM = 4 ' Drive is a CD-ROM. No distinction is made between read-only and read/write CD-ROM drives. 
Global Const RAMDisk = 5 ' Drive is a block of Random Access Memory (RAM) on the local computer that behaves like a disk drive. 


' File Attribute Constants
Global Const Normal = 0 ' Normal file. No attributes are set. 
Global Const ReadOnly = 1 ' Read-only file. Attribute is read/write. 
Global Const Hidden = 2 ' Hidden file. Attribute is read/write. 
Global Const System = 4 ' System file. Attribute is read/write. 
Global Const Volume = 8 ' Disk drive volume label. Attribute is read-only. 
Global Const Directory = 16 ' Folder or directory. Attribute is read-only. 
Global Const Archive = 32 ' File has changed since last backup. Attribute is read/write. 
Global Const Alias = 64 ' Link or shortcut. Attribute is read-only. 
Global Const Compressed = 128 ' Compressed file. Attribute is read-only. 


' File Input/Output Constants
Global Const ForReading = 1 ' Open a file for reading only. You can't write to this file. 
Global Const ForWriting = 2 ' Open a file for writing. If a file with the same name exists, its previous contents are overwritten. 
Global Const ForAppending = 8 ' Open a file and write to the end of the file. 


'1 Graphics Constants

' FillStyle Property
Global Const vbFSSolid = 0 ' Solid 
Global Const vbFSTransparent = 1 ' Transparent 
Global Const vbHorizontalLine = 2 ' Horizontal line 
Global Const vbVerticalLine = 3 ' Vertical line 
Global Const vbUpwardDiagonal = 4 ' Upward diagonal 
Global Const vbDownwardDiagonal = 5 ' Downward diagonal 
Global Const vbCross = 6 ' Cross 
Global Const vbDiagonalCross = 7 ' Diagonal cross 


' ScaleMode Property
Global Const vbUser = 0 ' User 
Global Const vbTwips = 1 ' Twips 
Global Const vbPoints = 2 ' Points 
Global Const vbPixels = 3 ' Pixels 
Global Const vbCharacters = 4 ' Characters 
Global Const vbInches = 5 ' Inches 
Global Const vbMillimeters = 6 ' Millimeters 
Global Const vbCentimeters = 7 ' Centimeters 
Global Const vbHiMetric = 8 ' HiMetric 
Global Const vbContainerPosition = 9 ' Units used by the control's container to determine the control's position 
Global Const vbContainerSize = 10 ' Units used by the control's container to determine the control's size 


' PaletteMode Property
Global Const vbPaletteModeHalfTone = 0 ' Use system halftone palette 
Global Const vbPaletteModeUseZOrder = 1 ' Use palette from topmost control that has a palette 
Global Const vbPaletteModeCustom = 2 ' Use palette specified in Palette property 
Global Const vbPaletteModeContainer = 3 ' Use the container's palette for containers that support ambient Palette property 
Global Const vbPaletteModeNone = 4 ' Do not use any palette 
Global Const vbPaletteModeObject = 5 ' Use the ActiveX designer's palette 


' Help Constants
Global Const cdlHelpContext = &H1 ' Displays Help for a particular topic 
Global Const cdlHelpQuit = &H2 ' Notifies the Help application that the specified Help file is no longer in use 
Global Const cdlHelpIndex = &H3 ' Displays the index of the specified Help file 
Global Const cdlHelpContents = &H3 ' Displays the contents topic in the current Help file 
Global Const cdlHelpHelpOnHelp = &H4 ' Displays Help for using the Help application itself 
Global Const cdlHelpSetIndex = &H5 ' Sets the current index for multi-index Help 
Global Const cdlHelpSetContents = &H5 ' Designates a specific topic as the contents topic 
Global Const cdlHelpContextPopup = &H8 ' Displays a topic identified by a context number 
Global Const cdlHelpForceFile = &H9 ' Creates a Help file that displays text in only one font 
Global Const cdlHelpKey = &H101 ' Displays Help for a particular keyword 
Global Const cdlHelpCommandHelp = &H102 ' Displays Help for a particular command 
Global Const cdlHelpPartialKey = &H105 ' Calls the search engine in Windows Help 


'1 Key Code Constants

Global Const vbKeyLButton = 1 ' Left mouse button 
Global Const vbKeyRButton = 2 ' Right mouse button 
Global Const vbKeyCancel = 3 ' CANCEL key 
Global Const vbKeyMButton = 4 ' Middle mouse button 
Global Const vbKeyBack = 8 ' BACKSPACE key 
Global Const vbKeyTab = 9 ' TAB key 
Global Const vbKeyClear = 12 ' CLEAR key 
Global Const vbKeyReturn = 13 ' ENTER key 
Global Const vbKeyShift = 16 ' SHIFT key 
Global Const vbKeyControl = 17 ' CTRL key 
Global Const vbKeyMenu = 18 ' MENU key 
Global Const vbKeyPause = 19 ' PAUSE key 
Global Const vbKeyCapital = 20 ' CAPS LOCK key 
Global Const vbKeyEscape = 27 ' ESC key 
Global Const vbKeySpace = 32 ' SPACEBAR key 
Global Const vbKeyPageUp = 33 ' PAGE UP key 
Global Const vbKeyPageDown = 34 ' PAGE DOWN key 
Global Const vbKeyEnd = 35 ' END key 
Global Const vbKeyHome = 36 ' HOME key 
Global Const vbKeyLeft = 37 ' LEFT ARROW key 
Global Const vbKeyUp = 38 ' UP ARROW key 
Global Const vbKeyRight = 39 ' RIGHT ARROW key 
Global Const vbKeyDown = 40 ' DOWN ARROW key 
Global Const vbKeySelect = 41 ' SELECT key 
Global Const vbKeyPrint = 42 ' PRINT SCREEN key 
Global Const vbKeyExecute = 43 ' EXECUTE key 
Global Const vbKeySnapshot = 44 ' SNAPSHOT key 
Global Const vbKeyInsert = 45 ' INS key 
Global Const vbKeyDelete = 46 ' DEL key 
Global Const vbKeyHelp = 47 ' HELP key 
Global Const vbKeyNumlock = 144 ' NUM LOCK key 


' KeyA Through KeyZ Are the Same as Their ASCII Equivalents: 'A' Through 'Z'
Global Const vbKeyA = 65 ' A key 
Global Const vbKeyB = 66 ' B key 
Global Const vbKeyC = 67 ' C key 
Global Const vbKeyD = 68 ' D key 
Global Const vbKeyE = 69 ' E key 
Global Const vbKeyF = 70 ' F key 
Global Const vbKeyG = 71 ' G key 
Global Const vbKeyH = 72 ' H key 
Global Const vbKeyI = 73 ' I key 
Global Const vbKeyJ = 74 ' J key 
Global Const vbKeyK = 75 ' K key 
Global Const vbKeyL = 76 ' L key 
Global Const vbKeyM = 77 ' M key 
Global Const vbKeyN = 78 ' N key 
Global Const vbKeyO = 79 ' O key 
Global Const vbKeyP = 80 ' P key 
Global Const vbKeyQ = 81 ' Q key 
Global Const vbKeyR = 82 ' R key 
Global Const vbKeyS = 83 ' S key 
Global Const vbKeyT = 84 ' T key 
Global Const vbKeyU = 85 ' U key 
Global Const vbKeyV = 86 ' V key 
Global Const vbKeyW = 87 ' W key 
Global Const vbKeyX = 88 ' X key 
Global Const vbKeyY = 89 ' Y key 
Global Const vbKeyZ = 90 ' Z key 


' Key0 Through Key9 Are the Same as Their ASCII Equivalents: '0' Through '9
Global Const vbKey0 = 48 ' 0 key 
Global Const vbKey1 = 49 ' 1 key 
Global Const vbKey2 = 50 ' 2 key 
Global Const vbKey3 = 51 ' 3 key 
Global Const vbKey4 = 52 ' 4 key 
Global Const vbKey5 = 53 ' 5 key 
Global Const vbKey6 = 54 ' 6 key 
Global Const vbKey7 = 55 ' 7 key 
Global Const vbKey8 = 56 ' 8 key 
Global Const vbKey9 = 57 ' 9 key 


' Keys on the Numeric Keypad