Autocomplete ComboBox
Daftar Isi Artikel
Combobox
Combobox menampilkan textbox yang digabungkan dengan ComboBox, yang memungkinkan pengguna untuk memilih item dari daftar atau memasukkan nilai baru. Dari versi Visual Studio 2008, beberapa kontrol mendukung fitur Autocomplete termasuk kontrol ComboBox.
Combobox Autocomplete
Properti AutoComplete seperti AutoCompleteCustomSource, AutoCompleteMode dan AutoCompleteSource untuk melakukan TextBox yang secara otomatis melengkapi string entri pengguna dengan membandingkan huruf awal yang dimasukkan ke awalan dari semua string dalam sumber data. Penggunaan properti AutoCompleteCustomSource bersifat opsional, tetapi Anda harus menyetel properti AutoCompleteSource ke CustomSource untuk menggunakan AutoCompleteCustomSource seperti sumber data dari database, daftar, dll.
VB.Net Autocomplete ComboBox
Program berikut menampilkan VB.Net Autocomplete ComboBox yang memilih nilai dari Database dan menambahkan AutoCompleteStringCollection dari ComboBox Autocomplete.
Source Code VB.Net
Imports System.Data Imports System.Data.SqlClient Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest ComboBox1.AutoCompleteSource = AutoCompleteSource.CustomSource Dim combData As New AutoCompleteStringCollection() getData(combData) ComboBox1.AutoCompleteCustomSource = combData End Sub Private Sub getData(ByVal dataCollection As AutoCompleteStringCollection) Dim connetionString As String = Nothing Dim connection As SqlConnection Dim command As SqlCommand Dim adapter As New SqlDataAdapter() Dim ds As New DataSet() connetionString = "Data Source=.;Initial Catalog=namadb;User ID=sa;password=pass123" Dim sql As String = "SELECT DISTINCT [fname] FROM [employee]" connection = New SqlConnection(connetionString) Try connection.Open() command = New SqlCommand(sql, connection) adapter.SelectCommand = command adapter.Fill(ds) adapter.Dispose() command.Dispose() connection.Close() For Each row As DataRow In ds.Tables(0).Rows dataCollection.Add(row(0).ToString()) Next Catch ex As Exception MessageBox.Show("Can not open connection ! ") End Try End Sub End Class

Seorang pengajar dan pembelajar yang mengurus lembaga pelatihan dan kursus komputer bernama LKP Naura