Click, événement, CommandButton, contrôle, Accelerator, Caption, propriétés, exemple
Cet exemple modifie les propriétés Accelerator et Caption d'un contrôle CommandButton chaque fois que l'utilisateur clique sur le bouton ou appuie sur la touche d'accès rapide correspondante. L'événement Click contient le code permettant de modifier les propriétés Accelerator et Caption.
Pour tester cet exemple, collez le code suivant dans la partie Déclarations d'une feuille 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