Calendar 常数

可在代码中的任何地方用下列常数代替实际值：

常数	值	描述
vbCalGreg	0	指出使用的是阳历。
vbCalHijri	1	指出使用的是伊斯兰历法。

Color 常数

可在代码中的任何地方用下列常数代替实际值：

常数	值	描述
vbBlack	0x0	黑色
vbRed	0xFF	红色
vbGreen	0xFF00	绿色
vbYellow	0xFFFF	黄色
vbBlue	0xFF0000	蓝色
vbMagenta	0xFF00FF	紫红色
vbCyan	0xFFFF00	青色
vbWhite	0xFFFFFF	白色

CallType 常数

可在代码中的任何地方用下列常数代替实际值：

常数	值	描述
vbMethod	1	指出已经调用了一个方法。
vbGet	2	指出一个Property Get 过程。
vbLet	4	指出一个 Property Let 过程。
vbSet	8	指出一个 Property Set 过程。

下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值：

Comparison常数

常数	值	描述
VbUseCompareOption	-1	使用Option Compare语句的设置进行比较。
VbBinaryCompare	0	进行二进制的比较。
VbTextCompare	1	进行文字的比较。
vbDatabaseCompare	2	用于 Microsoft Access(仅限于Windows)，进行以数据库所含信息为基础的比较。

Compiler 常数

Visual Basic for Applications 定义了一些不能与 #If...Then...#Else 指令一起使用的常数。这些常数除了其范围是全局的；也就是说，除了可在工程中到处应用，在功能上与 #If...Then...#Else 指令定义的常数相同。

在 16 位开发平台上，编译常数定义如下：

常数	值	描述
Win16	True	指出开发环境是 16 位。
Win32	False	指出开发环境不是 32 位。

在 32 位开发平台上，编译常数定义如下：

常数	值	描述
Vba6	True	指出开发环境是 Visual Basic for Applications, version 6.0。
Vba6	False	指出开发环境不是Visual Basic for Applications, version 6.0。
Win16	False	指出开发环境不是 16 位。
Win32	True	指出开发环境是 32 位。

Mac	False	指出开发环境不是 Macintosh。
Win16	False	指出开发环境不是 16位的。
Win32	False	指出开发环境不是 32位的。
Mac	True	指出开发环境是 Macintosh。

注意 这些常数是由 Visual Basic 提供的，所以不能在任何层次中用相同名称定义自己的常数。

 

Date 常数

可在代码中的任何地方用下列常数代替实际值：

参数值

firstdayofweek 参数具有以下这些值：

常数	值	描述
vbUseSystem	0	使用 NLS API 设置。
vbSunday	1	星期日（缺省）
vbMonday	2	星期一
vbTuesday	3	星期二
vbWednesday	4	星期三
vbThursday	5	星期四
vbFriday	6	星期五
vbSaturday	7	星期六

firstdayofyear 参数具有以下这些值：

常数	值	描述
vbUseSystem	0	使用 NLS API 设置。
VbUseSystemDayOfWeek	0	使用系统设置中为星期的第一天指定的星期数。
VbFirstJan1	1	由 1 月 1 日所在的那个星期开始（缺省）。
vbFirstFourDays	2	由新的一年中第一个至少有 4 天的星期开始。
vbFirstFullWeek	3	由一年中第一个完整的星期开始。

返回值

常数	值	描述
vbSunday	1	星期日
vbMonday	2	星期一
vbTuesday	3	星期二
vbWednesday	4	星期三
vbThursday	5	星期四
vbFriday	6	星期五
vbSaturday	7	星期六

日期格式常数

仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时，才可以使用这些常数 。

常数	值	描述
vbGeneralDate	0	显示日期和/或时间。对于一个实数，显示日期和时间。如果没有小数部分，则仅显示日期。如果没有整数部分，则仅显示时间。日期和时间的显示由系统设置值确定。
vbLongDate	1	用计算机区域设置值指定的长日期格式显示日期。
vbShortDate	2	用计算机区域设置值指定的短日期格式显示日期。
vbLongTime	3	用计算机区域设置值指定的长时间格式显示时间。
vbShortTime	4	用计算机区域设置值指定的短时间格式显示时间。

Dir、GetAttr 和 SetAttr 常数

可在代码中的任何地方用下列常数代替实际值：

常数	值	描述
vbNormal	0	正常的（Dir 和 SetAttr 的缺省值）
vbReadOnly	1	只读的
vbHidden	2	隐藏的
vbSystem	4	系统文件
vbVolume	8	卷标
vbDirectory	16	目录或文件夹
vbArchive	32	文件自上一次备份后已经改变
vbAlias	64	在 Macintosh上，标识符是一个别名。

