Twitter Delicious Facebook Digg Stumbleupon Favorites More

Selasa, 21 Juni 2011

Membuat Textbox AutoComplete (Tanpa Database)

Tutorial kali ini akan membahas tentang cara membuat AutoComplete pada Textbox. Apa itu Auto Complete? AutoComplete merupakan suatu bantuan kata-kata saran yang akan ditampilkan dibawah textbox berdasarkan kata yang anda inputkan.

Ex: Pada mesin pencari Google, Saat anda memasukan teks. Kotak sugesti akan muncul di bawah kotak inputan.

Cukup pembahasannya. Langsung saja pada materi.
Pertama-tama kita membuat sebuah form dan masukan sebuah TextBox dan Sebuah Label lalu designlah sesuai dengan keinginan anda:
Gambar Design








Object
Properties
Form1 Name FrmAutoComplete



FormBorderStyle FixedSingle
Textbox1 Name TxtAutoComplete



AutoCompleteCostumSource (Collection)



AutoCompleteMode SuggestAppend



AutoCompleteSource CostumSource
Label1 Text Pencarian



Font Size 14 px

Lalu Ketikanlah Kode Berikut

Private Sub FrmAutoComplete_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With TextBox1.AutoCompleteCustomSource
    .Add("Franky Soputra")
    .Add("Frans")
    .Add("Fajar")
    .Add("Fritz")
    .Add("Fost")
    .Add("Fitri")
    .Add("Fajar")
    .Add("Fandi")
    .Add("Faldi")
    .Add("Fendi")
End With
End Sub

Kalian juga bisa menggunakan kode berikut. Sebenarnya penjelasannya sama saja dengan di atas tetapi kodenya lebih panjang, kalo aq sihh lebih suka kode yang di atas.

Private Sub FrmAutoComplete_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.AutoCompleteCustomSource.Add("Franky Soputra")
TextBox1.AutoCompleteCustomSource.Add("Frans")
TextBox1.AutoCompleteCustomSource.Add("Fajar")
TextBox1.AutoCompleteCustomSource.Add("Fritz")
TextBox1.AutoCompleteCustomSource.Add("Fost")
TextBox1.AutoCompleteCustomSource.Add("Fitri")
TextBox1.AutoCompleteCustomSource.Add("Fajar")
TextBox1.AutoCompleteCustomSource.Add("Fandi")
TextBox1.AutoCompleteCustomSource.Add("Faldi")
TextBox1.AutoCompleteCustomSource.Add("Fendi")
End With
End Sub

Hasilnya akan seperti berikut :
Gambar Program

Klik disini untuk mendownload Source

By Franky Soputra

0 komentar:

Posting Komentar

Komentar anda akan di tampilan setelah disetujui oleh moderator.

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Blogger Templates