VB常用语句.docx

1、VB常用语句VB常用语句.txt都是一个山的狐狸，你跟我讲什么聊斋，站在离你最近的地方，眺望你对别人的微笑，即使心是百般的疼痛 只为把你的一举一动尽收眼底刺眼的白色，让我明白什么是纯粹的伤害。 VB常用语句 关键词： VB 语句： 1.AppActivate语句 激活一应用程序窗口。 语法 AppActivate title, wait AppActivate 语句的语法具有以下几个命名参数： 部分 描述 title 必需的。字符串表达式，所要激活的应用程序窗口的标题。可以使用 Shell 函数返回的任务识别码来替换 title，以激活应用程序。 wait 可选的。Boolean值，说明在激活

2、另一个应用程序之前调用的应用程序是否有焦点。如果为 False（缺省），那么，即使调用的应用程序 没有焦点，也直接激活指定的应用程序。如果为 True，则调用的应用程序会等到有焦点后，才激活指定的应用程序。 说明 AppActivate 语句将焦点移动到命名的应用程序或窗口，但并不影响焦点是否最大化或最小化。当用户采取行动改变焦点或将窗口关闭时，就 会将焦点从活动的应用程序窗口移动出去。可用 Shell 函数启动一个应用程序并设置窗口样式。 在决定激活哪个应用程序时，请将 title 与每一个运行中的应用程序的标题字符串进行比较。如果没有完全匹配，就激活任何这样的应用程序 ，其标题字符串以 t

3、itle 开头。如果以 title 命名的应用程序有很多实例，则激活任何一个实例。 2.Beep语句 通过计算机喇叭发出一个声调。 语法 Beep 说明 呼叫的频率与时间长短取决于硬件和系统软件，并随电脑不同而不同。 3.Call语句 返回 将控制权转移到一个 Sub 过程，Function 过程，或动态连接库 (DLL)过程。 语法 Call name argumentlist Call 语句的语法具有以下几个部分： 部分 描述 Call 可选参数；关键字。如果指定了这个关键字，则 argumentlist 必须加上括号，例如： Call MyProc(0) name 必要参数，要调用的过程

4、名称。 argumentlist 说明 调用一个过程时，并不一定要使用 Call 关键字。如果使用 Call 关键字来调用一个需要参数的过程，argumentlist 就必须要加上括号。如果 省略了 Call 关键字，那么也必须要省略 argumentlis 外面的括号。如果使用 Call 语法来调用内建函数或用户定义函数，则函数的返回值将 被丢弃。 若要将整个数组传给一个过程，使用数组名，然后在数组名后加上空括号。 4.ChDir语句 返回 改变当前的目录或文件夹。 语法 ChDir path 必要的 path 参数是一个字符串表达式，它指明哪个目录或文件夹将成为新的缺省目录或文件夹。pat

5、h 可能会包含驱动器。如果没有指定驱动 器，则 ChDir 在当前的驱动器上改变缺省目录或文件夹。 说明 ChDir 语句改变缺省目录位置，但不会改变缺省驱动器位置。例如，如果缺省的驱动器是 C，则下面的语句将会改变驱动器 D 上的缺省目录， 但是 C 仍然是缺省的驱动器： ChDir D:TMP 5.ChDrive语句 返回 改变当前的驱动器。 语法 ChDrive drive 必要的 drive 参数是一个字符串表达式，它指定一个存在的驱动器。如果使用零长度的字符串 ()，则当前的驱动器将不会改变。如果 drive 参数中有多个字符，则 ChDrive 只会使用首字母。 6.Close语句

6、 返回 关闭 Open 语句所打开的输入/输出 (I/O) 文件。 语法 Close filenumberlist 可选的 filenumberlist参数为一个或多个文件号，其中 filenumber 为任何有效的文件号，语法如下： #filenumber , #filenumber . . . 说明 若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。 当关闭 Output 或 Append 打开的文件时，将属于此文件的最终输出缓冲区写入操作系统缓冲区。所有与该文件相关联的缓冲区空间都被释放 。 在执行 Close 语句时，文件与其文件号之间的关联将终结。 7

7、.Const语句 返回 声明用于代替文字量的常数。 语法 Public | Private Const constname As type = expression Const 语句的语法包含下面部分： 部分 描述 Public 可选的。该关键字用于在模块级别中声明在所有模块中对所有过程都可以使用的常数。在过程中不能使用。 Private 可选的。该关键字用于在模块级声明只能在包含该声明的模块中使用的常数。不能在过程中使用。 constname 必需的。常数的名称；遵循标准的变量命名约定。 type 可选的。常数的数据类型；可以是Byte、布尔、Integer、Long、Currency、Si

