Accepter l’entrée utilisateur et afficher les valeurs des contrôles sur un formulaire
L'exemple suivant illustre les valeurs possibles des divers types de contrôles 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-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. 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.
un contrôle TextBox nommé TextBox2 ;
ToggleButton nommé ToggleButton1.
Sub CommandButton1_Click()
Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1")
Set Form = Item.GetInspector.ModifiedFormPages("P.2")
TextBox1.Text = "Value of " & Form.ActiveControl.Name & " is " & Form.ActiveControl.Value
End Sub
Sub Item_Open()
Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1")
Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1")
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
Set ListBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ListBox1")
Set CheckBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CheckBox1")
Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1")
Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2")
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
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.