首页 > 开发 > 综合 > 正文

VBA 中要用到的常数

2024-07-21 23:03:52
字体:
来源:转载
供稿:网友

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上,只有VbNormalvbReadOnly、 vbHiddenvbAlias是可用的。
 

驱动器类型常数

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

 

常数 描述
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 中没有作用

 

 
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表