在Macintosh上，只有VbNormal、 vbReadOnly、 vbHidden 和vbAlias是可用的。

驱动器类型常数

仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时，才可以使用这些常数。

常数	值	描述
Unknown	0	不能确定驱动器类型。
Removable	1	驱动器具有可删除介质。包括所有软盘驱动器和许多其它种类的存储设备。
Fixed	2	驱动器具有固定介质（不可删除的）。包括可删除硬盘在内的所有硬盘驱动器。
Remote	3	网络驱动器。包括在网络上任何地方都可以共享的驱动器。
CDROM	4	驱动器是一个CD-ROM。包括只读的CD-ROM和可读写的CD-ROM。
RAMDisk	5	驱动器是本地计算机上的一块随机存取内存（RAM），它工作起来就象是磁盘驱动器一样。

文件属性常数

仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时，才可以使用这些常数。

常数	值	描述
Normal	0	普通文件。没有设置属性。
ReadOnly	1	只读文件。属性是可读/写。
Hidden	2	隐藏文件。属性是可读/写。
System	4	系统文件。属性是可读/写。
Volume	8	磁盘驱动器卷标。属性是只读。
Directory	16	文件夹或目录。属性是只读。
Archive	32	自上次备份后已经改变的文件。属性是可读/写。
Alias	64	链接或快捷方式。属性是只读。
Compressed	128	压缩文件。属性是只读。

 

文件输入/输出常数

仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时，才可以使用这些常数。

常数	值	描述
ForReading	1	打开文件用于只读操作。不能对文件进行写操作。
ForWriting	2	打开文件用于写操作。如果存在具有相同文件名的文件，文件原有的内容被覆盖。
ForAppending	8	打开文件并向文件的结尾写入。

IMEStatus 常数

可在代码中的任何地方用下列常数代替实际值。

日文区域的常数如下所示：

常数	值	描述
vbIMEModeNoControl	0	没有安装 IME（缺省）
vbIMEModeOn	1	打开 IME
vbIMEModeOff	2	关闭 IME
vbIMEModeDisable	3	无效的 IME
vbIMEModeHiragana	4	完整宽度 Hiragana 模式
vbIMEModeKatakana	5	完整宽度 Katakana 模式
vbIMEModeKatakanaHalf	6	半宽度 Katakana 模式
vbIMEModeAlphaFull	7	完整宽度 Alphanumeric 模式

vbIMEModeAlpha

8

半宽度 Alphanumeric 模式

韩国地区的常数如下所示：

常数	值	描述
vbIMEModeAlphaFull	7	完整宽度 Alphanumeric 模式
vbIMEModeAlpha	8	半宽度 Alphanumeric 模式
vbIMEModeHangulFull	9	完整宽度 Hangul 模式
vbIMEModeHangul	10	半宽度 Hangul 模式

中文地区的常数值如下：

常数	值	描述
vbIMEModeNoControl	0	没有安装 IME （缺省）
vbIMEModeOn	1	IME 打开
vbIMEModeOff	2	IME off

 

Keycode 常数

可在代码中的任何地方用下列常数代替实际值：

常数	值	描述
vbKeyLButton	0x1	鼠标左键
vbKeyRButton	0x2	鼠标右键
vbKeyCancel	0x3	CANCEL 键
vbKeyMButton	0x4	鼠标中键
vbKeyBack	0x8	BACKSPACE 键
vbKeyTab	0x9	TAB 键
vbKeyClear	0xC	CLEAR 键
vbKeyReturn	0xD	ENTER 键
vbKeyShift	0x10	SHIFT 键
vbKeyControl	0x11	CTRL 键
vbKeyMenu	0x12	MENU 键
vbKeyPause	0x13	PAUSE 键
vbKeyCapital	0x14	CAPS LOCK 键
vbKeyEscape	0x1B	ESC 键
vbKeySpace	0x20	SPACEBAR 键
vbKeyPageUp	0x21	PAGE UP 键
vbKeyPageDown	0x22	PAGE DOWN 键
vbKeyEnd	0x23	END 键
vbKeyHome	0x24	HOME 键
vbKeyLeft	0x25	LEFT ARROW 键
vbKeyUp	0x26	UP ARROW 键
vbKeyRight	0x27	RIGHT ARROW 键
vbKeyDown	0x28	DOWN ARROW 键
vbKeySelect	0x29	SELECT 键
vbKeyPrint	0x2A	PRINT SCREEN 键
vbKeyExecute	0x2B	EXECUTE 键
vbKeySnapshot	0x2C	SNAPSHOT 键
vbKeyInsert	0x2D	INSERT 键
vbKeyDelete	0x2E	DELETE 键
vbKeyHelp	0x2F	HELP 键
vbKeyNumlock	0x90	NUM LOCK 键

