Partager via

Spécifier des informations supplémentaires pour un contrôle

  • Article

L'exemple suivant emploie la propriété Tag pour stocker des informations supplémentaires sur chaque contrôle figurant dans le formulaire UserForm de Microsoft Forms 2.0. L’utilisateur clique sur un contrôle, puis sur le bouton CommandButton. Le contenu de Tag pour le contrôle approprié est retourné dans le TextBox.

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 TextBox nommé TextBox1 ;

  • un contrôle CommandButton nommé CommandButton1 ;

  • Une barre de défilement nommée ScrollBar1.

  • ComboBox nommé ComboBox1.

  • MultiPage nommé MultiPage1.

Sub CommandButton1_Click() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 Set MultiPage1= Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1") 
 
 TextBox1.Text = Item.GetInspector.ModifiedFormPages("P.2").ActiveControl.Tag 
End Sub 
 
Sub Item_Open() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 Set CommandButton1= Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 Set ComboBox1= Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1") 
 Set ScrollBar1= Item.GetInspector.ModifiedFormPages("P.2").Controls("ScrollBar1") 
 Set MultiPage1= Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1") 
 
 TextBox1.Locked = True 
 TextBox1.Tag = "Display area for Tag properties." 
 TextBox1.AutoSize = True 
 
 CommandButton1.Caption = "Show Tag of Current Control." 
 CommandButton1.AutoSize = True 
 CommandButton1.WordWrap = True 
 CommandButton1.TakeFocusOnClick = False 
 CommandButton1.Tag = "Shows tag of control that has the focus." 
 
 ComboBox1.Style = fmStyleDropDownList 
 ComboBox1.Tag = "ComboBox Style is that of a ListBox." 
 
 ScrollBar1.Max = 100 
 ScrollBar1.Min = -273 
 ScrollBar1.Tag = "Max = " & ScrollBar1.Max & " , Min = " & ScrollBar1.Min 
 
 MultiPage1.Pages.Add 
 MultiPage1.Pages.Add 
 MultiPage1.Tag = "This MultiPage has " & MultiPage1.Pages.Count & " pages." 
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.