次の方法で共有

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 のサポートおよびフィードバックを参照してください。