Enter イベント、Exit イベント、ActiveControl プロパティの例

次の例では、ユーザーがアクセスするコントロールを追跡するサブルーチンで ActiveControl プロパティを使用します。 各コントロールの Enter イベントは TraceFocus サブルーチンを呼び出して、フォーカスを持つコントロールを識別します。

この例を使用するには、このサンプル コードをフォームの宣言部分にコピーします。 フォームに次のコントロールが含まれていることを確認します。

• ScrollBar1 と命名された ScrollBar
• リスト ボックス ( ListBox ) コントロール (ListBox1)
• 2 つのオプション ボタン ( OptionButton ) コントロール (OptionButton1 と OptionButton2)
• Frame1 という名前の フレーム 。

Dim MyControl As Control 
 
Private Sub TraceFocus() 
 ListBox1.AddItem ActiveControl.Name 
 ListBox1.List(ListBox1.ListCount - 1, 1) = _ 
 ActiveControl.TabIndex 
End Sub 
 
Private Sub UserForm_Initialize() 
 ListBox1.ColumnCount = 2 
 ListBox1.AddItem "Controls Visited" 
 ListBox1.List(0, 1) = "Control Index" 
End Sub 
 
Private Sub Frame1_Enter() 
 TraceFocus 
End Sub 
 
Private Sub ListBox1_Enter() 
 TraceFocus 
End Sub 
 
Private Sub OptionButton1_Enter() 
 TraceFocus 
End Sub 
 
Private Sub OptionButton2_Enter() 
 TraceFocus 
End Sub 
 
Private Sub ScrollBar1_Enter() 
 TraceFocus 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。