Freigeben über

Click-Ereignis, CommandButton-Steuerelement, Accelerator-Eigenschaft, Caption-Eigenschaft (Beispiel)

  • Artikel

This example changes the Accelerator and Caption properties of a CommandButton each time the user clicks the button by using the mouse or the accelerator key. Das Click-Ereignis enthält den Code zum Ändern der Eigenschaften Accelerator und Caption .

Fügen Sie für dieses Beispiel den Code in den Abschnitt "Deklarationen" eines Formulars ein, das ein CommandButton -Steuerelement mit der Bezeichnung "CommandButton1" besitzt.

Private Sub UserForm_Initialize() 
 CommandButton1.Accelerator = "C" 
 'Set Accelerator key to COMMAND + C 
End Sub 
 
Private Sub CommandButton1_Click () 
 If CommandButton1.Caption = "OK" Then 
 'Check caption, then change it. 
 CommandButton1.Caption = "Clicked" 
 CommandButton1.Accelerator = "C" 
 'Set Accelerator key to COMMAND + C 
 Else 
 CommandButton1.Caption = "OK" 
 CommandButton1.Accelerator = "O" 
 'Set Accelerator key to COMMAND + O 
 End If 
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.