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