Как сделать,чтобы список разворачивался при получении фокуса

[Shura09]

Всем привет!
Подскажите пожалуйста как сделать,чтобы список разворачивался при получении фокуса?
В Access в VBA можно было записать ComboBox1.Dropdown и это работало, т.е. список разворачивался, а как тоже самое сделать в Visual Basic?

И еще один вопросик, как в том же поле сделать контекстный поиск, т.е. когда набираешь 1-ые буквы и автоматически отображаются записи?

Может есть какой-то особенный контрол?
Спасибо!!!

[_NeoN_]

VB щас не стоит, но мге сказать как примерно это сделать если стандартного ничего нету.
значит делаешь combobox(enabled=false!!!!!)
и делаешь listbox...(visible=false)
ну и пишем
private sub combobox_gotfocus(..не помню че тута)
if listbox.visible==false then listbox.visible=true
end sub

private sub combobox_lostfocus(....)
if фокус_на_лист_боксе then exit sub else listbox.visible=false
endif

извини не проверял ))) может быть есть стандартные способы =))

[_NeoN_]

насчет второго... там все просто =) смотришь что набрал... отсеиваешь записи начало которых не равно тому что набрал... вот и все... процедура выполняется за линейное время и пишется 2 секунды...

[Shura09]

Дааа...
Это черезчур.
А свойства какого-нибудь нет? Или может есть контрол с такими критериями?

[alibek]

1. Примерно так:

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

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

2. Тебе нужен фильтр или поиск? Если фильтр, что при изменении комбобокса (Combo1_Change) перезагружаешь его содержимое. Если поиск, то поищи по форуму по слову FindByValue, skiperski давал неплохой пример реализации автопоиска.

[MEMBER]

И еще один вопросик, как в том же поле сделать контекстный поиск, т.е. когда набираешь 1-ые буквы и автоматически отображаются записи?

Обратите внимание на Microsoft Forms 2.0
Сразу замечу, что под НТ системами будут проблемы с кириллическими шрифтами. Латиница отображается нормально.

[Shura09]

Блин...
Microsoft Forms 2.0 - то что надо, только у пользователей какраз NT
SendKeys "%{DOWN}", True Тоже хорошо, только в строке не появляются варианты.

А эта проблема с кириллицей как-нить решается?

[MEMBER]

В своё время очень долго рыл эту проблему. Ничего не удалось решить. Может не там рыл?

[Shura09]

Ясно. Всеравно большое спасибо. Буду пробовать решить проблему. Благо начало положено.

[GSerg]

MEMBER, всё-таки действительно не там рыл
Никогда этим раньше не пользовался, но по названию констант сразу догадался

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

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal uNsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const CB_SELECTSTRING As Long = &H14D
Private Const CB_SHOWDROPDOWN As Long = &H14F

Private Sub Combo1_Change()
  SendMessage Combo1.hWnd, CB_SELECTSTRING, 0, ByVal Combo1.Text
End Sub

Private Sub Combo1_GotFocus()
  SendMessage Combo1.hWnd, CB_SHOWDROPDOWN, 1, ByVal 0&
End Sub