【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，VB语句大全 - 外语，希望对大家有所帮助！

AppActivate语句 描述激活其它应用程序。

     一、语法 AppActivate titlewait AppActivate语句的语法具有以下几个命名参数 部分 描述 title 必需的。

    字符串表达式所要激活的应用程序的名称。

    常使用Shell函数返回的任务识别码来替换title以激活应用程序 wait 可选的。

    Boolean值取值为True/False。

    说明在激活另一个应用程序之前调用的应用程序是否有焦点。

    如果为False缺省那么即使调用的应用程序没有焦点也直接激活指定的应用程序。

    如果为True则调用的应用程序会等到有焦点后才激活指定的应用程序 二、说明 AppActivate语句不能打开应用程序只能激活应用程序使其变成活动窗口。

    在使用AppActivate语句时必须打开应用程序否则程序会报错。

    所以通常先用Shell函数启动一个应用程序然后使用AppActivate语句激活。

     三、应用举例 本例使用AppActivate语句来激活Microsoft Excel。

    建立一个标准工程在窗体上添加一个命令按钮将下面的程序粘贴过去。

     Private Sub Command1_Click AppActivate quotMicrosoft EXCELquot 激活Microsoft Excel。

     End Sub 首先打开Microsoft Excel然后运行程序单击命令按钮你将看到Excel变成活动窗体。

     下面示例用Shell函数启动Microsoft Excel然后用AppActivate语句来激活Microsoft Excel。

    在运行程序前首先找到Microsoft Excel的路径并关闭Excel。

     在上面的标准工程中用下面的程序替换上面的程序并把路径换成你电脑中Microsoft Excel的路径然后运行程序单击命令按钮你将看到Excel被打开并被激活。

     Private Sub Command1_Click Dim MyAppID MyAppID ShellquotC:Program FilesMicrosoft OfficeOfficeEXCEL.EXEquot 1 运行Microsoft Excel。

     AppActivate MyAppID 激活Microsoft Excel。

     End Sub Beep语句 描述通过计算机喇叭发出声音。

     一、语法 Beep 二、说明 呼叫的频率与时间长短取决于硬件和系统软件并随计算机不同而不同。

     三、应用举例 在调试程序时有时需要在发生错误时发出音响。

    本例在程序运行时如果某一步发生错误则转到错误处理入口使用Beep语句让计算机发出响声同时MsgBox函数将提示错误。

     建立一标准工程在窗体上添加一命令按钮将下面的程序粘贴过去。

     Private Sub Command1_Click On Error GoTo ErrorHandler 发生错误转到错误处理入口 MsgBox quot程序运行quot Exit Sub 程序运行完毕没有错误退出程序 ErrorHandler: 错误处理入口 Beep 发出声响。

     MsgBox quot出错quot End Sub 单击命令按钮MsgBox显示quot程序运行quot。

     现在加入一条错误的激活Microsoft Excel语句程序如下 Private Sub Command1_Click On Error GoTo ErrorHandler 发生错误转到错误处理入口 AppActivate quotEXCEL.EXEquot 错误语句。

     MsgBox quot程序运行quot Exit Sub 程序运行完毕没有错误退出程序 ErrorHandler: 错误处理入口 Beep 发出声响。

     MsgBox quot出错quot End Sub 单击命令按钮MsgBox显示quot出错quot计算机喇叭发出声音。

     误区有些教材用下面的示例使用Beep语句让计算机连续响三声实际上计算机在运行下面的程序时只能响一声原因是计算机的运行速度远比计算机喇叭发出声音的速度快。

     Dim I For I 1 To 3 循环3次。

     Beep 发出一声。

     Next I Call语句 描述将控制权转移到一个Sub过程Function过程通俗的讲就是调用一个子程序或函数。

     一、语法 Callnameargumentlist Call语句的语法包含下面部分 部分 描述 call 可选参数关键字。

    如果指定了这个关键字则参数必须加上括号例如Call MyProc0 name 过程名 必要参数要调用的过程名称 argumentlist参数列表 可选参数传递给过程的变量、数组或表达式的列表各参数间以逗号隔开。

    Argumentlist的每个参数都可以加上关键字ByVal或ByRef来描述被调用的过程将如何处理这些参数。

     二、说明 调用一个过程时并不一定要使用Call关键字。

    如果使用Call关键字来调用一个需要参数的过程argumentlist就必须要加上括号。

     Call nameargumentlist 如果省略了Call关键字那么也必须要省略argumentlis外面的括号。

     Name argumentlist 如果需要函数的返回值则应先定义一个变量然后将函数的返回值赋予变量这时虽然省略了Call关键字但argumentlist也必须要加上括号。

    如下面的格式 Dim str As String str nameargumentlist 若要将整个数组传给一个过程使用数组名然后在数组名后加上空括号。

     有时为了方便可用公有变量传递参数。

     三、应用举例 下列示例示范如何使用Call语句来调用子过程。

    建立一个标准工程在窗体上添加一命令按钮和一个文本框将下面的程序粘贴过去。

     Private Sub Command1_Click Call procedure End Sub Private Sub procedure Dim a 定义变量 a Date 取日期 Text1.Text a End Sub 单击命令按钮Text1显示日期。

     下列示例示范如何