stdconst.bas

研讀原始碼的好工具

' Alignment Constants
Global Const dbgLeft = 0 ' Left 
Global Const dbgRight = 1 ' Right 
Global Const dbgCenter = 2 ' Center 
Global Const dbgGeneral = 3 ' General 


' Appearance Constants
Global Const dbgFlat = 0 ' Flat appearance 
Global Const dbg3D = 1 ' 3D appearance 


' BorderStyle Constants
Global Const dbgNoBorder = 0 ' None 
Global Const dbgFixedSingle = 1 ' FixedSingle 


' DividerStyle Constants
Global Const dbgNoDividers = 0 ' No dividers 
Global Const dbgBlackLine = 1 ' Black line 
Global Const dbgDarkGrayLine = 2 ' Dark gray line 
Global Const dbgRaised = 3 ' Raised 
Global Const dbgInset = 4 ' Inset 
Global Const dbgUseForeColor = 5 ' Use forecolor 
Global Const dbgLightGrayLine = 6 ' Light gray line 


' Error Constants
Global Const dbgActionCanceled = 7011 ' Action is canceled 
Global Const dbgAddError = 6154 ' Error occurred while trying to add record 
Global Const dbgBadEvent = 6161 ' Operation is invalid within the event 
Global Const dbgBindError = 4097 ' Cannot initialize data bindings 
Global Const dbgCNotFound = 6147 ' Column not found 
Global Const dbgColIndex = 6145 ' Invalid column index 
Global Const dbgColReadOnly = 7010 ' The column is read only 
Global Const dbgConvertData = 7006 ' Data type conversion error 
Global Const dbgDataAccess = 6160 ' Data access error 
Global Const dbgDelError = 6155 ' Error occurred while trying to delete record 
Global Const dbgDelMultRows = 6159 ' Cannot delete multiple rows 
Global Const dbgErrorSetCurrent = 6152 ' Error occurred while trying to set current row 
Global Const dbgErrUpdateColumn = 7007 ' Error occurred while trying to update the column value 
Global Const dbgInvalidPropertyValue = 380 ' Invalid property value 
Global Const dbgInvalidSafeModeProcCall = 680 ' Invalid procedure call in safe mode 
Global Const dbgInvBookmark = 6149 ' Invalid bookmark 
Global Const dbgInvRowNum = 6148 ' Invalid row number 
Global Const dbgMustHaveSplit = 7002 ' Cannot delete last split 
Global Const dbgNoCurrentRow = 7008 ' The current row is not available 
Global Const dbgNoMethodNow = 7003 ' Method is not available in this context 
Global Const dbgNoPropNow = 6162 ' Property is not available in this context 
Global Const dbgNoRowFound = 7009 ' Cannot find the row 
Global Const dbgNoRowset = 7005 ' Rowset not available 
Global Const dbgNotBookmarkable = 7004 ' The rowset is not bookmarkable 
Global Const dbgOrphaned = 7000 ' Supporting object on the grid has been deleted 
Global Const dbgOutOfMemory = 7 ' Out of memory 
Global Const dbgScrollRange = 6151 ' Scroll arguments out of range 
Global Const dbgSplitIndex = 6244 ' Invalid split index 
Global Const dbgSubscriptRange = 9 ' Subscript out of range 
Global Const dbgTypeMismatch = 13 ' Type mismatch 
Global Const dbgUnknown = 7001 ' An unknown error code was received where it was not expected 
Global Const dbgUpdError = 6153 ' Error occurred while trying to update record 


' MarqueeStyle Constants
Global Const dbgDottedCellBorder = 0 ' Dotted cell border 
Global Const dbgSolidCellBorder = 1 ' Solid cell border 
Global Const dbgHighlightCell = 2 ' Highlight the cell 
Global Const dbgHighlightRow = 3 ' Highlight the row 
Global Const dbgHighlightRowRaiseCell = 4 ' Highlight row, raise cell 
Global Const dbgNoMarquee = 5 ' No marquee 
Global Const dbgFloatingEditor = 6 ' Floating editor 


' ScrollBar Constants
Global Const dbgNone = 0 ' None 
Global Const dbgHorizontal = 1 ' Horizontal 
Global Const dbgVertical = 2 ' Vertical 
Global Const dbgBoth = 3 ' Both 
Global Const dbgAutomatic = 4 ' Automatic 


' SplitSizeMode Constants
Global Const dbgScalable = 0 ' Scalable 
Global Const dbgExact = 1 ' Exact 


