事件示例 2：修改触发事件的对象属性

此练习接着上面的练习，您应该首先完成它。该例同样用到表格编辑器。

现在，假设您要在单击该按钮时修改另一个对象（即文本对象中的文本）的属性。

1. 在窗体编辑器中，切换回编辑模式（按 Ctrl + E）。

2. 创建一个新的文本对象。

3. 打开文本对象的属性页（选中该对象并单击鼠标右键）。

4. 确保文本项的对象代码属性为 "Text1"。对象代码属性是从 BASIC 代码取用该对象所用的名称。

5. 如没有展开，单击事件后的 + 号以展开列表。

6. 双击 EventInitialize 处理程序函数。VBS 迷你编辑器将会打开。

7. 向 EventInitialize 函数中添加以下代码：
   Set This = Text1

8. 按 ENTER 键另起一行。在下一行键入此代码：
   This.Text = "The button has not yet been clicked"

9. 单击确定按钮关闭编辑器。

10. 按照说明设置对象 Text1 后，打开前面练习中添加的按钮对象的属性页。

11. 单击事件选项卡。

12. 双击 EventClick 函数。

13. 将添加到先前示例中的 Basic 代码替换为以下两行：
    第 1 行：MsgBox “我已按了一下按钮，即将修改 Text1 的文本”
    
    第 2 行：Text1.Text = “已按按钮！！！”

14. 单击确定按钮关闭 VBS 迷你编辑器。

15. 关闭属性表。

16. 切换到运行模式（按 Ctrl + E）。向 Text1 的 EventInitialize 函数中添加的代码将 Text1 设置为最初显示“尚未按按钮”。

17. 现在尝试单击该按钮。屏幕上应出现“已单击并要修改 Text1 的文本”消息。只要关闭该消息框，Text1 的文本即会修改为“已按按钮！！！”.

该示例说明如何在 Basic 代码中通过 ObjectCode.property_name 语法访问报表中任何对象的属性。