Predmet:Re: Combobox as you type

---

Evo rešenja
Nadam se da će nekome uštedeti 10 dana pretrage

Private listOnit As List(Of String) = New List(Of String)()
Private listNew As List(Of String) = New List(Of String)()

'********************************
Private Sub BindComboBox()

Dim strconn As String = "Data Source=10.10.60.83;Initial Catalog=INIT_DB;User ID=***;password=***"
Dim conn As New SqlConnection(strconn)
Dim cmd As New SqlCommand("SELECT Naziv FROM Kupci Order by Naziv", conn)
Dim da As New SqlDataAdapter(cmd)
Dim ds As New DataSet
da.Fill(ds, "listOnit")
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
listOnit.Add(ds.Tables(0).Rows(i)(0).ToString())

Next

Me.nazivdm_combo.Items.AddRange(listOnit.ToArray())
End Sub
'********************************
_Load

BindComboBox()
'********************************
Private Sub nazivdm_combo_TextUpdate(sender As Object, e As EventArgs) Handles nazivdm_combo.TextUpdate

Me.nazivdm_combo.Items.Clear()
listNew.Clear()
Me.nazivdm_combo.DroppedDown = True
For Each item In listOnit

If item.Contains(Me.nazivdm_combo.Text) Then
listNew.Add(item)
End If
Next

Me.nazivdm_combo.Items.AddRange(listNew.ToArray())
Me.nazivdm_combo.SelectionStart = Me.nazivdm_combo.Text.Length
Cursor = Cursors.[Default]

End Sub
'********************************
Private Sub nazivdm_combo_KeyPress(sender As Object, e As KeyPressEventArgs) Handles nazivdm_combo.KeyPress
If Char.IsLetter(e.KeyChar) Then

e.KeyChar = Char.ToUpper(e.KeyChar)

End If
End Sub