共用方式為

接受使用者輸入，並在表單上顯示控制項的值

下列範例透過顯示選取控制項的 Value 屬性來示範不同類型控制項可使用的值。 使用者可按 TAB 鍵或按一下控制項來選取控制項。 根據控制項類型，使用者也可以在控制項的文字區域中輸入，按一下控制項上一個或多個時間，或者選取控制項中的項目、頁面或索引標籤，以指定控制項的值。 使用者可以按一下正確標示的指令按鈕來顯示所選控制項的值。

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

  • 一個名為 CommandButton1 的 CommandButton 。

  • 一個名為 TextBox1 的 TextBox 。

  • 一個名為 CheckBox1 的 CheckBox 。

  • 一個名為 ComboBox1 的 ComboBox 。

  • 一個名為 CommandButton2 的 CommandButton 。

  • 一個名為 ListBox1 的 ListBox 。

  • 一個名為 MultiPage1 的 MultiPage 。

  • 兩個分別名為 OptionButton1 和 OptionButton2 的 OptionButton 控制項。

  • 一個名為 ScrollBar1 的 ScrollBar 。

  • 一個名為 SpinButton1 的 SpinButton 。

  • 一個名為 TabStrip1 的 TabStrip 。

  • 一個名為 TextBox2 的 TextBox 。

  • 一個名為 ToggleButton1 的 ToggleButton 。

  • 一個名為 TextBox2 的 TextBox 。

  • 一個名為 ToggleButton1 的 ToggleButton 。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。