TabStop プロパティの例

次の例では、 TabStop プロパティを使用して、ユーザーが Tab キーを押して特定のコントロールにフォーカスを移動できるかどうかを制御します。 ユーザーは Tab キーを押してフォーム上のコントロール間でフォーカスを移動し、 ToggleButton をクリックして CommandButton1 の TabStop を 変更します。 TabStop が False の場合、CommandButton1 は Tab を使用してフォーカスを受け取りません。

この例を使用するには、以下のサンプル コードをフォームの宣言部分にコピーします。 Make sure that the form contains:

• CommandButton1 と命名された CommandButton
• トグル ボタン ( ToggleButton ) コントロール (ToggleButton1)
• 1 つまたは 2 つのコントロール (オプション ボタン ( OptionButton ) コントロールまたはリスト ボックス ( ListBox ) コントロール))

Private Sub CommandButton1_Click() 
 MsgBox "Clicked CommandButton1." 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1 = True Then 
 CommandButton1.TabStop = True 
 ToggleButton1.Caption = "TabStop On" 
 Else 
 CommandButton1.TabStop = False 
 ToggleButton1.Caption = "TabStop Off" 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Show Message" 
 
 ToggleButton1.Caption = "TabStop On" 
 ToggleButton1.Value = True 
 ToggleButton1.Width = 90 
End Sub

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

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