' TabAction Constants
Global Const dbgControlNavigation = 0 ' Control navigation 
Global Const dbgColumnNavigation = 1 ' Column navigation 
Global Const dbgGridNavigation = 2 ' Grid navigation 


'1 DataRepeater Control Constants


' Appearance Constants
Global Const drpflat = 0 ' Control appears flat. 
Global Const drp3D = 1 ' Control has 3D features. 


' BorderStyle Constants
Global Const drpNoBorder = 0 ' Control has no border. 
Global Const drpFixedSingle = 1 ' Control has a single line border 


' CaptionStyle Constants
Global Const drpNoCaption = 0 ' Caption is hidden. 
Global Const drpLeftAligned = 1 ' Caption is left-aligned. 
Global Const drpRightAligned = 2 ' Caption is right-aligned. 
Global Const drpCentered = 3 ' Caption is centered. 


' Error Constants
Global Const drpOutOfMemory = 7 ' Out of memory. 
Global Const drpTypeMismatch = 13 ' Type mismatch. 
Global Const drpObjVarNotSet = 91 ' (&H5B) Object variable or With block variable not set. 
Global Const drpInvalidPropertyValue = 380 ' (&H17C) Invalid property value. 
Global Const drpInvalidPropertyArrayIndex = 381 ' (&H17D) Invalid property array index. 
Global Const drpSetNotSupportedAtRuntime = 382 ' (&H17E) The property can't be set at run time. 
Global Const drpSetNotSupported = 383 ' (&H17F) Property is read-only. 
Global Const drpSetNotPermitted = 387 ' (&H183) Property can't be set on this control. 
Global Const drpGetNotSupported = 394 ' (&H18A) Property is write-only. 
Global Const drpObjectDoesntSupportProp = 438 ' (&H1B6) Object doesn't support this property or method. 
Global Const drpCreateRepeaterControl = 32000 ' (&H7D00) Unable to create RepeatedControl 
Global Const drpInvalidProgID = 32001 ' (&H7D01) Invalid ProgID or class object not supported. 
Global Const drpInvalidBookmark = 32002 ' (&H7D02) Invalid bookmark 
Global Const drpNoDataSource = 32003 ' (&H7D03) No datasource or datasource is empty. 
Global Const drpNoVisibleRows = 32004 ' (&H7D04) There are no visible rows. 
Global Const drpCantSetActiveRow = 32005 ' (&H7D05) The active row cannot be set without affecting the current record position. 
Global Const drpBadVisibleRecordIndex = 32006 ' (&H7D06) VisibleRecord index must be between zero and VisibleRows-1. 
Global Const drpInvalidRecordBookmark = 32007 ' (&H7D07) The bookmark is invalid or the corresponding record is no longer present. 
Global Const drpIndexOutOfBounds = 35600 ' (&H8B10) Index out of bounds. 
Global Const drpElemNotFound = 35601 ' (&H8B11) Element not found. 
Global Const drpNonUniqueKey = 35602 ' (&H8B12) Key is not unique in collection. 
Global Const drpInvalidKey = 35603 ' (&H8B13) Invalid key. 
Global Const drpElemNotPartOfCollection = 35605 ' (&H8B15) Object is no longer a collection member. 
Global Const drpCollectionChangedDuringEnum = 35606 ' (&H8B16) Control's collection has been modified. 
Global Const drpBadObjectReference = 35610 ' (&H8B1A) Invalid object. 
Global Const drpWouldIntroduceCycle = 35614 ' (&H8B1E) Action would introduce a cycle. 
Global Const drpCircularReference = 35700 ' (&H8B74) Circular object referencing is not allowed. 
Global Const drpPropertyNotBindable = 35701 ' (&H8B75) Property is not bindable. 
Global Const drpInvalidIndexOrKey = 35702 ' (&H8B76) Invalid index or key. 
Global Const drpAlreadyBound = 35703 ' (&H8B77) PropertyName already bound. 
Global Const drpInvalidPropertyName = 35704 ' (&H8B78) Invalid PropertyName. 
Global Const drpInvalidDataField = 35705 ' (&H8B79) Invalid DataField. 


