Propriété Value – Exemple
L’exemple suivant illustre les valeurs que les différents types de contrôles peuvent avoir en affichant la propriété Value d’un contrôle sélectionné.
L’utilisateur choisit un contrôle en appuyant sur Tab ou en cliquant sur le contrôle. Selon le type de contrôle, l'utilisateur peut également lui attribuer une valeur qu'il spécifie dans la zone de texte correspondante ou en cliquant une ou plusieurs fois sur le contrôle, ou en sélectionnant un élément, une page ou un onglet dans le contrôle. L’utilisateur peut afficher la valeur du contrôle sélectionné en cliquant sur le bouton CommandButton correctement étiqueté.
Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :
- un contrôle CommandButton nommé CommandButton1 ;
- TextBox nommé TextBox1.
- CheckBox nommée CheckBox1.
- ComboBox nommé ComboBox1.
- un bouton de commande appelé CommandButton2 ;
- ListBox nommé ListBox1.
- MultiPage nommé MultiPage1.
- Deux contrôles OptionButton nommés OptionButton1 et OptionButton2.
- Une barre de défilement nommée ScrollBar1.
- SpinButton nommé SpinButton1.
- Un objet TabStrip nommé TabStrip1.
- un contrôle TextBox nommé TextBox2 ;
- ToggleButton nommé ToggleButton1.
Dim i As Integer
Private Sub CommandButton1_Click()
TextBox1.Text = "Value of " & ActiveControl.Name _
& " is " & ActiveControl.Value
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Get value of " _
& "current control"
CommandButton1.AutoSize = True
CommandButton1.TakeFocusOnClick = False
CommandButton1.TabStop = False
TextBox1.AutoSize = True
For i = 0 To 10
ComboBox1.AddItem "Choice " & (i + 1)
ListBox1.AddItem "Selection " & (100 - i)
Next i
CheckBox1.TripleState = True
ToggleButton1.TripleState = True
TextBox2.Text = "Enter text here."
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.