vb语句大全

ChDrive语句
描述：改变当前的驱动器。 一、语法： ChDrive drive drive(驱动器名)为必需参数，它是一个字符串表达式，指明将改变到哪个驱动器。如果使用 零长度的字符串("")，则当前的驱动器将不会改变。 二、应用举例：
本示例使用 ChDrive 语句来改变当前的驱动器。建立一标准工程，在窗体上添加一命令 按钮，一个文本框和一个目录列表框(DirListBox)，将下面的程序粘贴过去。 Private Sub Command1_Click()
然省略了 Call 关键字，但 argumentlist 也必须要加上括号。如下面的格式： Dim str As String str = name(argumentlist) 若要将整个数组传给一个过程，使用数组名，然后在数组名后加上空括号。 有时为了方便，可用公有变量传递参数。
三、应用举例： 下列示例示范如何使用 Call 语句来调用子过程。建立一个标准工程，在窗体上添加一
Open "a.txt" For Output As #1 '打开文件。 Print #1, "文件被打开。" '将字符串写入文件。 Close '将已打开的文件关闭。 End Sub
运行程序，单击命令按钮。我们会发现程序新建了一个名为“a”的文本文件，“文件被打 开。”已经写入导文本里。
Const语句
Dim I For I = 1 To 3 '循环 3 次。 Beep '发出一声。
Next I
Call语句
描述：将控制权转移到一个 Sub 过程，Function 过程，通俗的讲就是调用一个子程序或函数。 一、语法：
[Call]name[argumentlist] Call 语句的语法包含下面部分：
AppActivate "Microsoft EXCEL" '激活 Microsoft Excel。 End Sub
首先打开 Microsoft Excel，然后运行程序，单击命令按钮，你将看到 Excel 变成活动窗 体。
下面示例用 Shell 函数启动 Microsoft Excel，然后用 AppActivate 语句来激活 Microsoft Excel。在运行程序前，首先找到 Microsoft Excel 的路径，并关闭 Excel。
单击命令按钮后 MsgBox 函数提示“是否继续运行”，单击‘否’退出程序，Text1 无变化； 单击‘是’运行后面的程序，Text1 显示日期。
ChDir语句
描述：改变当前的路径(目录或文件夹)。 一、语法： ChDir path path(路径名)为必要参数，它是一个字符串表达式，指明将改变到哪个路径(目录或文件夹)。 二、说明：
建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。
Private Sub Command1_Click() On Error GoTo ErrorHandler '发生错误转到错误处理入口
MsgBox "程序运行" Exit Sub '程序运行完毕，没有错误退出程序 ErrorHandler: '错误处理入口 Beep '发出声响。 MsgBox "出错" End Sub
命令按钮和一个文本框，将下面的程序粘贴过去。
Private Sub Command1_Click() Call procedure
End Sub Private Sub procedure()
Dim a '定义变量 a = Date '取日期 Text1.Text = a End Sub
单击命令按钮，Text1 显示日期。 下列示例示范如何使用省略了 Call 关键字来调用函数，并根据返回值决定程序是否继 续运行。还在上面的这个标准工程里，用下面的程序替换上面程序中的第一部分。
描述：声明常量。 一、语法：
[Public|Private]Const constname[As type]=expression Const 语句的语法包含下面部分：
部分
描述
public
可选的。该关键字用于在模块级别中声明该常量为全局的（公用的），也就是 说在所有模块和窗体中都可以使用的常量。该关键字在窗体中不能使用。
单击命令按钮，MsgBox 显示"程序运行"。 现在加入一条错误的激活 Microsoft Excel 语句，程序如下： Private Sub Command1_Click() On Error GoTo ErrorHandler '发生错误转到错误处理入口 AppActivate "EXCEL.EXE" '错误语句。 MsgBox "程序运行" Exit Sub '程序运行完毕，没有错误退出程序 ErrorHandler: '错误处理入口 Beep '发出声响。 MsgBox "出错" End Sub 单击命令按钮，MsgBox 显示"出错"，计算机喇叭发出声音。 误区：有些教材用下面的示例使用 Beep 语句让计算机连续响三声，实际上计算机在运 行下面的程序时只能响一声，原因是计算机的运行速度远比计算机喇叭发出声音的速度快。
Beep语句
描述：通过计算机喇叭发出声音。 一、语法：
Beep 二、说明：
呼叫的频率与时间长短取决于硬件和系统软件，并随计算机不同而不同。 三、应用举例：
在调试程序时，有时需要在发生错误时发出音响。本例在程序运行时，如果某一步发生 错误，则转到错误处理入口，使用 Beep 语句让计算机发出响声，同时 MsgBox 函数将提示 错误。
在上面的标准工程中，用下面的程序替换上面的程序，并把路径换成你电脑中 Microsoft Excel 的路径，然后运行程序，单击命令按钮，你将看到 Excel 被打开并被激活。 Private Sub Command1_Click()
Dim MyAppID MyAppID = Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1) '运行 Microsoft Excel。 AppActivate MyAppID '激活 Microsoft Excel。 End Sub
二、说明： 调用一个过程时，并不一定要使用 Call 关键字。如果使用 Call 关键字来调用一个需要
参数的过程，argumentlist 就必须要加上括号。 Call name(argumentlist) 如果省略了 Call 关键字，那么也必须要省略 argumentlis 外面的括号。 Name argumentlist 如果需要函数的返回值，则应先定义一个变量，然后将函数的返回值赋予变量，这时虽
程的局部常量，在类模块声明的常量也是局部的。在标准模块中，可以用 Public 关键字来 声明常量为全局的。
可以在一行中声明若干个常量，使用逗号将每个常量赋值分开。用这种方法声明常量时， 如果使用了 Public 或 Private 关键字，则该关键字对该行中所有常量都有效。 三、应用举例：
该示例使用 Const 语句来声明常量。Public 常量在标准模块的通用部分声明，而不是在 类模块中声明。Private 常量可以在任何模块类型的通用部分声明。 Const Pai = 3.14 '缺省情况下常量是局部的。 Public Const MyStr = "你好" '声明全局常量。 Private Const vbGrayed As Integer = 2 '声明局部的整数常量。 Const MyStr = "你好", Pai As Double = 3.14 '在一行中声明多个常量。
必需的。文字，其它常量，或由除 Is 之外的任意的算术操作符和逻辑操作符所 expression 构成的任意组合。
二、说明： 对于程序中多次出现的数值、文字等最好使用常量，这样在程序运行时不易出错。常量
可以使程序更具可读性，以及易于修改。 在缺省情况下常量是局部的。在 Sub、Function 或 Property 过程中声明的常量都是该过
可选的。Boolean 值，取值为 True/False。说明在激活另一个应用程序之前调用的应用 程序是否有焦点。如果为 False（缺省），那么，即使调用的应用程序没有焦点，也直 wait 接激活指定的应用程序。如果为 True，则调用的应用程序会等到有焦点后，才激活指 定的应用程序
二、说明： AppActivate 语句不能打开应用程序，只能激活应用程序（使其变成活动窗口）。在使
如果改变的路径不在当前的驱动器上，则应输入包括驱动器在内的完整路径，如： ChDir "f:\talltree\yyglclient\help" 上移一层目录采用下面的格式： ChDir".." 注意：path 必须为有效路径，否则系统会报错。 三、应用举例： 本示例使用 ChDir 语句来改变当前路径，建立一标准工程，在窗体上添加一命令按钮， 一个文本框和一个文件列表框(FileListBox)，将下面的程序粘贴过去。 Private Sub Command1_Click() ChDir Text1.Text File1.Path = Text1.Text End Sub 在文本框里输入一个完整路径，然后单击命令按钮，文件列表框将显示这个路径下的全 部文件。
private
可选的。该关键字用于在模块或窗体级声明该常量为局部的，即只能在包含该 声明的模块或窗体中使用的常量。不能在过程中使用。
ቤተ መጻሕፍቲ ባይዱ
constname 必需的。有效的常量名；遵循标准的变量命名约定。