Style 属性示例

下例用 Style 属性，改变在组合框的文本区域内键入字符的结果。用户选中选项按钮控件，选取一种样式，然后在组合框中键入字符来选取条目。当 Style 是 fmStyleDropDownList 时，用户必须从下拉列表中选择一个条目；当 Style 是 fmStyleDropDownCombo 时，用户在文本区域键入字符，指定下拉列表中的一个条目。

窗体包含：

• 名为 OptionButton1 和 OptionButton2 的两个选项按钮控件。
• 名为 ComboBox1 的组合框。

Sub UserForm_OptionButton1_Click()
   UserForm_ComboBox1.Style = 0
End Sub

Sub OptionButton2_Click()
    UserForm_ComboBox1.Style = 2
End Sub

Sub UserForm_Initialize()
    Dim i
    
    For i = 1 To 10
        UserForm_ComboBox1.AddItem "Choice " & i
    Next
    
    UserForm_OptionButton1.Caption = "Select like ComboBox"
    UserForm_OptionButton1.Value = True
    UserForm_ComboBox1.Style = 0

    UserForm_OptionButton2.Caption = "Select like ListBox"
End Sub