我该如何做，以致于您无法在组合框中输入文字？有没有办法关闭该功能？

Question

我想使用ComboBox，但禁用该选项以键入它。

我正在尝试使用命令按钮从列表框中填充文本框。除非列表框中的项目被选中并突出显示为蓝色，否则我无法获得用于转移列表框中的内容的按钮。如果我使用组合框，则无需突出显示该组合框，但是我不希望将选项键入框中，仅从列表中选择即可。

这是我正在测试的整个代码。

Private Sub CommandButton1_Click()
TextBox1 = Me.ComboBox1.Value
End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Initialize()
'Creates and assigns the Array to the ListBox when the form loads.
   Dim name As Variant

   name = Array("Sunday", "Monday", "Tuesday", "Wednesday", _
      "Thursday", "Friday", "Saturday")
   ComboBox1.List = name
End Sub

Answer 1

如果在将组合框创建为fmStyleDropDownList时更改样式，则将起作用。

或

将其放入您的代码中-您将在对象名称的下面拥有组合框的名称（如果已更改）。

Private Sub UserForm_Initialize()

    Me.ComboBox1.Style = fmStyleDropDownList

End Sub