指定控制項的其他資訊

下列範例使用 Tag 屬性來儲存 Microsoft Forms 2.0 UserForm 中每個控制項的其他資訊。 使用者按一下控制項，然後按一下 CommandButton。 適當控制項的 Tag 內容會在 TextBox中傳回。

若要使用本範例，請將此範例程式碼複製到表單的指令碼編輯器中。 若要執行該程式碼，您需要開啟該表單以啟動 Open 事件。 請確定表單包含：

• 一個名為 TextBox1 的 TextBox 。

• 一個名為 CommandButton1 的 CommandButton 。

• 一個名為 ScrollBar1 的 ScrollBar 。

• 一個名為 ComboBox1 的 ComboBox 。

• 一個名為 MultiPage1 的 MultiPage 。

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 支援與意見反應。