Enter、Exit 事件、ActiveControl 属性示例

下面示例在一个子程序中使用 ActiveControl 属性，该子程序跟踪用户访问的控件。每一控件的 Enter 事件，通过调用 TraceFocus 子程序来标识有焦点的控件。

窗体包含：

• 名为 ScrollBar1 的滚动条。
• 名为 ListBox1 的列表框。
• 名为 OptionButton1 和 Optionbutton2 的两个选项按钮控件。
• 名为 Frame1 的框架。

dim strname
Sub TraceFocus()
    UserForm_ListBox1.AddItem  strname
End Sub

Sub UserForm_Initialize()
    UserForm_ListBox1.ColumnCount = 2
    UserForm_ListBox1.AddItem "Controls Visited"
    UserForm_ListBox1.List(0, 1) = "Control Index"
End Sub

Sub UserForm_Frame1_Enter()
	strname=UserForm_Frame1.Caption
    TraceFocus
End Sub

Sub UserForm_ListBox1_Enter()
	strname=UserForm_ListBox1.ListCount
    TraceFocus
End Sub

Sub UserForm_OptionButton1_Enter()
	strname=UserForm_OptionButton1.Caption
    TraceFocus
End Sub

Sub UserForm_OptionButton2_Enter()
	strname=UserForm_OptionButton2.Caption
    TraceFocus
End Sub

Sub UserForm_ScrollBar1_Enter()
	strname=UserForm_ScrollBar1.Value
    TraceFocus
End Sub