全文约800字，通读约4分钟

看完本章，你将收获以下知识：

（1）：VB脚本编写框架

（2）：三个画面切换函数及其使用方法

（3）：VB脚本关联触发事件的方法

（4）：问题思考

准备阶段：创建项目→创建画面一、二→添加文本域，并修改为"画面一"、"画面二"→在画面中分别建立三个按钮。（若上述步骤不会，请查看本头条号内其他文章）

一：VB脚本编写框架

1．1创建VB脚本并重命名

如下图所示，在左侧"项目树"中单击脚本，再单击"VB脚本"选项，随后点击"添加新的VB函数"，选中新生成的VB脚本并点击右键，选择"重命名"，改为"Screen_Change"注意，脚本名称必须是英文。

创建VB函数的方法

1.2 VB脚本框架

所有的VB脚本均需要有以下内容：

Sub Screen_Change()

Dim I , J , K

//程序代码填写处

End Sub

其中：

Sub Screen_Change()表示 "子过程"开始，Screen_Change是脚本的名称

Dim是变量声明，其后填写需要声明的变量，如果声明多个变量则在变量间加"，"

End Sub表示子程序结束。

二：三个画面切换VB函数及使用方法

2.1：ActivateScreen函数的使用

ActivateScreen函数是切换到指定的"画面名"。那么，这个函数如何使用呢？

ActivateScreen "画面名称"，画面编号

此函数的参数含义如下所示：

"画面名称"：指的是想要切换到的画面的名称，我们这里填写"画面_2"即可。

对象编号：指的是切换画面成功后，对象焦点聚焦在哪个对象上，一般填0即可。

现在，我们编写代码以实现将画面切换到"画面_2"，代码如下：

Sub Screen_Change_1()

ActivateScreen "画面_1",0

End Sub

2.2：ActivateScreenByNumber函数的使用

ActivateScreenByNumber函数是切换到指定的"画面号"。此处的画面号是某一个画面的编号。使用方法如下：

ActivateScreenByNumber 画面编号，对象编号

此函数的参数含义如下所示：

画面编号：某一个画面的编号，此编号可以选中画面并右键属性查看。此编号可以是变量。

对象编号：指的是切换画面成功后，对象焦点聚焦在哪个对象上，一般填0即可。

现在，我们编写代码以实现将画面切换到"画面_1"，此画面编号为1，代码如下图所示：

Sub Screen_Change_2()

Dim A

A=2

ActivateScreenByNumber A,0

End Sub

2.2：ActivatePreviousScreen函数的使用

ActivatePreviousScreen函数是切换到上一画面。此函数没有参数，直接使用即可。

Sub Screen_Change_3()

ActivatePreviousScreen

End Sub

三：VB脚本关联触发事件

（以切换到画面一为例）

为了达到画面切换的效果，我们必须设置按下按钮的时候，触发VB脚本。

因此，我们鼠标右键选择按钮属性，单击"事件"选项卡，在函数列表中选择"Screen_Change_3"。

将VB脚本关联到按钮按下事件中

如此，当按下"切换到画面一"按钮时，VB脚本便立即运行，完成画面的切换。

画面一

画面二

四：问题思考

（1）：定义变量除了Dim还可以用什么？

（2）：按钮事件“按下”和“释放”有什么区别？

如果你知道的话，欢迎留言讨论。