次の方法で共有

クリック時にコマンド ボタンがフォーカスされるようにする

次の例では 、TakeFocusOnClick プロパティを使用して、ユーザーがクリックしたときに CommandButton がフォーカスを受け取るかどうかを制御します。 ユーザーは CommandButton1 以外のコントロールをクリックした後に CommandButton1 をクリックします。 TakeFocusOnClick が True の場合、CommandButton1 はクリックされた後にフォーカスを受け取ります。 ユーザーは、ToggleButton をクリックして TakeFocusOnClick の値を変更できます。

この例を利用するには、次のコード例をフォームのスクリプト エディターにコピーします。 コードを実行するには、 Open イベントが生じるようにフォームを開く必要があります。 フォームには次のコントロールが含まれている必要があります。

  • CommandButton1 と命名された CommandButton

  • トグル ボタン ( ToggleButton ) コントロール (ToggleButton1)

  • 1 つまたは 2 つのコントロール (オプション ボタン ( OptionButton ) コントロールまたはリスト ボックス ( ListBox ) コントロール))

Sub CommandButton1_Click() 
 MsgBox "Watch CommandButton1 to see if it takes the focus." 
End Sub 
 
Sub ToggleButton1_Click() 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 
 If ToggleButton1 = True Then 
 CommandButton1.TakeFocusOnClick = True 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 Else 
 CommandButton1.TakeFocusOnClick = False 
 ToggleButton1.Caption = "TakeFocusOnClick Off" 
 End If 
End Sub 
 
Sub Item_Open() 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 
 CommandButton1.Caption = "Show Message" 
 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 ToggleButton1.Value = True 
 ToggleButton1.Width = 90 
End Sub

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

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