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

上一次备份后文件已被修改 (存档位)。


VarType Named Constants

keyword

已命名常量

VarType

变量类型

Boolean

11

布尔变量

Byte

17

Byte variable

Date

V_DATE

7

日期变量

Currency

V_CURRENCY

6

货币变量

Double

V_DOUBLE

5

双浮点变量

Integer

V_INTEGER

2

整数变量

Long

V_LONG

3

长整数变量

Object

9

对象变量

Single

V_SINGLE

4

单浮点变量

String

V_STRING

8

字符串变量

Variant

12

变体变量 (可以含有由定义指定的所有类型)

Empty

V_EMPTY

0

变量未初始化

Null

V_NULL

1

无有效数据


更多 VBA 常量

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

warning

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


请支持我们!