Указание дополнительных сведений для элемента управления
В следующем примере свойство Tag используется для хранения дополнительных сведений о каждом элементе управления в Microsoft Forms UserForm версии 2.0. Пользователь щелкает элемент управления, а затем щелкает Элемент управления CommandButton. Содержимое тега для соответствующего элемента управления возвращается в поле TextBox.
Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Убедитесь, что эта форма содержит:
Элемент TextBox с именем TextBox1.
Элемент CommandButton с именем CommandButton1.
ScrollBar с именем ScrollBar1.
Объект ComboBox с именем ComboBox1.
Объект MultiPage с именем 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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.