8、ngle、Double、Decimal（目前尚不支持）、Date、String 或 Variant。所声明的每个变量都要使用一个单独的 As 类型子句。 expression 必需的。文字，其它常数，或由除 Is 之外的任意的算术操作符和逻辑操作符所构成的任意组合。 说明 在缺省情况下常数是私有的。过程中的常数总是私有的；它们的可见性无法改变。在标准模块中，可以用 Public 关键字来改变模块级常数可 见性的缺省值。不过，在类模块中，常数只能是私有的，而且用 Public 关键字也不能改变其可见性。 为了在一行中声明若干个常数，可以使用逗号将每个常数赋值分开。用这种方法声明常数时，如果使用了

9、 Public 或 Private 关键字，则该关 键字对该行中所有常数都有效。 在给常量赋值的表达式中，不能使用变量，用户自定义的函数，或 Visual Basic 的内部函数（如 Chr）。 注意 常数可以使程序更具可读性，以及易于修改。在程序运行时，常数不会象变量那样无意中被改变。 如果在声明常数时没有显式地使用 As type 子句，则该常数的数据类型是最适合其表达式的数据类型。 在 Sub、Function 或 Property 过程中声明的常数都是该过程的局部常数。在过程外声明的常数，在包含该声明的模块中被定义。在可以使用 表达式的地方，都可以使用常数。 8.Date语句 返回 设

10、置当前系统日期。 语法 Date = date 对于运行 Microsoft Windows 95 的系统，要设置的 date 必须介于 1980 年 1月 1 日与 2099 年 12 月 31 日之间。对于运行 Microsoft Windows NT 的系统，date 必须介于公元 1980 年 1 月 1 日到 2079 年 12 月 31 日之间。 9.Declare语句 返回 用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。 语法 1 Public | Private Declare Sub name Lib libname Alias aliasname (arg

11、list) 语法 2 Public | Private Declare Function name Lib libname Alias aliasname (arglist) As type Declare 语句的语法包含下面部分： 部分 描述 Public 可选的。用于声明对所有模块中的所有其它过程都可以使用的过程。 Private 可选的。用于声明只能在包含该声明的模块中使用的过程。 Sub 可选的（但 Sub 或 Function 二者需选其一）。表示该过程没有返回值。 Function 可选的（但 Sub 或 Function 二者需选其一）。表示该过程会返回一个可用于表达式的值。 n

12、ame 必需的。任何合法的过程名。注意动态链接库的入口处（entry points）区分大小写。 Lib 必需的。指明包含所声明过程的动态链接库或代码资源。所有声明都需要 Lib 子句。 libname 必需的。包含所声明的过程动态链接库名或代码资源名。 Alias 可选的。表示将被调用的过程在动态链接库 (DLL) 中还有另外的名称。当外部过程名与某个关键字重名时，就可以使用这个参数。当动 态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时，也可以使用 Alias。如果该动态链接库过程中的某个字符不符 合动态链接库的命名约定时，也可以使用 Alias。 aliasname

