将 ComboBox 配置为只读：有办法吗？

Question

我想使用组合框，但禁用了在其中输入内容的选项。

我正在尝试使用命令按钮从列表框中填充文本框。除非列表框中的项目被选中并突出显示为蓝色，否则我无法获得按钮来传输列表框中的内容。如果我使用组合框，则不需要突出显示它，但我不想在框中输入选项，只需要列表中的 select。

这是我正在测试的全部代码。

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

将 ComboBox 配置为只读：有办法吗？

Configuring a ComboBox as Read-Only: Is there a way to?

vba

combobox

ms-word