поиск в комбо

[lord0n]

Коллеги, собственно вопрос:
как правильно реализовать поиск в комбе, так, чтобы найденные данные выделялись а введенные нет.
Ну, типа, как это сделано в лингво

этот код работает нормально, но до момента пока не нажимается делит, вот тогда начинается полная лажа

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


   Private Sub cboPKlad_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboPKlad.TextChanged
      Dim o, p As Integer
      cboPKlad.DroppedDown = True
      o = Len(cboPKlad.Text)
      cboPKlad.SelectedIndex = cboPKlad.FindString(cboPKlad.Text)
      p = Len(cboPKlad.Text)
      cboPKlad.SelectionStart = o
      cboPKlad.SelectionLength = p
   End Sub


[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=13462 ?

[lord0n]

http://bbs.vbstreets.ru/viewtopic.php?t=13462 ?

хех, через апи я знаю как сделать
но хочется это сделать по нормальному, без использования апи

[GSerg]

Дык а методов FW нет соответствующих?

[lord0n]

вот мне и интересно какие
я просто незнаю как найти равносильные команды во фреймворке

[GSerg]

Среди одноимённых методов ComboBox, наверное?

[lord0n]

Среди одноимённых методов ComboBox, наверное?

эээээээээээ
я наверно туплю, но как?
сендмеседжа там нету

[GSerg]

эээээээээээ
скорее всего!
сендмеседж используется там только для поиска. У тебя это FindString. Обрати внимание на всё остальное. Как то на обработку клавиш типа delete.

[lord0n]

эээээээээээ
скорее всего!
сендмеседж используется там только для поиска. У тебя это FindString. Обрати внимание на всё остальное. Как то на обработку клавиш типа delete.

большое спасибо
буду ковыряться, куда копать понял
сделаю - выложу пример

[Sebas]

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

Public Property AutoCompleteCustomSource() As System.Windows.Forms.AutoCompleteStringCollection
    Member of System.Windows.Forms.ComboBox


Не то?

[GSerg]

FW 2.0? Понятия не имею.

[lord0n]

а как этим пользоваться?

[lord0n]

в принципе все просто:
две процедуры
lstFind - сам поиск
lstKey - проверка нажатых клавиш

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


   Public j As Integer

   Public Sub lstFind(ByVal sender As Object)
      If j <= 1 Then sender.DroppedDown = True
      sender.SelectedIndex = sender.FindString(sender.Text)
      sender.SelectionStart = j
      sender.SelectionLength = Len(sender.Text)
   End Sub

   Public Sub lstKey(ByVal a As Integer)
      Select Case a
         Case Keys.Back
            j = j - 1
            If j < 0 Then j = 0
            Exit Sub
         Case Keys.Delete
            j = j - 1
            If j < 0 Then j = 0
            Exit Sub
         Case Keys.Return
            j = 0
         Case Else
            j = j + 1
            Exit Sub
      End Select
   End Sub


ну и в соответствующие методы сомбо вставляем вызов процедур

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


   Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
      lstKey(e.KeyCode)
   End Sub

   Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
      lstFind(sender)
   End Sub


[lord0n]

собственно вопрос актуален
т. к. приведенный выше код сырой как вода
куча глюков и т. д.