ComboBox - помоги разобраться

[АндрейБ]

В форме присутсвует элемент ComboBox. Все разотает отлично. Но когда данные в нем на латинском языке и когда я набираю первые буквы он сразу подставлет из списка поле с таким значением, но когда на русском - не подставляет. Почему? И как сделать что бы поставлял? Список большой, порядка 100 строк, поэтому визуальный поиск не эффективен. Помогите.

[dr.MIG]

А почему бы для начала самому не поискать по форуму?
viewtopic.php?f=28&t=13462

[АндрейБ]

Код внедрил в свою форму, но не работает. Мне показалось что вопрос по ссылке стоял в том что поиск идет не по всему списку, т.к. было порядка 10,000 записей в элементе, у меня вопрос стоит в том что не ищет на кирилице, на латинском ищет нормально.
Кто-нибудь еще подскажет?

[Денис]

Кто-нибудь еще подскажет?

Уточните версию студии (5 или 6) и версию сервиспака.

[АндрейБ]

у мен VB 6.0.

[Денис]

у мен VB 6.0.

Короче, комбобокс недоделанный у них (сам проверил на своём VB6SP6). Юзай код по ссылке доктора.

[АндрейБ]

Я ввел код по ссылке доктора, без изменений. Может еще есть какой-нибудь код?

[Йода]

У меня код по ссылке работает. Выкладывай нерабочий проект.

[АндрейБ]

Попробую еще раз поюзам ссылку. Если не получиться тогда выложи код формы.

[АндрейБ]

Уважаемый Йода у меня не рабоатет? Я пытал этот код, но ничего не получается (даже вставлял вызов функции AutoFillCombo в событие PressKey у ComboBox).
Есть кто может мне разжувать - буду благодароен? Я сам не силен в VB, особенно когда применяется библиотека "user32".
Где почитать про нее?
В кратце еще раз опишу проблему.
у меня в форме есть 3 элемента ComboBox.
2 заполнены английские терминами (латинский шрифт) Combo1 и Combo2, а 1 рускими терминами (кирилица) Combo3.
Все три эелемента при загрузке формы заполняеются значениями порядка 10-100 в каждом.
Фокус падает на Combo1, я нажимаю клавишу с буквой латинского алфавита и идет автоподстановка с первой буквой которую я нажал, второе нажатие клавиши и далее ищет совпадение по второму символу при условии что первый ужен назначен и т.д. - я думаю все поняли. Это поисходит автоматом.
Combo3 - не работает так, т.к. данными на русском.
Хочу что бы в Combo3 сделано было как в Combo1 и Combo2.

Вот код по ссылке переделанный под мою фому:

Option Explicit
Private Const CB_FINDSTRING = &H14C&
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hWnd&, ByVal wMsg&, ByVal wParam&, lParam As Any)
Private LastComboKeyAscii&

Sub AutoFillCombo(Combo As ComboBox)
Dim I&, P&
I = SendMessage(Combo.hWnd, CB_FINDSTRING, -1, ByVal Combo.Text) + 1
If I > 0 Then
P = Combo.SelStart
Combo.ListIndex = I - 1
Combo.SelStart = P
Combo.SelLength = Len(Combo.Text) - P
End If
End Sub

Private Sub Combo3_Change()
If Not (LastComboKeyAscii = And Not (LastComboKeyAscii = 46) Then AutoFillCombo Combo3
LastComboKeyAscii = 0
End Sub

Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer)
LastComboKeyAscii = KeyCode
End Sub

Ничего не происходит!
Я назначил вызов функции AutoFillCombo на событие PressKey, но функция не работает.
Я сделал точку остановки в AutoFillCombo, оказалось что аргумент Combo = "", хотя
описано AutoFillCombo Combo3.

В чем проблема. Помогите.

[Йода]

Я сам не силен в VB, особенно когда применяется библиотека "user32".
Где почитать про нее?

В MSDN. Если туго с английским - попробуй выгуглить нужную, но непонятную функцию\сообщение. В большинстве своём всё находится, иногда есть примеры на VB. Поставь себе API-Guide (примеры использования API на VB) и ApiViewer 2004(объявления функций\процедур, констант и типов).
Твой код по прежнему у меня работает. Что я делаю неправильно? (во вложении пример работающего кода) Как ты заполняешь списки? Предлагаю тебе приложить свой нерабочий проект.

[АндрейБ]

Спасибо за ответ Йода, скачал твой пример, сегодня поразбираюсь. Если будут вопросы еще напишу.
Просто я не программист, сам пишу для своей фирмы автоматизицию (складскую, бухгалтерскую, менеджерскую),
поэтому делаю как знаю и как могу, часто методом научного тыка:) До этого автоматизировал в самом Акцессе с помощью встроенных в него запросов, форм и отчетов. Сейчас уже пару лет пытаюсь в плотную писать на VB, т.к. в нем все пишеться намного более гибко и независимо.

Вот как я заполняю элемент ComboBox (если интересно), при загрузке Formы.
Set DBS = OpenDatabase("//Server/Server/System/Price/PRICE/AK.mdb")
Set RS = DBS.OpenRecordset("Select * From Makes;")
If RS.RecordCount > 0 Then
RS.MoveFirst
Do Until RS.EOF
Combo1.AddItem RS![MAKE]
RS.MoveNext
Loop
End If

[АндрейБ]

