目录

# 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 MsgBox named constants

Name | Value
--- | ---
vbApplicationModal | 0
vbDefaultButton1 | 0
vbOKOnly | 0
vbOKCancel | 1
vbAbortRetryIgnore | 2
vbYesNoCancel | 3
vbYesNo | 4
vbRetryCancel | 5
vbCritical | 16
vbQuestion | 32
vbExclamation | 48
vbInformation | 64
vbDefaultButton2 | 256
vbDefaultButton3 | 512
vbDefaultButton4 | 768
vbSystemModal | 4096
vbMsgBoxHelpButton | 16384
vbMsgBoxSetForeground | 65536
vbMsgBoxRight | 524288
vbMsgBoxRtlReading | 1048576

### 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 - 垂直制表符

请支持我们!