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

Office VBA reference topic. 跳到主要內容 已不再支援此瀏覽器。

請升級至MicrosoftEdge，以利用最新功能、安全性更新和技術支援。

下載MicrosoftEdge 其他資訊 目錄 結束焦點模式 閱讀英文 儲存 目錄 閱讀英文 儲存 編輯 Twitter LinkedIn Facebook 電子郵件 目錄 接受使用者輸入，並在表單上顯示控制項的值 發行項 04/08/2022 1位參與者 本文內容 下列範例透過顯示選取控制項的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。

SubCommandButton1_Click() SetTextBox1=Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") SetForm=Item.GetInspector.ModifiedFormPages("P.2") TextBox1.Text="Valueof"&Form.ActiveControl.Name&"is"&Form.ActiveControl.Value EndSub SubItem_Open() SetCommandButton1=Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") SetTextBox1=Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") SetComboBox1=Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1") SetListBox1=Item.GetInspector.ModifiedFormPages("P.2").Controls("ListBox1") SetCheckBox1=Item.GetInspector.ModifiedFormPages("P.2").Controls("CheckBox1") SetToggleButton1=Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") SetTextBox2=Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2") CommandButton1.Caption="Getvalueofcurrentcontrol" CommandButton1.AutoSize=True CommandButton1.TakeFocusOnClick=False CommandButton1.TabStop=False TextBox1.AutoSize=True Fori=0To10 ComboBox1.AddItem"Choice"&(i+1) ListBox1.AddItem"Selection"&(100-i) Next CheckBox1.TripleState=True ToggleButton1.TripleState=True TextBox2.Text="Entertexthere." EndSub 支援和意見反應 有關於OfficeVBA或這份文件的問題或意見反應嗎？如需取得支援服務並提供意見反應的相關指導，請參閱OfficeVBA支援與意見反應。

本文內容