' MousePointer Constants
Global Const drpDefault = 0 ' Default. 
Global Const drpArrow = 1 ' Arrow mouse pointer. 
Global Const drpCross = 2 ' Cross mouse pointer. 
Global Const drpIBeam = 3 ' I-Beam mouse pointer. 
Global Const drpIcon = 4 ' Icon mouse pointer. 
Global Const drpSize = 5 ' Size mouse pointer. 
Global Const drpSizeNESW = 6 ' Size NE SW mouse pointer. 
Global Const drpSizeNS = 7 ' Size N S mouse pointer. 
Global Const drpSizeNWSE = 8 ' Size NW SE mouse pointer. 
Global Const drpSizeEW = 9 ' Size W E mouse pointer. 
Global Const drpUpArrow = 10 ' Up arrow mouse pointer. 
Global Const drpHourglass = 11 ' Hourglass mouse pointer. 
Global Const drpNoDrop = 12 ' No drop mouse pointer. 
Global Const drpArrowHourglass = 13 ' Arrow and Hourglass mouse pointer 
Global Const drpArrowQuestion = 14 ' Arrow and Question mark mouse pointer. 
Global Const drpSizeAll = 15 ' Size all mouse pointer. 
Global Const drpCustom = 99 ' (&H63) Custom mouse pointer icon specified by the MouseIcon property. 


' RowDividerStyle Constants
Global Const drpNoDivider = 0 ' No line drawn between rows. 
Global Const drpFlatLine = 1 ' Flat line drawn between rows. 
Global Const drpInset = 2 ' 3D inset line drawn between rows. 
Global Const drpRaised = 3 ' 3D raised line drawn between rows. 


' Scrollbars Constants
Global Const drpNoScrollBars = 0 ' No scrollbars. 
Global Const drpHorizontal = 1 ' Horizontal scrollbars only. 
Global Const drpVertical = 2 ' Vertical scrollbars only. 
Global Const drpBoth = 3 ' Horizontal and Vertical scrollbars appear. 
Global Const drpAuto = 4 ' Scrollbars are drawn as required. 


'1 Masked Edit Control Constants


' Appearance Constants
Global Const mskFlat = 0 ' Flat. Paints controls and forms without visual effects. 
Global Const mskThreeD = 1 ' (Default) 3D. Paints controls with three-dimensional effects. 


' BorderStyle Constants
Global Const vbBSNone = 0 ' No border 
Global Const vbFixedSingle = 1 ' Fixed single 


' ClipBoard Constants
Global Const mskCFRTF = &HFFFFBF01 ' Rich Text Format (.rtf file) 
Global Const mskCFText = 1 ' Text (.txt file) 
Global Const mskCFBitmap = 2 ' Bitmap (.bmp file) 
Global Const mskCFMetafile = 3 ' Metafile (.wmf file) 
Global Const mskCFDIB = 8 ' Device-independent bitmap 
Global Const mskCFPalette = 9 ' Color palette 
Global Const mskCFEMetafile = 14 ' Extended Metafile (.emf file) 
Global Const mskCFFiles = 15 ' Filename list 


' ClipMode Constants
Global Const mskIncludeLiterals = 0 ' Include literals on cut or copy. 
Global Const mskExcludeLiterals = 1 ' Exclude literals on cut or copy. 


' DragOver Constants
Global Const mskEnter = 0 ' Source control dragged into target. 
Global Const mskLeave = 1 ' Source control dragged out of target. 
Global Const mskOver = 2 ' Source control dragged from one position in target to another. 


' Error Constants
Global Const mskDataObjectLocked = 672 ' DataObject formats list may not be cleared or expanded outside of the OLEStartDrag event. 
Global Const mskExpectedAnArgument = 673 ' Expected at least one argument. 
Global Const mskFormatNotByteArray = 675 ' Non-intrinsic OLE drag and drop formats used with SetData require Byte array data. GetData may return more bytes than were given to SetData. 
Global Const mskGetNotSupported = 394 ' Property is write-only. 
Global Const mskInvalidObjectUse = 425 ' Invalid object use. 
Global Const mskInvalidProcedureCall = 5 ' Invalid procedure call. 
Global Const mskInvalidPropertyValue = 380 ' Invalid property value. 
Global Const mskRecursiveOleDrag = 674 ' Illegal recursive invocation of OLE drag and drop. 
Global Const mskSetNotSupported = 383 ' Property is read-only. 
Global Const mskWrongClipboardFormat = 461 ' Specified format doesn't match format of data. 


' MousePointer Constants
Global Const mskDefault = 0 ' Default 
Global Const mskArrow = 1 ' Arrow 
Global Const mskCross = 2 ' Crosshair 
Global Const mskIbeam = 3 ' I beam 
Global Const mskIcon = 4 ' Icon 
Global Const mskSize = 5 ' Size 
Global Const mskSizeNESW = 6 ' Size NE, SW mouse pointer 
Global Const mskSizeNS = 7 ' Size N, S mouse pointer 
Global Const mskSizeNWSE = 8 ' Size NW, SE mouse point