VBScript 事件

VBScript 是一种微软开发的脚本语言，很多 Windows 应用程序都支持使用 VBScript 编程实现一些实用的功能。在 VBScript 中，可以通过事件处理程序（event handler）来对用户或系统的事件做出响应。

常见事件类别

控件事件

控件事件是在用户与界面上的控件进行交互时触发的，比如单击按钮、选择下拉菜单、改变文本框内容等。

VBScript 提供了多种控件事件处理程序的写法，常见的有:

• OnClick：单击按钮事件
• OnChange：文本框内容改变事件
• OnSelect：下拉菜单选项改变事件
• OnFocus：控件获得焦点事件
• OnBlur：控件失去焦点事件

以下是一个示例，当用户单击一个按钮时，会弹出一个对话框：

Sub btnClick_OnClick()
    MsgBox "你单击了按钮！"
End Sub

窗口事件

窗口事件是在窗口打开、关闭、大小改变等操作时触发的。常见的窗口事件有：

• OnLoad：窗口加载事件
• OnUnload：窗口关闭事件
• OnResize：窗口大小改变事件
• OnBeforeUnload：窗口关闭前事件

以下是一个示例，当窗口加载时，会弹出一个欢迎对话框：

Sub window_OnLoad()
    MsgBox "欢迎来到我的窗口！"
End Sub

文档事件

文档事件是在用户对文档进行操作时触发的，比如滚动页面、选中文字等。文档事件只适用于与文档相关的应用程序，比如 Microsoft Word、Excel 等。

常见的文档事件有：

• OnMouseMove：鼠标移动事件
• OnSelectionChange：选中文本改变事件

以下是一个示例，在鼠标移动时，在控制台输出当前鼠标坐标：

Sub document_OnMouseMove()
    Dim x, y
    x = Document.ParentWindow.event.clientX
    y = Document.ParentWindow.event.clientY
    WScript.Echo "鼠标坐标：(" & x & "," & y & ")"
End Sub

注册事件处理程序

注册事件处理程序的方式与不同应用程序有关，以下是一个基本的例子，使用 VBScript 注册一个按钮单击事件处理程序：

' 获取按钮元素
Set btn = Document.getElementById("my-button")

' 注册 OnClick 事件处理程序
btn.OnClick = GetRef("btnClick_OnClick")

' 定义事件处理程序
Sub btnClick_OnClick()
    MsgBox "你单击了按钮！"
End Sub

以上代码中，Document.getElementById 方法用于获取页面中一个 ID 为 my-button 的元素，并将其赋值给变量 btn。接着，使用 btn.OnClick 属性给按钮注册一个单击事件处理程序，命名为 btnClick_OnClick。最后，定义了一个名为 btnClick_OnClick 的 Sub 过程，作为事件处理程序，在单击按钮时显示一个消息框。