指定下拉式方塊中的資料列數目
下列範例會使用 SpinButton 來控制 ComboBox下拉式清單中的資料列數目。 使用者首先改變 SpinButton 的值,然後按一下 ComboBox 的下拉箭號來顯示清單。
若要使用本範例,請將此範例程式碼複製到表單的指令碼編輯器中。 若要執行該程式碼,您需要開啟該表單以啟動 Open 事件。 請確定表單包含:
一個名為 ComboBox1 的 ComboBox 。
一個名為 SpinButton1 的 SpinButton ,它結合到名為 SpinButtonValue 的自訂數字欄位。
一個名為 Label1 的 Label 。
Sub Item_Open()
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
Set SpinButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton1")
Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label1")
For i = 1 To 20
ComboBox1.AddItem "Choice " & (ComboBox1.ListCount + 1)
Next
SpinButton1.Min = 0
SpinButton1.Max = 12
SpinButton1.Value = ComboBox1.ListRows
Label1.Caption = "ListRows = " & SpinButton1.Value
End Sub
Sub Item_CustomPropertyChange(byval pname)
If pname = "SpinButtonValue" Then
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
Set SpinButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton1")
Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label1")
ComboBox1.ListRows = SpinButton1.Value
Label1.Caption = "ListRows = " & SpinButton1.Value
End If
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應