Автораскрытие комбобокса.

[Andrev]

Пошарил по поиску. Нашел, что автовыпадение комбобокса происходит при нажатии Ctrl+down (кажется, так). Записал:

Private Sub Combo1_GotFocus()
SendKeys "%{DOWN}", True
End Sub

Да. Работает. НО! Работает только когда код запускается из ВБ. После компиляции в экзешник почему-то список не раскрывается. Чей глюк? Мой? ОС? ВБ?

[GB826]

Private Const CB_SHOWDROPDOWN = &H14F

Public Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

SendMessage(ComboBox1.hwnd, CB_SHOWDROPDOWN, &O1, &O0)

[GSerg]

&O1, &O0

Это чё?

[alibek]

Восмеричная система это.

[GSerg]

Это понятно, но зачем?
И главное, lparam передан не byval.

[GB826]

Так ApiViewer предлагает, я ему обычно верю...

Так чего не работает?

[GSerg]

К декларации претензий нет.
byval 0& при передаче.

[GB826]

SendMessage(ComboBox1.hwnd, CB_SHOWDROPDOWN, 1, 0)

:о) Для придирчивых!

[GSerg]

Всё равно плохо.
byval 0&

[GB826]

Блин, я же не переменную отдаю, byval по идее не нужен....

[alibek]

Нужен, вообще-то.

[Andrev]

Ё-моё!!! Ну и дебаты...
Так а всё-таки интересно было бы узнать, почему работа экзешника отличается от работы проекта.

[GB826]

Нужен, вообще-то.

Хоть обоснуйте, а то может я и не прав. :о/

[GSerg]

Чем, в твоём понимании, передача константы отличается от передачи переменной?

[Andrev]

Лю-ю-ю-ди!!!!! Вопос был не тот, КАК сделать автооткрытие комбобокса!!! Вопрос был, В ЧЕМ ГЛЮК? Почему Сендкейз работает в проекте, но НЕ РАБОТАЕТ в экзешнике?!!!

[GB826]

Andrev Выключи дурачка, уже написали.

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

Private Const CB_SHOWDROPDOWN = &H14F

Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&

GSerg Я осилил! :оР

[GSerg]

GB826
Тоже выключай, вопрос нормальный.

Andrev
Лично у меня не работает ни в среде, ни в exe.

[alibek]

Лично у меня не работает ни в среде, ни в exe.

Это потому что в GotFocus.
Правильнее делать Combo1.SetFocus: SendKeys "%{DOWN}", True, тогда работает.
Но еще правильнее юзать API.