Membuat Auto Complete pada ComboBox di Vb.Net 2003

Wahh..udah lama ya ga posting artikel.... Lagi ada kerjaan dikit :). Yang penting pertanyaan dari rekan-rekan masih biasa ke jawab kan????

Artikel kali ini adalah berkenaan dengan control pada Vb.NEt 2003 yaitu ComboBox, kalau pada artikel sebelumnya, pernah saya menjelaskan bagaimana membuat AutoCompleted pada TextBox dan ComboBox pada Vs 2005 keatas. Tentu pada VS 2003 tidak tersedia fasilitas auto complete seperti pada VS 2005, tapi itu semua bisa di akalin, walaupun tidak sehebat fitur auto completed yang ada pada saat ini.. So, sekarang kita masuk ke codingnya aja langsung...

Di asumsikan kita memiliki ComboBox dengan nama CbGolDarah.. Pada Event KeyPress untuk CbGolDarah ketik sintaks di bawah.

Try
If Char.IsControl(e.KeyChar) Then Return
With CbGolDarah
Dim ToFind As String = .Text.Substring(0, .SelectionStart) & e.KeyChar
Dim Index As Integer = .FindStringExact(ToFind)
If Index = -1 Then Index = .FindString(ToFind)
If Index = -1 Then Return
.SelectedIndex = Index
.SelectionStart = ToFind.Length
.SelectionLength = .Text.Length - .SelectionStart
e.Handled = True
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try

selamat mencoba..

wassalam...