📄 stdconst.bas
字号:
' StdConst.bas
' This file contains declarations for core Visual Basic language constants
'
' Adding this file to a Source Insight project will enable auto-completion and other
' symbolic features for these constant symbols from within Source Insight.
'1 Alignment Constants
Global Const vbAlignNone = 0 'Size and location set at design time or in code
Global Const vbAlignTop = 1 'Align control to top of form
Global Const vbAlignBottom = 2 'Align control to bottom of form
Global Const vbAlignLeft = 3 'Align control to left of form
Global Const vbAlignRight = 4 'Align control to right of form
Global Const vbLeftJustify = 0 'Left align
Global Const vbRightJustify = 1 'Right align
Global Const vbCenter = 2 'Center
' AsyncType Constant
Global Const vbAsyncTypePicture = 0 'The data is provided in a Picture object.
Global Const vbAsyncTypeFile = 1 'The data is provided in a file that is created by Visual Basic.
Global Const vbAsyncTypeByteArray = 2 'The data is provided as a byte array that contains the retrieved data. It is assumed that the control author will know how to handle the data.
' AsyncStatusCode
Global Const vbAsyncStatusCodeError = 0 'An error occurred during the asynchronous download.
Global Const vbAsyncStatusCodeFindingResource = 1 'AsyncRead is finding the resource specified in AsyncProperty.Status that holds the storage being downloaded.
Global Const vbAsyncStatusCodeConnecting = 2 'AsyncRead is connecting to the resource specified in AsyncProperty.Status that holds the storage being downloaded.
Global Const vbAsyncStatusCodeRedirecting = 3 'AsyncRead has been redirected to a different location specified in AsyncRead.Property.Status.
Global Const vbAsyncStatusCodeBeginDownloadData = 4 'AsyncRead has begun receiving data for the storage specified in AsyncProperty.Status.
Global Const vbAsyncStatusCodeDownloadingData = 5 'AsyncRead has received more data for the storage specified in AsyncProperty.Status.
Global Const vbAsyncStatusCodeEndDownloadData = 6 'AsyncRead has finished receiving data for the storage specified in AsyncProperty.Status.
Global Const vbAsyncStatusCodeUsingCashedCopy = 10 'AsyncRead is retrieving the requested storage from a cached copy. AsyncProperty.Status is empty.
Global Const vbAsyncStatusCodeSendingRequest = 11 'AsyncRead is requesting the storage specified in AsyncProperty.Status.
Global Const vbAsybcStatusCodeMIMETypeAvailable = 13 'The MIME type of the requested storage is specified in AsyncProperty.Status.
Global Const vbAsyncStatusCodeCacheFileNameAvailable = 14 'The filename of the local file cache for requested storage is specified in AsyncProperty.Status.
Global Const vbAsyncStatusCodeBeginSyncOperation = 15 'The AsyncRead will operate synchronously.
Global Const vbAsyncstatusCodeEndSyncOperation = 16 'The AsyncRead has completed synchronous operation.
Global Const vbScrollBars = &H80000000 'Scroll bar color
Global Const vbDesktop = &H80000001 'Desktop color
Global Const vbActiveTitleBar = &H80000002 'Color of the title bar for the active window
Global Const vbInactiveTitleBar = &H80000003 'Color of the title bar for the inactive window
Global Const vbMenuBar = &H80000004 'Menu background color
Global Const vbWindowBackground = &H80000005 'Window background color
Global Const vbWindowFrame = &H80000006 'Window frame color
Global Const vbMenuText = &H80000007 'Color of text on menus
Global Const vbWindowText = &H80000008 'Color of text in windows
Global Const vbTitleBarText = &H80000009 'Color of text in caption, size box, and scroll arrow
Global Const vbActiveBorder = &H8000000A 'Border color of active window
Global Const vbInactiveBorder = &H8000000B 'Border color of inactive window
Global Const vbApplicationWorkspace = &H8000000C 'Background color of multiple-document interface (MDI) applications
Global Const vbHighlight = &H8000000D 'Background color of items selected in a control
Global Const vbHighlightText = &H8000000E 'Text color of items selected in a control
Global Const vbButtonFace = &H8000000F 'Color of shading on the face of command buttons
Global Const vbButtonShadow = &H80000010 'Color of shading on the edge of command buttons
Global Const vbGrayText = &H80000011 'Grayed (disabled) text
Global Const vbButtonText = &H80000012 'Text color on push buttons
Global Const vbInactiveCaptionText = &H80000013 'Color of text in an inactive caption
Global Const vb3DHighlight = &H80000014 'Highlight color for 3D display elements
Global Const vb3DDKShadow = &H80000015 'Darkest shadow color for 3D display elements
Global Const vb3DLight = &H80000016 'Second lightest of the 3D colors after vb3Dhighlight
Global Const vb3DFace = &H8000000F 'Color of text face
Global Const vb3Dshadow = &H80000010 'Color of text shadow
Global Const vbInfoText = &H80000017 'Color of text in ToolTips
Global Const vbInfoBackground = &H80000018 'Background color of ToolTips
' Border Style (Form)
Global Const vbBSNone = 0 ' No border
Global Const vbFixedSingle = 1 ' Fixed single
Global Const vbSizable = 2 ' Sizable (forms only)
Global Const vbFixedDialog = 3 ' Fixed dialog (forms only)
Global Const vbFixedToolWindow = 4 ' Fixed tool window
Global Const vbSizableToolWindow = 5 ' Sizable tool window
' BorderStyle Property (Shape and Line)
Global Const vbTransparent = 0 ' Transparent
Global Const vbBSSolid = 1 ' Solid
Global Const vbBSDash = 2 ' Dash
Global Const vbBSDot = 3 ' Dot
Global Const vbBSDashDot = 4 ' Dash-dot
Global Const vbBSDashDotDot = 5 ' Dash-dot-dot
Global Const vbBSInsideSolid = 6 ' Inside solid
' Color Constants
Global Const vbBlack = &H0 ' Black
Global Const vbRed = &HFF ' Red
Global Const vbGreen = &HFF00 ' Green
Global Const vbYellow = &HFFFF ' Yellow
Global Const vbBlue = &HFF0000 ' Blue
Global Const vbMagenta = &HFF00FF ' Magenta
Global Const vbCyan = &HFFFF00 ' Cyan
Global Const vbWhite = &HFFFFFF ' White
' Date Format Constants
Global Const vbGeneralDate = 0 ' Display a date and/or time. For real numbers, display a data and time. If there is no fractional part, display only a date. If there is no integer part, display time only. Date and time display is determined by your system settings.
Global Const vbLongDate = 1 ' Display a date using the long date format specified in your computer's regional settings.
Global Const vbShortDate = 2 ' Display a date using the short date format specified in your computer's regional settings.
Global Const vbLongTime = 3 ' Display a time using the long time format specified in your computer's regional settings.
Global Const vbShortTime = 4 ' Display a time using the short time format specified in your computer's regional settings.
'1 Data Report Designer Constants
' Alignment Constants
Global Const rptJustifyLeft = 0 ' The text is aligned left.
Global Const rptJustifyRight = 1 ' The text is aligned right.
Global Const rptJustifyCenter = 2 ' The text is centered.
' AsyncType Constants
Global Const rptAsyncPreview = 0 ' Preview mode. Occurs after invoking the Show method.
Global Const rptAsyncPrint = 1 ' Indicates a job has been sent to the printer.
Global Const rptAsyncExport = 2 ' Indicates a file is being exported.
' BackStyle Constants
Global Const rptBkTransparent = 0 ' The control is transparent.
Global Const rptBkOpaque = 1 ' The control is opaque.
' BorderStyle Constants
Global Const rptBSTransparent = 0 ' The border is transparent.
Global Const rptBSSolid = 1 ' The border is solid.
Global Const rptBSDashes = 2 ' The border consists of dashes.
Global Const rptBSDots = 3 ' The border consists of dots.
Global Const rptBSDashDot = 4 ' The border consists of dashes and dots.
Global Const rptBSDashDotDot = 5 ' The border consists of a dash followed by two dots.
' Error Constants
Global Const rptErrAccessDenied = 8513 ' (&H2141) Access denied.
Global Const rptErrBoundCtlNotAllowed = 8551 ' (&H2167) The control can't be placed in this section.
Global Const rptErrChapterInit = 8521 ' (&H2149) Unable to initialize the chapter.
Global Const rptErrCollectionIsEmpty = 8573 ' (&H217D) The collection is empty.
Global Const rptErrCreatingFont = 8556 ' (&H216C) An error occurred creating the font.
Global Const rptErrCreatingWindow = 8572 ' (&H217C) An error occurred creating the window.
Global Const rptErrDuplicateKey = 8500 ' (&H2134) There is a duplicate key value in the collection.
Global Const rptErrExportFormatsEmpty = 8506 ' (&H213A) The ExportFormats collection is empty.
Global Const rptErrFileAlreadyExists = 8512 ' (&H2140) The file already exists.
Global Const rptErrGeneralFileIO = 8510 ' (&H213E) File I/O error.
Global Const rptErrInvalidArg = 8507 ' (&H213B) An argument is invalid.
Global Const rptErrInvalidColIndex = 8523 ' (&H214B) The column index is invalid.
Global Const rptErrInvalidDataField = 8526 ' (&H214E) The data field can't be found.
Global Const rptErrInvalidDateSource = 8520 ' (&H2148) The data source is invalid.
Global Const rptErrInvalidFileFilter = 8517 ' (&H2145) The file filter is invalid, or in an invalid format.
Global Const rptErrInvalidFileVersion = 8511 ' (&H213F) The file version is invalid.
Global Const rptErrInvalidKey = 8504 ' (&H2138) The key is invalid.
Global Const rptErrInvalidName = 8503 ' (&H2137) The name is invalid.
Global Const rptErrInvalidPropertyValue = 380 ' (&H17C) A property value is invalid.
Global Const rptErrInvalidRowIndex = 8524 ' (&H214C) The row index is invalid.
Global Const rptErrInvalidRowset = 8522 ' (&H214A) The rowset is invalid.
Global Const rptErrInvalidTemplate = 8516 ' (&H2144) The ExportFormat template is invalid.
Global Const rptErrKeyNotFound = 8501 ' (&H2135) The key can't be found.
Global Const rptErrLineBreak = 8553 ' (&H2169) An error occurred wrapping lines of text in the control.
Global Const rptErrMarginsTooTall = 8541 ' (&H215D) Top and bottom margins are higher than the paper height.
Global Const rptErrMarginsTooWide = 8540 ' (&H215C) Left and right margins are wider than the paper width.
Global Const rptErrNotAllowedInReportGenerating = 8576 ' (&H2180) This property or method cannot be accessed during the generation of the report.
Global Const rptErrObjectNotFoundInCollection = 8574 ' (&H217E) The object can't be found in the collection.
Global Const rptErrOutOfMemory = 7 ' Out of memory.
Global Const rptErrPathNotFound = 8514 ' (&H2142) The path can't be found.
Global Const rptErrPrint = 8558 ' (&H216E) An error occurred during printing.
Global Const rptErrPrinterInfo = 8555 ' (&H216B) Error obtaining printer information.
Global Const rptErrPrintInit = 8557 ' (&H216D) An error occurred initializing the printer.
Global Const rptErrReportTooTall = 8571 ' (&H217B) Sections do not fit vertically on the page.
Global Const rptErrReportTooWide = 8542 ' (&H215E) Report width is larger than the paper width.
Global Const rptErrSectDontMatchData = 8570 ' (&H217A) Report sections do not match data source.
Global Const rptErrSharingViolation = 8515 ' (&H2143) Cannot access the file because it is being used by another process.
Global Const rptErrSubscriptRange = 9 ' The subscript is out of range.
Global Const rptErrTempFileName = 8550 ' (&H2166) Error generating temporary filename.
Global Const rptErrTempFileRead = 8554 ' (&H216A) Error opening or reading from temporary file.
Global Const rptErrTempFileWrite = 8552 ' (&H2168) Error creating or writing to temporary file.
Global Const rptErrTypeMismatch = 13 ' Type mismatch.
Global Const rptErrUnexpected = 8505 ' (&H2139) Unexpected error.
Global Const rptErrUnknown = 8502 ' (&H2136) General error.
' ExportFormat Constants
Global Const rptFmtHTML = 0 ' HTML format.
Global Const rptFmtText = 1 ' Text format.
Global Const rptFmtUnicodeText = 2 ' Unicode.
Global Const rptFmtUnicodeHTML_UTF8 = 3 ' HTML encoded in Universal Character Set (UTF - 8)
' FunctionType Constants
Global Const rptFuncSum = 0 ' Sum function.
Global Const rptFuncAve = 1 ' Average.
Global Const rptFuncMin = 2 ' Minimum
Global Const rptFuncMax = 3 ' Maximum.
Global Const rptFuncRCnt = 4 ' Counts the rows in the section.
Global Const rptFuncVCnt = 5 ' Counts the fields with non-null values.
Global Const rptFuncSDEV = 6 ' Calculates the standard deviation.
Global Const rptFuncSERR = 7 ' Calculates the standard error.
' LineSlant Constants
Global Const rptSlantNWSE = 0 ' Line slants from northwest to southeast.
Global Const rptSlantNESW = 1 ' Line slants from northeast to southwest.
' PageBreak Constants
Global Const rptPageBreakNone = 0 ' No page breaks on the section.
Global Const rptPageBreakBefore = 1 ' Page break occurs before the section.
Global Const rptPageBreakAfter = 2 ' Page break occurs after the section.
Global Const rptPageBreakBeforeAndAfter = 3 ' Page break occurs before and after the section.
' PageRange Constants
Global Const rptRangeAllPages = 0 ' Print or export all pages.
Global Const rptRangeFromTo = 1 ' Print or export only the named range of pages.
' PictureAlignment Constants
Global Const rptPATopLeft = 0 ' The picture appears at the top left.
Global Const rptPATop = 1 ' The picture appears at the top.
Global Const rptPATopRight = 2 ' The picture appears at the top right.
Global Const rptPARight = 3 ' The picture appears at the right.
Global Const rptPABottomRight = 4 ' The picture appears at the bottom right.
Global Const rptPABottom = 5 ' The picture appears at the bottom.
Global Const rptPABottomLeft = 6 ' The picture appears at the bottom left.
Global Const rptPALeft = 7 ' The picture appears at the left.
Global Const rptPACenter = 8 ' The picture appears centered.
' Shape Constants
Global Const rptShpRectangle = 0 ' Rectangle shape.
Global Const rptShpSquare = 1 ' Square shape.
Global Const rptShpOval = 2 ' Oval shape.
Global Const rptShpCircle = 3 ' Circle shape.
Global Const rptShpRoundedRectangle = 4 ' Rounded rectangle shape.
Global Const rptShpRoundedSquare = 5 ' Rounded square shape.
'1 DDE Constants
'linkerr (LinkError Event)
Global Const vbWrongFormat = 1 ' Another application requested data in wrong format
Global Const vbDDESourceClosed = 6 ' Destination application attempted to continue after source closed
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -