Memanipulasi Kontrol ComboBox di Visual Basic .NET (VB.NET) dengan Mudah dan Efektif

Kalau kita sering ngoding dengan Visual Basic versi berapapun pasti kita selalu ketemu yang namanya ComboBox, kontrol ini berfungsi untuk menampilkan data yang ada didalamnya dalam bentuk dropdown mulai dari kode barang, nama barang sampai status, bahkan image atau icon, memang terlihat sederhana tetapi dengan adanya combobox bisa menghemat tempat sehingga tidak semua ditampilkan dan hanya memilih salah satu.

Dalam artikel blog ini kita kan membahas bagaimana combobox bisa dimanipulasi dengan berbagai cara, sebelum kita memulai alangkah baiknya kita perlu tau apa itu combobox?

Combobox adalah kontrol UI yang menggabungkan TextBox dan ListBox. Pengguna bisa:

• Memilih data dari daftar
• Mengetik nilai sendiri (opsional)

Berikut dibawah ini adalah apa saja yang bisa di manipulasi oleh combobox

1. Menambahkan item
2. Menghapus item
3. Mengambil nilai yang dipilih
4. Combobox Autocomplet (pencarian otomatis)
5. Memasukan icon didalam Combobox, dan masih banyak lainnya

Memanipulasi ComboBox

Ok, sekrang kita mulai pembahasan satu per satu dengan contohnya :

1. Menambahkan Item ComboBox

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        ComboBox1.Items.Add("Merah")

        ComboBox1.Items.Add("Kuning")

        ComboBox1.Items.Add("Hijau")

        ComboBox1.Items.Add("Biru")

        ComboBox1.SelectedIndex = 0 'pilih data pertama tampil

    End Sub

End Class

Keterangan:

Saat form dijalankan maka secara otomatis data di tambahkan kedalam combobox, untuk melihatnya klik dropdown

2. Menghapus Item ComboBox

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        ' menampilkan data ComboBox 1

        ComboBox1.Items.Add("Data 1")

        ComboBox1.Items.Add("Data 2")

        ComboBox1.Items.Add("Data 3")

        ComboBox1.SelectedIndex = 0

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' cek pilihan button hapus

        If ComboBox1.SelectedIndex = -1 Then

            MessageBox.Show("Pilih data terlebih dahulu!")

            Exit Sub

        End If

        Dim namaItem As String = ComboBox1.SelectedItem.ToString()

        If MessageBox.Show(

            "Apakah Anda yakin ingin menghapus data '" & namaItem & "' ?",

            "Konfirmasi Hapus",

            MessageBoxButtons.OKCancel,

            MessageBoxIcon.Warning

        ) = DialogResult.OK Then

            ComboBox1.Items.Remove(ComboBox1.SelectedItem)

        End If

    End Sub

End Class

Keteranagan :

Pilih Data yang akan di hapus, kemudian tekan Button1, maka akan menampilkan pesan OK dan Cancel jika di pilih OK maka data terhapus jika di pilih Cancel maka data tidak terhapus.

Jika ComboBox kosong dan Button1 di klik maka akan menampilkan pesan Pilih data terlebih dahulu!

3. Mengambil Nilai yang dipilih

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim barang() As String = {"B001 - Pensil", "B002 - Pulpen", "B003 - Buku", "B004 - Penghapus"}

        ComboBox1.Items.AddRange(barang)

        ComboBox1.SelectedIndex = 0

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) _

    Handles ComboBox1.SelectedIndexChanged

        Label1.Text = ComboBox5.SelectedItem.ToString()

    End Sub

End Class

Keterangan :

Ketika kita memilih salah satu yang ada di dalam combobox maka data yang dipilih akan di tampilkan di Label1.Text

4. ComboBox AutoComplet (pencarian otomatis)

Public Class Form1

    Dim listBarang As New List(Of String)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

       listBarang.AddRange({

        "Pensil",

        "Pulpen",

        "Buku",

        "Tas"

    })

        ComboBox5.DropDownStyle = ComboBoxStyle.DropDown

        ComboBox5.Items.AddRange(listBarang.ToArray())

    End Sub

    Private Sub ComboBox5_TextUpdate(sender As Object, e As EventArgs) Handles ComboBox5.TextUpdate

        Dim keyword As String = ComboBox5.Text.ToUpper()

        ComboBox5.Items.Clear()

        For Each item In listBarang

            If item.ToUpper().Contains(keyword) Then

                ComboBox5.Items.Add(item)

            End If

        Next

        ComboBox5.DroppedDown = True

        ComboBox5.SelectionStart = ComboBox5.Text.Length

    End Sub

End Class

Keterangan :

Ini adalah proses pencarian data melalui Combobox, misal saya ingin mencari "Pulpen" ketika huruf 'P' d iketik maka akan memfilter data dan akan menampilkan data yang berawalan hurup 'P'.Biasanya ini untuk data yang besar atau banyak.

5. Memasukan Icon kedalam ComboBox

Untuk jenis manipulasi nomor 5 ini kita akan lanjutkan di artikel berikutnya, karena untuk membuatnya butuh konsentrasi penuh dan agak panjang.

Demikianlah artikel kali ini membahas tentang Memanipulasi Kontrol ComboBox di Visual Basic .NET (VB.NET) dengan Mudah dan Efektif, semoga artikel bermanfaat buat kita semua.Amin

Selamat mencoba semoga berhasil.