Настройка ComboBox как доступного только для чтения: есть ли способ?

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