Événement Click, contrôle CommandButton, propriétés Accelerator, Caption – Exemple

Cet exemple montre comment modifier les propriétés Accelerator et Caption d’un CommandButton chaque fois que l’utilisateur clique sur le bouton à l’aide de la souris ou de la touche d’accélérateur. L’événement Click contient le code permettant de modifier les propriétés Accelerator et Caption.

Pour tester cet exemple, collez le code dans la section Déclarations d’un formulaire contenant un contrôle CommandButton nommé CommandButton1.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.