Autocomplete ComboBox

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

admin

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

Baca Juga  Template Jadwal Shift