次の方法で共有


TakeFocusOnClick プロパティの例

次の例では 、TakeFocusOnClick プロパティを使用して、ユーザーがクリックしたときに CommandButton がフォーカスを受け取るかどうかを制御します。

ユーザーは CommandButton1 以外のコントロールをクリックした後に CommandButton1 をクリックします。 TakeFocusOnClickTrue の場合、CommandButton1 はクリックされた後にフォーカスを受け取ります。 ユーザーは、ToggleButton をクリックして TakeFocusOnClick の値を変更できます。

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

  • CommandButton1 と命名された CommandButton
  • トグル ボタン ( ToggleButton ) コントロール (ToggleButton1)
  • 1 つまたは 2 つのコントロール (オプション ボタン ( OptionButton ) コントロールまたはリスト ボックス ( ListBox ) コントロール))
Private Sub CommandButton1_Click() 
 MsgBox "Watch CommandButton1 to see if it " _ 
 & "takes the focus." 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1 = True Then 
 CommandButton1.TakeFocusOnClick = True 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 Else 
 CommandButton1.TakeFocusOnClick = False 
 ToggleButton1.Caption = "TakeFocusOnClick Off" 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Show Message" 
 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 ToggleButton1.Value = True 
 ToggleButton1.Width = 90 
End Sub

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

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