在下面的内容里，每个表左边一栏的常数可以用来替代每个表中间一栏的值。
颜色常数
|
常数 |
值 |
描述 |
|
VbBlack |
&h00 |
黑色 |
|
VbRed |
&hFF |
红色 |
|
VbGreen |
&hFF00 |
绿色 |
|
VbYellow |
&hFFFF |
黄色 |
|
VbBlue |
&hFF0000 |
蓝色 |
|
VbMagenta |
&hFF00FF |
紫色 |
|
VbCyan |
&hFFFF00 |
橙色 |
|
VbWhite |
&hFFFFFF |
白色 |
比较常数
|
常数 |
值 |
描述 |
|
vbBinaryCompare |
0 |
二进制比较 |
|
vbTextCompare |
1 |
文本格式比较 |
|
vbDatebaseCompare |
2 |
根据数据库的信息进行比较 |
日期和时间常数
|
常数 |
值 |
描述 |
|
vbSunday |
1 |
星期日 |
|
vbMonday |
2 |
星期一 |
|
vbTuesday |
3 |
星期二 |
|
vbWednesday |
4 |
星期三 |
|
vbThuresday |
5 |
星期四 |
|
vbFriday |
6 |
星期五 |
|
vbSaturday |
7 |
星期六 |
|
VbFirstJan1 |
1 |
一月一号所在的星期 |
|
vbFirstFourDay |
2 |
一年中第一个具有至少四天的星期 |
|
vbFirstFullWeek |
3 |
一年的第一个全星期 |
|
vbUseSystem |
0 |
使用计算机区域设置的日期格式 |
|
VbUseSystemDayOfWeek |
0 |
根据系统设置使用星期的第一天 |
日期格式常数
|
常数 |
值 |
描述 |
|
vbGeneralDate |
0 |
根据系统设置显示日期或时间 |
|
vbLongDate |
1 |
以长日期格式显示日期 |
|
vbShortDate |
2 |
以短日期格式显示日期 |
|
vbLongTime |
3 |
以长时间格式显示时间 |
|
vbShortTime |
4 |
以短时间格式显示时间 |
消息框常数
下面的常数应用于MsgBox函数，用于指定消息框中的按钮和图标及指明缺省图标。
|
常数 |
值 |
描述 |
|
vbOKOnly |
0 |
仅显示OK按钮 |
|
vbOKCancel |
1 |
显示OK及Cancel按钮 |
|
vbAbortRetryIgnore |
2 |
显示Abort,Retry及Ignore按钮 |
|
vbYesNoCancel |
3 |
显示Yes,No及Cancel按钮 |
|
vbYesNo |
4 |
显示Yes及No按钮 |
|
vbRetryCancel |
5 |
显示Retry及Cancel按钮 |
|
vbCritical |
16 |
显示重要消息图标 |
|
vbQuestion |
32 |
显示警告询问图标 |
|
vbExclamation |
48 |
显示警告消息图标 |
|
vbInformation |
64 |
显示信息消息图标 |
|
vbDefaultButton1 |
0 |
第一个按钮是缺省按钮 |
|
vbDefaultButton2 |
256 |
第二个按钮是缺省按钮 |
|
vbDefaultButton3 |
512 |
第三个按钮是缺省按钮 |
|
vbDefaultButton4 |
768 |
第四个按钮是缺省按钮 |
在下表的常数是用于指定消息框是否是模态化性质
|
常数 |
值 |
描述 |
|
vbApplicationModal |
0 |
在用户响应消息框之前，当前的应用程序不会向下进行。 |
|
vbSystemModal |
4096 |
在用户响应消息框之前，所有的程序不会向下进行。 |
下面的常数指明哪一个按钮被按了
|
常数 |
值 |
描述 |
|
vbOK |
1 |
Ok按钮 |
|
vbCancel |
2 |
Cancel按钮 |
|
vbAbort |
3 |
Abort按钮 |
|
vbRetry |
4 |
Retry按钮 |
|
vbIgnore |
5 |
Ignore按钮 |
|
vbYes |
6 |
Yes按钮 |
|
vbNo |
7 |
No按钮 |
三态常数
|
常数 |
值 |
描述 |
|
TristateTrue |
-1 |
True(真) |
|
TristateFalse |
0 |
False（假） |
|
TristateUseDefault |
-2 |
使用缺省设置 |
字符串常数
|
常数 |
值 |
描述 |
|
vbCr |
chr(13) |
回车符 |
|
vbCrLf |
Chr(13)&Chr(10) |
回车换行符 |
|
vbFormFeed |
Chr(12) |
换表符 |
|
vbLf |
Chr(10) |
换行符 |
|
vbNewLine |
Chr(13)&Chr(10)orChr(10) |
适用于平台的新行符 |
|
vbNullchar |
Chr(0) |
值为0的字符 |
|
vbNullString |
0 |
空字符串 |
|
vbTab |
Chr(9) |
水平tab键 |
|
vbVerticalTab |
Chr(11) |
垂直tab键 |
变量体类型常数
|
常数 |
值 |
描述 |
|
vbEmpty |
0 |
未初始化（缺省〕 |
|
vbNull |
1 |
包含不正确的数据 |
|
vbInteger |
2 |
整数Integer子类型 |
|
vbLong |
3 |
长整数Long子类型 |
|
vbSingle |
4 |
单精度Single子类型 |
|
vbDouble |
5 |
双精度Double子类型 |
|
vbCurrency |
6 |
Currency子类型 |
|
vbDate |
7 |
Date子类型 |
|
vbString |
8 |
String子类型 |
|
vbObject |
9 |
对象 |
|
vbError |
10 |
Error子类型 |
|
vbBoolean |
11 |
Boolean子类型 |
|
vbVariant |
12 |
变量体(仅用于变量体数组) |
|
vbDataObject |
13 |
数据访问对象 |
|
vbDecimal |
14 |
Decimal子类型 |
|
vbByte |
17 |
Byte子类型 |
|
vbArray |
8192 |
数组 |
演示效果：
代码下载：
点击下载