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.