Proses AutoComplete di TextBox lebih mirip ketika kita mengetikan kata di google, maka akan keluar kata yang menyerupai kata yang diketik secara otomatis. Proses ini dengan tujuan untuk mempermudah user dalam memilih/mencari kata yang dicarinya. Langsung saja kita bahas listing Programnya..
1. buat sebuah TextBox di dalam Form dan kita beri nama txtNama.
2. di Property box ubah AutocompleteMode -- > SuggestAppend dan AotuCompleteSource --> CustomeSource
3. Buat Prosedure :
4. Panggil Prosedure di Load Form
5. Running Program Hasilnya akan terlihat seperti Gambar dibawah ini :
Selamat Mencoba !!
1. buat sebuah TextBox di dalam Form dan kita beri nama txtNama.
2. di Property box ubah AutocompleteMode -- > SuggestAppend dan AotuCompleteSource --> CustomeSource
3. Buat Prosedure :
Private Sub ProcACText()
Dim ds As DataSet = New DataSet()
Dim SQL As String
Dim authors As New AutoCompleteStringCollection
SQL = "select Fullname from Person where RecordKey between 2042470 and 2045000 order by Fullname"
CheckConnection() 'Prosedure Koneksi silahkan buat sendiri
Dim SqlDbDataAdapter As System.Data.SqlClient.SqlDataAdapter = NewSystem.Data.SqlClient.SqlDataAdapter(SQL, SQLConn)
SqlDbDataAdapter.Fill(ds, "Person")
Dim dvManager As DataViewManager = New DataViewManager(ds)
Dim dv As DataView = dvManager.CreateDataView(ds.Tables("Person"))
For Each dRow In ds.Tables(0).Rows
txtNama.AutoCompleteCustomSource.Add(dRow("Fullname").ToString)
Next
End Sub
4. Panggil Prosedure di Load Form
Private Sub FrmAutocompleteTextBox_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.Load
Call ProcACText()
End Sub
5. Running Program Hasilnya akan terlihat seperti Gambar dibawah ini :
Selamat Mencoba !!
Ilmu Komputer 95