A 至 Z 键与 A – Z 字母的 ASCII 码相同：

常数	值	描述
vbKeyA	65	A 键
vbKeyB	66	B 键
vbKeyC	67	C 键
vbKeyD	68	D 键
vbKeyE	69	E 键
vbKeyF	70	F 键
vbKeyG	71	G 键
vbKeyH	72	H 键
vbKeyI	73	I 键
vbKeyJ	74	J 键
vbKeyK	75	K 键
vbKeyL	76	L 键
vbKeyM	77	M 键
vbKeyN	78	N 键
vbKeyO	79	O 键
vbKeyP	80	P 键
vbKeyQ	81	Q 键
vbKeyR	82	R 键
vbKeyS	83	S 键
vbKeyT	84	T 键
vbKeyU	85	U 键
vbKeyV	86	V 键
vbKeyW	87	W 键
vbKeyX	88	X 键
vbKeyY	89	Y 键
vbKeyZ	90	Z 键

0 至 9 键与数字 0 – 9 的 ASCII 码相同：

常数		值		描述
vbKey0		48		0 键
vbKey1		49		1 键
vbKey2		50		2 键
vbKey3		51		3 键
vbKey4		52		4 键
vbKey5		53		5 键
vbKey6		54		6 键
vbKey7		55		7 键
vbKey8		56		8 键
vbKey9		57		9 键

下列常数代表数字键盘上的键：

常数		值		描述
vbKeyNumpad0		0x60		0 键
vbKeyNumpad1		0x61		1 键
vbKeyNumpad2		0x62		2 键
vbKeyNumpad3		0x63		3 键
vbKeyNumpad4		0x64		4 键
vbKeyNumpad5		0x65		5 键
vbKeyNumpad6		0x66		6 键
vbKeyNumpad7		0x67		7 键
vbKeyNumpad8		0x68		8 键
vbKeyNumpad9		0x69		9 键
vbKeyMultiply		0x6A		MULTIPLICATION SIGN (*) 键
vbKeyAdd		0x6B		PLUS SIGN (+) 键
vbKeySeparator		0x6C		ENTER 键
vbKeySubtract		0x6D		MINUS SIGN (–) 键
vbKeyDecimal		0x6E		DECIMAL POINT (.) 键
vbKeyDivide		0x6F		DIVISION SIGN (/) 键

下列常数代表功能键：

常数		值		描述
vbKeyF1		0x70		F1 键
vbKeyF2		0x71		F2 键
vbKeyF3		0x72		F3 键
vbKeyF4		0x73		F4 键
vbKeyF5		0x74		F5 键
vbKeyF6		0x75		F6 键
vbKeyF7		0x76		F7 键
vbKeyF8		0x77		F8 键
vbKeyF9		0x78		F9 键
vbKeyF10		0x79		F10 键
vbKeyF11		0x7A		F11 键
vbKeyF12		0x7B		F12 键
vbKeyF13		0x7C		F13 键
vbKeyF14		0x7D		F14 键
vbKeyF15		0x7E		F15 键
vbKeyF16		0x7F		F16 键

Miscellaneous 常数

下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值：

常数	等于	描述
vbCrLf	Chr(13) + Chr(10)	回车符与换行符结合
vbCr	Chr(13)	回车符
vbLf	Chr(10)	换行符
vbNewLine	Chr(13) + Chr(10) or, on the Macintosh, Chr(13)	平台指定的新行字符；适用于当前平台
vbNullChar	Chr(0)	值为 0 的字符
vbNullString	值为 0 的字符串	用来调用外部过程；与长度为零的字符串 ("") 不同
vbObjectError	-2147221504	用户定义的错误号应当大于该值，例如： Err.Raise Number = vbObjectError + 1000
vbTab	Chr(9)	Tab 字。
vbBack	Chr(8)	退格字符
vbFormFeed	Chr(12)	在 Microsoft Windows or on the Macintosh 中没有作用
vbVerticalTab	Chr(11)	在 Microsoft or on the Macintosh Windows 中没有作用