Basic Constants

在 Basic 程序中使用的常量

逻辑值常量

名称	类型	值
True	Boolean	1
False	Boolean	0

示例:


            Dim bPositive as Boolean
            bPositive = True

数学常量

名称	类型	值
Pi	Double	3.14159265358979

示例:


            Function Rad2Deg( aRad as Double) As Double
             Rad2Deg = aRad * 180.00 / Pi
            End Function

对象常量

名称	类型	用法
Empty	Variant	「Empty」值表明这个变量还未初始化。
Null	null	表明这个变量尚未包含数据。
Nothing	Object	将某个变量赋值为「Nothing」对象，以移除先前的值。

示例:


            SubExampleEmpty
                Dim sVar As Variant
                sVar = Empty
                Print IsEmpty(sVar) ' Returns True
            End Sub
            Sub ExampleNull
                Dim vVar As Variant
                MsgBox IsNull(vVar)
            End Sub
            Sub ExampleNothing
                Dim oDoc As Object
                Set oDoc = ThisComponent
                Print oDoc.Title
                oDoc = Nothing
                Print oDoc ' Error
            End Sub

MsgBox Named Constants

已命名的常量	整数值	定义
MB_OK	0	仅显示「确定」按钮。
MB_OKCANCEL	1	显示「确定」和「取消」按钮。
MB_ABORTRETRYIGNORE	2	显示「中止」「重试」和「忽略」按钮。
MB_YESNOCANCEL	3	显示「是」「否」和「取消」按钮。
MB_YESNO	4	显示「是」和「否」按钮。
MB_RETRYCANCEL	5	显示「重试」和「取消」按钮。
MB_ICONSTOP	16	在对话框中添加「停止」图标。
MB_ICONQUESTION	32	在对话框中添加「问号」图标。
MB_ICONEXCLAMATION	48	在对话框中添加「感叹号」图标。
MB_ICONINFORMATION	64	在对话框中添加「信息」图标。
	128	将对话框中的第一个按钮作为默认按钮。
MB_DEFBUTTON2	256	将对话框中的第二个按钮作为默认按钮。
MB_DEFBUTTON3	512	将对话框中的第三个按钮作为默认按钮。

GetAttr Named Constants

已命名常量	值	定义
ATTR_NORMAL	0	普通文件。
ATTR_READONLY	1	只读文件。
ATTR_HIDDEN	2	隐藏的文件
ATTR_SYSTEM	4	系统文件
ATTR_VOLUME	8	返回卷的名称
ATTR_DIRECTORY	16	仅返回目录名称。
ATTR_ARCHIVE	32	上一次备份后文件已被修改 (存档位)。

Data Type Named Constants

TypeName values	Named constant	VarType values	变量类型
…()		8192	Array of variables
Boolean		11	Boolean variable
Byte		17	Byte variable
Date	V_DATE	7	Date variable
Currency	V_CURRENCY	6	Currency variable
Double	V_DOUBLE	5	Double-precision floating-point variable
Error		11	Error type variable
Integer	V_INTEGER	2	Integer variable
Long	V_LONG	3	Long integer variable
Object		9	Object variable
Single	V_SINGLE	4	Single-precision floating-point variable
String	V_STRING	8	String variable
Variant		12	Variant variable (can contain all types specified by the definition)
Empty	V_EMPTY	0	Uninitialized Variant variable
Null	V_NULL	1	无有效数据

更多 VBA 常量

以下常量将会在启用 VBA 兼容模式时可用

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

VBA Color Named Constants

Named constant	Red, Green, Blue composition
vbBlack	RGB(0, 0, 0)
vbBlue	RGB(0, 0, 255)
vbCyan	RGB(0, 255, 255)
vbGreen	RGB(0, 255, 0)
vbMagenta	RGB(255, 0, 255)
vbRed	RGB(255, 0, 0)
vbYellow	RGB(255, 255, 0)
vbWhite	RGB(255, 255, 255)

Variable Type Named Constants

Named constant	Decimal value
vbArray	8192
vbBoolean	11
vbByte	17
vbCurrency	6
vbDataObject	13
vbDate	7
vbDecimal	14
vbDouble	5
vbEmpty	0
vbError	10
vbInteger	2
vbLong	3
vbNull	1
vbObject	9
vbSingle	4
vbString	8
vbUserDefinedType	36
vbVariant	12

FormatDateTime VBA Named Constants

已命名常量	数值	说明
vbGeneralDate	0	以系统的「通用日期」设置显示日期与/或时间。如果只有日期，则不显示时间；如果只有时间，则不显示日期。
vbLongDate	1	使用计算机区域设置指定的长日期格式显示日期。
vbShortDate	2	使用计算机区域设置指定的短日期格式显示日期。
vbLongTime	3	以系统「长时间」设置定义的格式显示时间。
vbShortTime	4	使用 24 小时格式显示时间 (hh:mm)。

StrConv VBA Named Constants

Conversion	Value	Description
vbUpperCase	1	Converts Text characters to uppercase.
vbLowerCase	2	Converts Text characters lowercase.
vbProperCase	3	Converts the first letter of every word in Text to uppercase.
vbWide	4	Converts narrow (half-width) characters in Text to wide (full-width) characters.
vbNarrow	8	Converts wide (full-width) characters in Text to narrow (half-width) characters.
vbKatakana	16	Converts Hiragana characters in Text to Katakana characters.
vbHiragana	32	Converts Katakana characters in Text to Hiragana characters.
vbUnicode	64	Converts Text characters to Unicode characters using the default code page of the system.
vbFromUnicode	128	Converts Text characters from Unicode to the default code page of the system.

WeekDayName VBA Named Constants

Value	VBA Constant	Description
0	vbUseSystemDayOfWeek	Use system locale settings
1	vbSunday	Sunday (default)
2	vbMonday	Monday
3	vbTuesday	Tuesday
4	vbWednesday	Wednesday
5	vbThursday	Thursday
6	vbFriday	Friday
7	vbSaturday	Saturday

Miscellaneous VBA Named Constants

已命名常量	十六进制 (浮点) 值	说明
vbTrue	-1	vbTriState 枚举的一部分。
vbFalse	0	vbTriState 枚举的一部分。
vbUseDefault	-2	vbTriState 枚举的一部分。
vbCr	\x0D (13)	CR - 回车
vbCrLf	\x0D\x0A (13 10)	CRLF - 回车与换行
vbFormFeed	\x0c (12)	FF - 换页
vbLf	\x0A (10)	LF - 换行
vbNewLine	\x0D\x0A (13 10) for Windows \x0A (10) for other systems	LF 或 CRLF
vbNullString	""	Null 字符串
vbTab	\x09 (9)	HT - 水平制表符
vbVerticalTab	\x0B (11)	VT - 垂直制表符