Le contrôle CommandButton (bouton) permet essentiellement d’exécuter du code lorsque l’utilisateur clique dessus.
Pour insérer un contrôle CommandButton, sélectionnez l’outil CommandButton dans la boîte à outils, puis cliquez dans la boîte de dialogue personnalisée :
- La propriété Caption pour définir le texte qui apparait sur le bouton.
- L’événement Click pour réagir au clic sur le bouton.
A titre d’exemple, nous allons définir une boîte de dialogue personnalisée qui contient un CommandButton. Lorsque l’utilisateur clique sur ce bouton, un message sera affiché à l’aide de la méthode MsgBox.
Voici la boîte de dialogue personnalisée :
Double-cliquez sur le bouton et complétez la procédure CommandButton1_Click() comme ceci :
Private Sub CommandButton1_Click() MsgBox "Merci d'avoir cliqué" End Sub
Il ne reste plus qu’à lancer la boîte de dialogue personnalisée en cliquant sur le bouton Exécuter, ou en appuyant sur la touche de fonction F5 :