13、可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号 (#)，则 aliasname 是动态链接库中该过程的入口处的名称 。如果首字符是 (#)，则随后的字符必须指定该过程的入口处的顺序号。 arglist 可选的。代表调用该过程时需要传递的参数的变量表。 type 可选的。Function 过程返回值的数据类型；可以是 Byte、布尔、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持 ）、Date、String（只支持变长）或 Variant，用户定义类型，或对象类型。 arglist 参数的语法以及语法各个部分如下： Optio

14、nal ByVal | ByRef ParamArray varname( ) As type 部分 描述 Optional 可选的。表示参数不是必需的。如果使用该选项，则 arglist 中的后续参数都必需是可选的，而且必须都使用 Optional 关键字声 明。如果使用了 ParamArray，则任何参数都不能使用 Optional。 ByVal 可选的。表示该参数按值传递。 ByRef 表示该参数按地址传递。 ByRef 是 Visual Basic 的缺省选项。 ParamArray 可选的。只用于 arglist 的最后一个参数，表示最后的参数是一个 Variant 元素的 Opti

15、onal 的数组。使用 ParamArray 关键字 可以提供任意数目的参数。ParamArray 关键字不能与 ByVal、ByRef或 Optional 一起使用。 varname 必需的。代表传给该过程的参数的变量名；遵循标准的变量命名约定。 ( ) 对数组变量是必需的。指明 varname 是一个数组。 type 可选的。传递给该过程的参数的数据类型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支 持）、Date、String（只支持变长）、Object、Variant、用户自定义的类型或对象类型。

16、说明 对Function 过程而言，过程的数据类型决定其返回值的数据类型。可以在 arglist 之后使用 As 子句来指定函数返回值的数据类型。在 arglist 中，可以使用 As 子句来指定任何传给该过程的参数的数据类型。不单可以指定为任何标准数据类型，还可以在 arglist 中指定 As Any 来禁止类型检查，从而允许将任意数据类型传递给该过程。 空圆括号表示该 Sub 或 Function 过程没有参数，且 Visual Basic 应确保不会传递任何参数。在下面的示例中，First 不带任何参数。如果 对 First 的调用中使用了参数，就会产生错误： Declare Sub

17、First Lib MyLib () 如果带参数表，则每次调用该过程时都要检查参数的个数和类型。在下面的示例中，First 有一个 Long 参数： Declare Sub First Lib MyLib (X As Long) 注意 在 Declare 语句的参数表中不能有定长的字符串；只有变长的字符串才能传给过程。定长的字符串可以作为过程参数使用，但在传递前 都要被转换为变长的字符串。 注意 当所调用的外部过程需要一个值为 0 的字符串时，就要使用 vbNullString 常数。该常数与零长度字符串 () 是不相同的。 10.Deftype语句 在模块级别上，为变量和传给过程的参数，设置

18、缺省数据类型，以及为其名称以指定的字符开头的 Function 和 Property Get 过程，设置返 回值类型。 语法 DefBool letterrange, letterrange . . . DefByte letterrange, letterrange . . . DefInt letterrange, letterrange . . . DefLng letterrange, letterrange . . . DefCur letterrange, letterrange . . . DefSng letterrange, letterrange . . . DefDbl

19、letterrange, letterrange . . . DefDec letterrange, letterrange . . . DefDate letterrange, letterrange . . . DefStr letterrange, letterrange . . . DefObj letterrange, letterrange . . . DefVar letterrange, letterrange . . . 所需的 letterrange 参数遵循下述语法： letter1-letter2 letter1 和 letter2 参数指定设置缺省数据类型的名称范围。

20、每个参数都是指变量，参数和 Function 过程，或 Property Get 过程名称的首 字母，且参数可以是字母表中的任意字母。letterrange 中不区分字母的大小写。 说明 语句的名字就确定相应的数据类型： 语句 数据类型 DefBool 布尔 DefByte Byte DefInt Integer DefLng Long DefCur Currency DefSng Single DefDbl Double DefDec Decimal（目前尚不支持） DefDate Date DefStr String DefObj Object DefVar Variant 例如，在下面的

21、程序段中，Message 就是一个字符串变量： DefStr A-Q . . . Message = Out of stack space. Deftype 语句只在使用该语句的模块中有效。例如，一个模块中的 DefInt 语句只对在该模块中声明的变量和传给过程的参数的缺省数据类型 ，以及 Function 和 Property Get 过程的返回值的类型有效；而其它模块中的变量、参数、以及返回值的缺省数据类型就不受影响。如果不 用 Deftype 语句显式地声明，则所有变量、参数、Function 过程、以及 Property Get 过程的缺省数据类型都是 Variant。 当指定字符范围

22、时，通常为以字符集的前 128 个字符中的字符开始的变量定义数据类型。不过，如果指定的字符范围是A-Z，则将所有的变量 ，包括以字符集的扩展部分(128-255) 中的国际字符开始的变量的缺省类型都设为指定的类型。 在指定了A-Z 范围之后，就不能再使用 Deftype 语句来重新定义任何子范围的变量了。在指定一个范围后，如果另一个 Deftype 语句定义的 范围中含有前面已定义的字符，就会产生错误。不过，不管变量是否已定义，都可以使用带 As type 子句的 Dim 语句来显式指定其数据类型 。例如，可以在模块级使用如下代码将一个缺省数据类型为 Integer 的变量定义为 Double

23、： DefInt A-Z Dim TaxRate As Double Deftype 语句对用户定义类型中的元素无影响，因为这些元素必须显式声明。 11.deletsetting 在 Windows 注册表中，从应用程序项目里删除区域或注册表项设置。 语法 DeleteSetting appname, section, key DeleteSetting 语句的语法具有下列命名参数： 部分 描述 appname 必需的。字符串表达式，包含应用程序或工程的名称，区域或注册表项用于这些应用程序或工程。 section 必要。字符串表达式，包含要删除注册表项设置的区域名称。如果只有 appname

24、和 section，则将指定的区域连同所有有关的注册表 项设置都删除。 key 可选。字符串表达式，包含要删除的注册表项设置。 说明 如果提供了所有参数，则删除指定的注册表项设置。如果试图使用不存在的区域或注册表项设置上的 DeleteSetting 语句，则发生一个运行时 错误。 12.dim 声明变量并分配存储空间。 语法 Dim WithEvents varname(subscripts) As New type , WithEvents varname(subscripts) As New type . . . Dim 语句的语法包含下面部分： 部分 描述 WithEvents 可选的

25、。关键字，说明 varname 是一个用来响应由 ActiveX 对象触发的事件的对象变量。只有在类模块中才是合法的。使用 WithEvents，可以声明任意个所需的单变量，但不能使用 WithEvents 创建数组。New 和 WithEvents 不能一起使用。 varname 必需的。变量的名称；遵循标准的变量命名约定。 subscripts 可选的。数组变量的维数；最多可以定义 60 维的多维数组。subscripts 参数使用下面的语法： lower To upper , lower To upper . . . 如果不显式指定 lower，则数组的下界由 Option Base 语

26、句控制。如果没有使用 Option Base 语句，则下界为 0。 New 可选的。可隐式地创建对象的关键字。如果使用 New 来声明对象变量，则在第一次引用该变量时将新建该对象的实例，因此不必使用 Set 语句来给该对象引用赋值。New 关键字不能声明任何内部数据类型的变量，以及从属对象的实例，也不能与 WithEvents 一起使用。 type 可选的。变量的数据类型；可以是 Byte、布尔、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、 String（对变长的字符串）、String * length （对定长的字符串）、

27、Object、Variant、用户定义类型、或对象类型。所声明的每个变量都要 一个单独的 As type 子句。 说明 在模块级别中用 Dim 声明的变量，对该模块中的所有过程都是可用的。在过程级别中声明的变量，只在过程内是可用的。 可以使用 Dim 语句在模块级或过程级中声明变量的数据类型。例如，下面的语句声明了 Integer 类型的变量。 Dim NumberOfEmployees As Integer 也可以使用 Dim 语句来声明变量的对象类型。下面的语句为工作表的新建实例声明了一个变量。 Dim X As New Worksheet 如果定义对象变量时没有使用 New 关键字，则在

28、使用该变量之前，必须使用 Set 语句将该引用对象的变量赋值为一个已有对象。在该变量被 赋值之前，所声明的对象变量有一个特定值 Nothing，这个值表示该变量没有指向任一个对象实例。 也可以使用带空圆括号的 Dim 语句来定义动态数组。在定义动态数组后，可以在过程内使用 ReDim 语句来定义该数组的维数和元素。如果试 图在 Private，Public 或 Dim 语句中重新定义一个已显式定义了大小的数组的维数时，就会发生错误。 如果不指定数据类型或对象类型，且在模块中没有 Deftype 语句，则该变量按缺省设置是 Variant 类型。 当初始化变量时，数值变量被初始化为 0，变长的字

29、符串被初始化为一个零长度的字符串 ()，而定长的字符串则用 0 填充。Variant 变量 被初始化为 Empty。用户自定义类型的变量的每个元素作为各自独立的变量进行初始化。 注意 当在过程中使用 Dim 语句时，通常将 Dim 语句放在过程的开始处。 13.do.loop 当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。 语法 Do While | Until condition statements Exit Do statements Loop 或者可以使用下面这种语法： Do statements Exit Do statements Loop Wh

30、ile | Until condition Do Loop 语句的语法具有以下几个部分： 部分 描述 condition 可选参数。数值表达式或字符串表达式，其值为 True 或 False。如果 condition 是 Null，则 condition 会被当作 False。 statements 一条或多条命令，它们将被重复当或直到 condition 为 True。 说明 在DoLoop 中可以在任何位置放置任意个数的 Exit Do 语句，随时跳出Do.Loop 循环。Exit Do 通常用于条件判断之后，例如If Then，在 这种情况下，Exit Do 语句将控制权转移到紧接在 Loop 命令之后的语句。 如果 Exit Do 使用在嵌套的DoLoop 语句中，则 Exit Do 会将控制权转移到 Exit Do 所在位置的外层循环。 14.end 结束一个过程或块。 语法 End End Function End If End Property End Select End Sub End Type End With End 语句的语法有以下几种形式： 语句 描述 End 停止执行。不是必要的，可以放在过程中的