VBA控件教程:GotFocus 事件的使用帮助和示例

2015-06-04 00:12 阅读 333 次 评论关闭

GotFocus 事件的使用帮助

当对象获得焦点时产生该事件;获得焦点可以通过诸如 TAB 切换,或单击对象之类的用户动作,或在代码中用 SetFocus 方法改变焦点来实现。

语法

Private Sub Form_GotFocus( )

Private Sub object_GotFocus([index As Integer])

GotFocus 事件包含下列部分:

部分 描述
object 一个对象表达式,其值是“应用于”列表中的一个对象。
index 一个整数,用来唯一地标识一个在控件数组中的控件。
说明

通常,GotFocus 事件过程用以指定当控件或窗体首次接收焦点时发生的操作。例如,通过给窗体上每个控件附加一个 GotFocus 事件过程,就可以显示简要说明或状态条信息给外界提供指导。根据获取焦点控件的不同,通过使其有效、禁止或者是显示其它控件的方式,也可以提供出可视的提示。

注意 一个控件仅当其 Enabled 和 Visible 属性都设置为 True 时才能接收焦点。为了移动焦点,在 Visual Basic 中要自定义键盘接口,对于窗体上的控件需设置 Tab 键顺序或指定访问键。

GotFocus 事件示例

本例在 OptionButton 组中的一个按钮得到焦点时显示一个状态栏信息。要尝试这个例子,可将代码粘贴到一个包含 2 个 OptionButton 控件和 1 个 Label 的窗体的声明部分。将两个 OptionButton 控件的 Name 属性都设置为 OptionGroup,然后按 F5 键并单击 OptionButton 控件。

Private Sub Form_Load ()
   Label1.AutoSize = True
End Sub

Private Sub OptionGroup_GotFocus (Index As Integer)
   Select Case Index
      Case 0
         Label1.Caption = "Option 1 has the focus."
      Case 1
         Label1.Caption = "Option 2 has the focus."
   End Select
End Sub

Private Sub OptionGroup_LostFocus (Index As Integer)

   Label1.Caption = ""

End Sub
版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:VBA控件教程:GotFocus 事件的使用帮助和示例 | 猎微网

评论已关闭!