📄 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -