ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ComboBox
10 сообщений из 10, страница 1 из 1
ComboBox
    #33266085
Plux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Plux
Гость
Здравствуйте все!
Подскажите пожалуйста можно ли в VB сделать подобное:
Есть combobox со списком пользователей, так вот надо, чтоб при вводе первых символов сразу подсвечивалась нудная строчка и не надо было нажимать стрелку вниз. Получается система как в 1С, но это надо реализовать в VB.

Заранее спасибо.
...
Рейтинг: 0 / 0
13.09.2005, 12:40:25
| Ответить | Цитировать | Написать  
ComboBox
    #33266248
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub ComboAutoComplete(cmb As ComboBox)
    Dim txt As String, pos As Long, txtlen As Long
    Dim matchcount As Long, complword As String
    Dim maxi As Long, i As Long, cmbindex As Long
    
    txt = cmb.Text
    txtlen = Len(txt)
    pos = cmb.SelStart
    maxi = cmb.ListCount -  1 
    For i =  0  To maxi
        If StrComp(txt, Left$(cmb.List(i), txtlen), vbTextCompare) =  0  Then
            matchcount = matchcount +  1 
            If matchcount =  1  Then
                complword = cmb.List(i)
                cmbindex = i
            End If
        End If
    Next
    If matchcount =  1  Then
        cmb.ListIndex = cmbindex
        cmb.SelStart = pos
        cmb.SelLength = Len(complword) - pos
    End If
End Sub
...
Рейтинг: 0 / 0
13.09.2005, 13:28:53
| Ответить | Цитировать | Написать  
ComboBox
    #33267675
Plux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Plux
Гость
Спасибо Melkiades код хороший, работает, вот только одна заморочка:
У меня в базе (в выборке) есть поля: пользователь 1, пользователь 2, перенос материалов и т.д. Когда я в комбобоксе набираю "п" он выдает правильно "пользователь 1", проблемы начинаются когда я начинаю вводить дальше. Допустим совершилась опечатка и вместо "е" набрано "о", при этом он так же высвечивает правильно, но когда замечаешь опечатку и пытаешься стереть последний набранный символ, то это не к чему не приводит т.к. существуют варианты с набранной последовательностью, комбо не дает. Вот и получается, что комбо не дает возможность на ошибку, чтобы стереть набранное надо согласиться с предлагаемым вариантом, потом выделить все и удалить, а это не совсем удобно.
Можно ли с этим как-нибудь бороться?
...
Рейтинг: 0 / 0
14.09.2005, 05:53:35
| Ответить | Цитировать | Написать  
ComboBox
    #33267891
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Выделять все не нужно, он сам выделяет окончание слова, помимо которого существуют другие варианты окончаний. А проверкой орфографии я не занимаюсь.
...
Рейтинг: 0 / 0
14.09.2005, 09:41:14
| Ответить | Цитировать | Написать  
ComboBox
    #33267993
Plux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Plux
Гость
Выделять то он выделяет, но стереть последнюю набранную букву, чтобы уйти на другой вариант, не представляется возможным
...
Рейтинг: 0 / 0
14.09.2005, 10:23:01
| Ответить | Цитировать | Написать  
ComboBox
    #33268035
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
А два раза BackSpace нажать?
...
Рейтинг: 0 / 0
14.09.2005, 10:36:05
| Ответить | Цитировать | Написать  
ComboBox
    #33268206
Plux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Plux
Гость
Хоть 10 раз нажимаю, бесполезно, не момогает если есть хоть 1 вариант из выборки, да забыла сказать, в этом условии, я заменила = на >=, а то он выдает подсветку только когда имеется 1 вариант

Melkiades
Код: plaintext
1.
2.
3.
4.
5.
    If matchcount >=  1  Then
        cmb.ListIndex = cmbindex
        cmb.SelStart = pos
        cmb.SelLength = Len(complword) - pos
    End If
...
Рейтинг: 0 / 0
14.09.2005, 11:12:18
| Ответить | Цитировать | Написать  
ComboBox
    #33268291
Plux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Plux
Гость
я вообще правильно делая вызывая эту процедуру на Combo1_Change или надо на другое событие её вешать?
...
Рейтинг: 0 / 0
14.09.2005, 11:29:08
| Ответить | Цитировать | Написать  
ComboBox
    #33268307
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
На Key_Up!
...
Рейтинг: 0 / 0
14.09.2005, 11:32:55
| Ответить | Цитировать | Написать  
ComboBox
    #33268576
Plux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Plux
Гость
Работает, вот только не на двойной клик по BackSpace, а по его удержанию 2сек. и стирает он при этом достаточно быстро, возможно это какие-то местные настройки, если знаешь, то подскажи пожалуйста, если нет, то и на том ОГРОМНОЕ СПАСИБО, ОЧЕНЬ ПОМОГ!!! :-))
...
Рейтинг: 0 / 0
14.09.2005, 12:28:41
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2167194]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 64ms
get topic data:
 13ms
get first new msg:
 8ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 224ms
total:  410ms
созд. / загр.: 410ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]