Partager via

Modifier l’accélérateur et la légende d’un bouton de commande

  • Article

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 essayer cet exemple, collez le code dans l’éditeur de script d’un formulaire contenant un CommandButton nommé CommandButton1. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open.

Dim CommandButton1 
 
Sub Item_Open() 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").CommandButton1 
 CommandButton1.Accelerator = "C" 'Set Accelerator key to ALT + C 
End Sub 
 
Sub CommandButton1_Click () 
 If CommandButton1.Caption = "OK" Then 'Check caption, then change it. 
 CommandButton1.Caption = "Clicked" 
 CommandButton1.Accelerator = "C" 'Set Accelerator key to ALT + C 
 Else 
 CommandButton1.Caption = "OK" 
 CommandButton1.Accelerator = "O" 'Set Accelerator key to ALT + 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.