为了响应用户的操作,需要调用相应的对象的事件。每个对象有 不同的事件,各个对象的事件又有不同的事件。调用事件的方法很 简单,如果是想调用对象的Click(鼠标单击)事件,可以在【设置 模式】下双击该对象,即可显示代码窗口,允许用户输入其中输入 事件的执行代码。在代码窗口中,也可以在【对象】列表框中选择 需要的对象后,在【过程】列表框中选择需要的事件。如图12-9 所 示。 关于各个对象的具体事件不再一一叙述,下面以为窗体中的【关闭文档】按钮添加Click 事件和为文字框添加LostFocus 事件为例, 介绍如何为对象添加基本的事件。在窗体中,文字框是用来输入姓 名的,为文字框添加LostFocus 事件,可以在用户输入姓名完毕后, 当焦点转到其他控件时,文字框失去焦点。产生LostFocus 事件的 步骤为: (1)在代码窗口中,在【对象】列表框中选择TextBox1。 (2)在【过程】列表框中选择LostFocus。 (3)输入代码,如下所示: Private Sub TextBox1_LostFocus() MsgBox TextBox1.Text, vbOKOnly, "你的姓名是:" '显示一个消息框,显示用户刚输入的文字 End Sub 为【关闭文档】按钮添加事件的步骤如下: (1)在代码窗口中,在【对象】列表框中选择CommandButton2。 (2)在【过程】列表框中选择Click。 (3)输入代码,如下所示: Private Sub CommandButton2_Click() Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "你真的要关闭本文档,不要后悔啊 ?" ' 定义信息。 Style = vbYesNo + vbQuestion + vbDefaultButton2 ' 定义按钮。 Title = "确认关闭文档" ' 定义标题。 Help = "" ' 定义帮助文件,为空。 Ctxt = ' 定义标题,为空' 上下文。 ' 显示信息。 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' 用户按下“是”。 WordBasic.FileClose ' 完成某操作。 Else ' 用户按下“否”。 End If 通过对事件的引用,就大大增强了Word 窗体的交互性。当用户 在文字框输入“笑嘻嘻”后转移焦点时,会显示如图12-10 所示的 【你的姓名是:】对话框,当单击【关闭文档】按钮时,会显示【确 认关闭文档】对话框,如图12-10 所示。用户单击【是】按钮,将 关闭该文档,如果窗体还没有保存,会提示用户保存窗体;单击【否】 按钮,将返回 文档。
[1]
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18