ComboBox - список пустой?

[starshoy]

Проблема в следующем:
занесены данные которые он должен отображать в расскравающемся списке, но когда открываешь список он пуст, только после того как в поле будет введено какой-либо символ список расскрывается и выдает необходимый перечень!!!

Почему список сразу не расскрывается после нажатия кнопки?!

Спасибо!

[GSerg]

Автору вопроса рекомендуется дополнить вопрос до уровня понятности, не вызывающей вопросов, иначе вопрос автора вопроса будет без вопросов закрыт...

[starshoy]

Вот полюбому у этой проблемы простейшее решение, но я уже мозг сломал и не могу найти решения!!!

Если все еще не понятен мой вопрос (заранее извиняюсь, так как не имею специально образования, да и опыта маловато еще) то тогда задавайте, плиз, наводящие вопросы - я отвечу!!!!!

[alibek]

так как не имею специально образования, да и опыта маловато еще

Специальное образование и опыт, чтобы разговаривать?
Расскажи на русском языке, что тебе нужно сделать, что пытался сделать и что не получается.

[starshoy]

когда в комбобоксе нажимаешь стрелочку должен раскрыться список (в данном случаии с именами), но он сразу не расскрывается!!!

я написал следующий код

Код: Выделить всё

With ComboBox2
    .List = Array("Николай Ожигов", "Петр", "Андрей", "Руслан 0", "Руслан Павлов", "Рамис", "Рустам", "Руслан")
End With

вот!!!

[alibek]

А где ты его написал?

[starshoy]

всмысле где? в редакторе!

вот полностью:

Код: Выделить всё

Private Sub ComboBox2_Change()
With ComboBox2
    .List = Array("Николай Ожигов", "Петр", "Андрей", "Руслан 0", "Руслан Павлов", "Рамис Карамов", "Рустам", "Руслан Карамов")
End With
end sub

[uhm]

Ы!

Прочти в хелпе, плиз, что за событие Change. Потом подумай, что же ты сейчас пытаешься сделать...

[KL]

всмысле где? в редакторе!

вот полностью:

Код: Выделить всё

Private Sub ComboBox2_Change()
With ComboBox2
    .List = Array("Николай Ожигов", "Петр", "Андрей", "Руслан 0", "Руслан Павлов", "Рамис Карамов", "Рустам", "Руслан Карамов")
End With
end sub

Если ComboBox2 находится в UserForm то попробуй так:

Код: Выделить всё

Private Sub UserForm_Initialize()
    With ComboBox2
        .List = Array("Николай Ожигов", "Петр", "Андрей", "Руслан 0", "Руслан Павлов", "Рамис Карамов", "Рустам", "Руслан Карамов")
    End With
End Sub

[starshoy]

Всем спасибо!!!

Но, я в выходные разобрался и ошибка была действительно в "Change", надо было указать "Enter"
Бум дальше учитьсмя!!!