Йода все получилось, оказалось все проще паренной репы. Св-во ComboBox Style у меня было 2, а по умолчанию у тебя 0, поэтому и не работало. Немного анализа с твоей формой и все ок. Спасибо.

[АндрейБ]

Йода, подскажи пожалуйста как сделать так что бы при получении Comobox фокуса сменялся язык, что бы при передвижении по элементам (у меня 2 заполнены английскими а 1 рускими данными) менялся автомат и язык, что бы в ручную не проверять и не менять?
Такое реально (для полной автоматизации)?

[Хакер]

За такое надо бить по рукам. Программа не должна сама менять раскладку.

[Денис]

Программа не должна сама менять раскладку.

Кроме Punto Switcher! Это автоматический переключатель раскладок. И он специаьно создан для того, чтобы менять раскладку тогда, когда вы случайно забываете это сделать и у вас получается"цштвщцы" вместо "windows".
Скачайте Punto Switcher и все ваши проблемы с раскладкой будут решены!
Фух.

[АндрейБ]

Почему бить по рукам. Я делаю автоматизацию для повышения производительности труда менеджеров, и иногда мелочи сбивают с ритма работы, в данном случае я протестировал форму, и хочу отладить ее, т.к. когда вначале два ComboBox заполнены английскими терминами, а потом третий русскими, не всегда сразу соображаешь что вначале надо сминить язык.
Кроме как Punto Switch, есть просто смена языка в Windows из VB?

[Денис]

смена языка в Windows из VB

[Хакер]

Почему бить по рукам.

Потому что UI должен быть предсказуемым и интуитивно понятным. Нормальный адекватный человек, работая с твоей программой, будет сам переключать раскладку. Потому что программы обычно не переключают сами раскладку. Догадываешься, какие будут последствия от двойного переключения?

[АндрейБ]

У нас работает с этой программой 4 менеджера, и если бы видел их, ты бы так не сказал на счет адекватности:)
Ну а если серьезно, человек наверное самый приспособленный вид, и он приспосаблевается почти к любым условиям, поэтому я попробую так сделать, и если будут нарекания то уберу, но я немного потестировал сам, мне показалось что будет удобно. Поработает посмотрим.

[Хакер]

Не нужно адаптировать софт для дебилов. Если такой софт попадёт в руки не-дебила, то страдать будет последний.

[iGrok]

Когда я такую штуку делал в нескольких формах корпоративной софтины, мне только спасибо сказали всей фирмой...

Есть две формы. В каждой по десятку полей.
В одной - все значения набираются на английском, и только фамилия на русском.
В другой - всё на русском, и только серийник - на английском.

После добавления фишки с автопереключением жить стало конкретно проще.. Естественно, она была задокументирована, и этот момент был описан в хелпе.

Соглашусь в одном. Для софта, выпускаемого "в мир" таких фишек делать нельзя.

З.Ы. В моём случае было пофигу, дебил пользуется, или нет. Переключение происходило на нужный язык. Информации на другом языке в этом поле быть не должно было, да и просто не могло.
А вот до введения фишки работа с принятием товара в брак происходила по следующему алгоритму:
- заполнить информацию о товаре, неисправности, поврежедниях, табом переключиться на поле с серийником, "стрельнуть" сканером штрихкод с девайса, ввести фамилию, нажать "печать". Посмотреть на напечатанное, матюгнуться про себя, сделать всё ещё раз, НЕ ЗАБЫВ переключиться на англ перед снятием серийника сканером, и обратно перед вводом фамилии. Напечатать ещё раз. Отдать часть клиенту, дойти до секретаря, отдать ему ошибочную бумажку, и попросить прибить её в базе, как ошибочную.

Как-то так.

[АндрейБ]

Igrok - ты правильно говоришь, задачи иногда разные и методы реализации разные.
Я посмотрел смену языка в поиске, но толком ничего не написано, только то что можно сменить через реестр:
HKEY_USERS\.DEFAULT\Keyboard Layout\Preload (1 - 00000409, 2 - 00000419)
Но как пользоваться в VB нет ни одного примера - помоги тупарю:)

[Денис]

GetKeyboardLayout, SetKeyboardLayout, getKeyboardLayoutName, getKeyboardLayoutList и т.д.

[АндрейБ]

Денис ты как "Морфей", типа показал дверь, а войти туда я должен сам:)
То что ты мне написал в VB как мне использовать?
Дай пожалуйста один пример.

[Хакер]

Денис ты как "Морфей", типа показал дверь, а войти туда я должен сам:)

Именно так.

[Shasha]

АндрейБ
см.аттач

[АндрейБ]

Ну спасибо Сашка.

[Yerro]

Доброго времени суток.
Насколько я понимаю, ComboBox состоит из EditBox и ListBox, дескрипторы которых можно заполучить с помощью сообщения CB_GETCOMBOBOXINFO.
А возможно ли, используя эти дескрипторы, назначить действующие хуки этим контролам с помощью setWindowLong?
У меня не вышло - setWindowLong возвращает ноль.
Пробовал отправлять сообщение WM_SETTEXT в EditBox ComboBox'а, также безрезультатно.
Есть ли у кого-нибудь соображения, как можно получить управление над контролами ComboBox'а, используя эти дескрипторы?
Спасибо.

[pronto]

Дескриптор EditBox'a можно получить функцией ChildWindowFromPoint, а ListBox'a — cmbComboBox.Container.hWnd