次の方法で共有


TabStop プロパティの例

次の例では、 TabStop プロパティを使用して、ユーザーが Tab キーを押して特定のコントロールにフォーカスを移動できるかどうかを制御します。 ユーザーは Tab キーを押してフォーム上のコントロール間でフォーカスを移動し、 ToggleButton をクリックして CommandButton1 の TabStop を 変更します。 TabStopFalse の場合、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 のサポートおよびフィードバックを参照してください。