AUTO COMPLETE IN TEXTBOX VB.NET

Ok dalam belajar VB.NET kali ini saya akan mencoba menjelaskan tentang membuat auto complete di control textbox VB.NET, truz apa itu Auto complete?? Sebenernya saya juga agak kesulitan untuk menjelaskakn auto complete itu apa!!heheh..., contohnya begini, teman-teman mungkin gak asing lagi dengan raksasa search engin google nah biasanya ketika kita mengetikkan sebuah huruf atau kata di di kotak serch google akan muncul list berkaitan dengan kata yang di ketikkan misalnya : saya mengetikkan kata pin maka serentak akan muncul kata lain yang berkaitan dengan kata yang kita ketik tadi jelasnya seperti gambar di baah ini :

Ok saya anggap teman-teman sudah mengerti apa itu auto complete. sekarang teman-teman buka VS studionya dan mulai membuat new Project.kemudian tambahkan satu buah control texbox di Form projectnya adapun propertinya sebagai berikut:

OBJECT	NAME	TEXT	Properties yang di ubah
TextBox1	txtAutoComplete	_	Ø AutoCompleteCustumSource = (Collection) Ø AutoCompleteMode= SuggestAppent Ø AutoCompleteSource=CustumSource

Kemudian salin aja kode di bawah ini :

Private Sub AutoCompleteSource()

txtAutoComplete.AutoCompleteCustomSource.Add("faiz")

txtAutoComplete.AutoCompleteCustomSource.Add("fitri")

txtAutoComplete.AutoCompleteCustomSource.Add("firdaus")

txtAutoComplete.AutoCompleteCustomSource.Add("firman")

txtAutoComplete.AutoCompleteCustomSource.Add("farel")

txtAutoComplete.AutoCompleteCustomSource.Add("faisal")

txtAutoComplete.AutoCompleteCustomSource.Add("faris")

'teman-teman bisa mengisi AutoCompleteCustomSource

'dari database coba sendiri aja ya... ;-),

'soalnya saya lagi males klo musti bikin database segala

End Sub

Untuk mengisi AutoCompleteCustomSource teman-teman bisa mengambil dari database. tapi coba sendiri ya.... ;P~~ heheh.

Jangan lupa panggil sub AutoCompleteSource() di event form_load :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call AutoCompleteSource()

End Sub

HASIL :

DOWNLOAD SOURCE DISINI