Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > ComboBox: раскрытие и очистка

Автор: Shoblin 17.10.2007, 14:14

При вводе с клавиатурры в комбо текста, происходит поиск по начальным буквам из БД.

Код


Do Until rs.EOF 
    If Not rs.Fields(1) = "" Then
        CombF1.AddItem rs.Fields(1)
    End If
    rs.MoveNext
Loop

Но поскольку в словах больше одной буквы, то он по несколько раз вводит одни и теже слова... А при очистке Клином стерается все(текст вводящийся с клавы тоже...) Может можна как-то очищать только список(тот, что в выпадает)?

Вопрос номер 2: Можно ли как-то сделать, что бы список самомтоятельно, автоматически выпадал, после ввода какого-то текста из клавиатуры?

Автор: Akina 17.10.2007, 17:06

http://forum.vingrad.ru/forum/topic-176931.html

Автор: Shoblin 20.10.2007, 04:54

Цитата

Делай Combo1.AutoExpand=False
И событие Combo1.OnChange
Выделить всёкод Visual Basic

Код




Private Sub Combo1_Change()
  If Combo1.Text <> "" Then
    Combo1.RowSource = "SELECT Table1.Field1 FROM Table1 WHERE Table1.Field1 Like """ & Combo1.Text & "*"";"
  Else
    Combo1.RowSource = ""
  End If
  Combo1.Dropdown
End Sub
В списке будут только "елементы на Г"

Только проблемка... у меня в Комбо таких свойств и действий нету... AutoExpand и Dropdown

Автор: Akina 21.10.2007, 21:16

Получив ответ, не следует переставать думать самостоятельно. Да, объекты в MS Access несколько отличаются от одноименных в VB6, но общего у них гораздо больше. Адаптируйте идею под свои нужды.