コントロールの追加情報を指定する

次の例は、Tag プロパティを使用して、Microsoft Forms 2.0 UserForm 上の各コントロールに関する補足的な情報を表示します。 ユーザーがコントロールをクリックし、 CommandButton をクリックします。 適切なコントロールの Tag の内容が TextBox に返されます。

この例を利用するには、次のコード例をフォームのスクリプト エディターにコピーします。 コードを実行するには、 Open イベントが生じるようにフォームを開く必要があります。 フォームには次のコントロールが含まれている必要があります。

• テキスト ボックス ( TextBox ) コントロール (TextBox1)

• CommandButton1 と命名された CommandButton

• ScrollBar1 と命名された ScrollBar

• コンボ ボックス ( 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 のサポートおよびフィードバックを参照してください。