Freigeben über


TakeFocusOnClick-Eigenschaft (Beispiel)

Im folgenden Beispiel wird die TakeFocusOnClick-Eigenschaft verwendet, um zu steuern, ob ein CommandButton den Fokus erhält, wenn der Benutzer darauf klickt.

The user clicks a control other than CommandButton1 and then clicks CommandButton1. If TakeFocusOnClick is True, CommandButton1 receives the focus after it is clicked. Der Benutzer kann den Wert von TakeFocusOnClick ändern, indem er auf toggleButton klickt.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Eine Befehlsschaltfläche ( CommandButton ) mit der Bezeichnung "CommandButton1".
  • Ein ToggleButton -Objekt mit der Bezeichnung "ToggleButton1".
  • Ein oder zwei andere Steuerelemente, wie zum Beispiel ein Optionsfeld- oder ein Listenfeld-Steuerelement ( 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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.