设置组合框的输入样式
以下示例使用 Style 属性更改 ComboBox 的用户输入样式。 用户通过选择 OptionButton 控件来选择样式,然后键入 ComboBox 以选择项目。 当 Style 为 StyleDropDownList 时,用户必须从下拉列表中选择项目。 当 Style 为 StyleDropDownCombo 时,用户可以在文本区中键入值来指定下拉列表中的项目。
若要使用本示例,请将此示例代码复制到窗体的"脚本编辑器"中。 若要运行本代码,需要打开该窗体,以便激活 Open 事件。 确保该窗体包含:
两个名称分别为"OptionButton1"和"OptionButton2"的 OptionButton 控件。
一个名为"ComboBox1"的 ComboBox 。
Sub OptionButton1_Click()
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
ComboBox1.Style = 0 '0=fmStyleDropDownCombo
End Sub
Sub OptionButton2_Click()
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
ComboBox1.Style = 2 '2=fmStyleDropDownList
End Sub
Sub Item_Open()
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
Set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton1")
Set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton2")
For i = 1 To 10
ComboBox1.AddItem "Choice " & i
Next
OptionButton1.Caption = "Select like ComboBox"
OptionButton1.Value = True
ComboBox1.Style = 0 '0=fmStyleDropDownCombo
OptionButton2.Caption = "Select like ListBox"
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。