[AnteC]

Здравствуйте.
Требуется на VBA реализовать следующее:
Пользователь щелкает на 1вый ComboBox1, выбирает некоторое значение, после чего должно быть автоматическое открытие следующего ComboBox2 для выбора следующего значения.
Однако если использовать для этого Private Sub ComboBox1_Change() в котором вызывать открытие следующего ComboBox2, то AutoCad вылетает с ошибкой. (это происходит как раз во время вызова ComboBox2.DropDown )
Как я понимаю проблема в том, что предыдущий ComboBox1 еще не закрылся. Можно ли как-нибудь решить это?
В данный момент решено путем необходимости нажатия после каждого выбора значения Enter (и использования ComboBox1_KeyDown), но что жутко неудобно.

[AlexV]

Что нужно, что б после выбора значения в ComboBox1, автоматически раскрывался список в ComboBox2?
Однако да, вылетает.. Можно посадить ComboBox2.DropDown на ComboBox1_Exit, тогда будет раскрываться второй список при переходе на любой другой контрол..

[AnteC]

На Exit не имеет смысла садить. Нужно именно при выборе значения в ComboBox1.
Вероятно это не реализуемо(

[AlexV]

Сообщение от AnteC На Exit не имеет смысла садить. Нужно именно при выборе значения в ComboBox1. Вероятно это не реализуемо(

Вероятно да.. Может, если уж так уж необходимо автоматическое раскрытие списка, добавить еще одну форму с комбобоксом, вызывать ее по ComboBox1_Change, заполнять список в комбобоксе по UserForm_Initialize, беря значения из комбобокса на 1-й форме.. Чего-то типа такого:

Код:

[Выделить все]

Private Sub UserForm_Initialize()
For i = 1 To UserForm2.ComboBox1.ListCount - 1
 ComboBox1.AddItem UserForm2.ComboBox1.List(i)
Next i
ComboBox1.Value = UserForm2.ComboBox1.List(0)
End Sub

Private Sub UserForm_Activate()
ComboBox1.DropDown
End Sub

[AnteC]

Нет. Все должно быть на одной форме.
Нет ли какого-нибудь хитрого(ибо в справке не нашел) метода, закрывающего ComboBox?

[Кулик Алексей aka kpblc]

Может, SetFocus поможет? По VBA нихьть бельмес...

[AlexV]

Сообщение от Кулик Алексей aka kpblc Может, SetFocus поможет? По VBA нихьть бельмес...

Не помогает.. пробовал.. Даже пробовал ComboBox2.DropDown посадить на отдельно живущую кнопку, а CommandButton1_Click вызывать из ComboBox1_Change, предварительно передав фокус ComboBox2.SetFocus.. Все равно, вылет автокада..