VIP标识 上网做生意,首选VIP会员| 设为首页| 加入桌面|| 手机版| RSS订阅
雷竞技电竞
,关注食品安全,探讨食品技术

调用窗体对象的事件

放大字体缩小字体发布日期:2006-06-15


      为了响应用户的操作,需要调用相应的对象的事件。每个对象有 不同的事件,各个对象的事件又有不同的事件。调用事件的方法很 简单,如果是想调用对象的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 所示。用户单击【是】按钮,将 关闭该文档,如果窗体还没有保存,会提示用户保存窗体;单击【否】 按钮,将返回 文档。



      推荐图文
      推荐食品专题
      点击排行
      Processed in 0.021 second(s), 17 queries, Memory 0.88 M
      Baidu
      map