Kombo VB.NetBox Kontrol dengan CONTOH

Apa itu Combobox Control?

Kontrol combobox membantu Anda menampilkan daftar drop-down dengan banyak item. Lihat sebagai kombinasi kotak teks tempat pengguna memasukkan teks dan daftar dropdown tempat pengguna memilih item. Perhatikan bahwa combobox menampilkan satu item dalam satu waktu.

Membuat Kotak Kombo

Sebuah KomboBox dapat dibuat sebagai berikut:

Langkah 1) Buat Aplikasi baru.

Langkah 2) Seret kontrol combobox dari toolbox ke formulir.

Anda akan membuat kontrol kotak kombo.

Menambahkan Item ke Kotak Kombo

Sekarang setelah kita membuat kotak kombo, mari kita tunjukkan cara menambahkan item ke dalamnya.

Double klik kontrol kotak kombo yang telah Anda tambahkan. Anda akan dipindahkan dari tab desain ke tab dengan kode.

Untuk menambahkan item ke kontrol kotak kombo, kita menggunakan properti Items. Mari kita tunjukkan ini dengan menambahkan dua item ke kotak kombo, Pria dan Wanita:

ComboBox1.Items.Add("Male")
ComboBox1.Items.Add("Female")

Kita juga dapat memilih untuk menambahkan item ke kotak kombo pada waktu desain dari jendela Properti. Berikut langkah-langkahnya:

Langkah 1) Buka tab desain dan klik kontrol combobox.

Langkah 2) Buka jendela Properti dan lihat opsi Item.

Langkah 3) Klik … yang terletak di sebelah kanan (Koleksi).

Langkah 4) Anda akan melihat jendela baru. Di sinilah Anda harus menambahkan item ke dalam combobox, seperti yang ditunjukkan di bawah ini:

Langkah 5) Setelah selesai dengan typing Setelah memilih item, klik tombol OK.

Langkah 6) Klik tombol Mulai dari bilah alat atas dan klik ikon tarik-turun pada kotak kombo.

Item berhasil ditambahkan ke kontrol kotak kombo.

Memilih Item Kotak Kombo

Anda mungkin perlu menyetel item default yang akan dipilih saat formulir dimuat. Anda dapat melakukannya melalui metode SelectedItem(). Misalnya, untuk menyetel jenis kelamin default yang dipilih menjadi Pria, Anda dapat menggunakan pernyataan berikut:

ComboBox1.SelectedItem = "Male"

Saat Anda menjalankan kode tersebut, kontrol kotak kombo akan terlihat seperti di bawah ini:

Mengambil Nilai Combobox

Anda dapat mengambil item yang dipilih dari combobox Anda. Ini dapat dilakukan menggunakan properti teks. Mari kita demonstrasikan ini menggunakan combobox di atas dengan dua item, yaitu Pria dan Wanita. Ikuti langkah-langkah yang diberikan di bawah ini:

Langkah 1) Double Klik kotak kombo untuk membuka tab dengan kode VB.Net.

Langkah 2) Tambahkan kode berikut:

Public Class Form1
    Private Sub ComboBox1_SelectedIndexChanged(sd As Object, evnt As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim var_gender As String

        var_gender = ComboBox1.Text

        MessageBox.Show(var_gender)
		
    End Sub
End Class

Langkah 3) Klik tombol Mulai dari bilah alat untuk menjalankan kode. Anda akan mendapatkan formulir berikut:

Langkah 4) Klik tombol tarik-turun dan pilih jenis kelamin Anda. Dalam kasus saya, saya memilih Laki-laki, dan saya mendapatkan hasil berikut:

Berikut ini tangkapan layar kodenya:

penjelasan dari Code:

1. Membuat kelas bernama Form1. Kelas akan dapat diakses publik karena pengubah aksesnya disetel ke Publik.
2. Memulai sub-prosedur bernama ComboBox1_SelectedIndexChanged. Ini dihasilkan secara otomatis saat Anda mengklik dua kali kontrol combobox dari tab desain. Sub-prosedur ini akan dipanggil saat Anda memilih item dari combobox. sd As Object merujuk pada objek yang memicu kejadian, sedangkan evnt As EventArgs menyimpan data kejadian.
3. Membuat variabel String bernama var_gender.
4. Menetapkan nilai variabel var_gender ke item yang dipilih pada kotak kombo.
5. Mencetak nilai variabel var_gender pada sebuah Pesan.Box.
6. Akhir dari KomboBox1_SelectedIndexSub-prosedur diubah.
7. Akhir dari kelas Form1.

Menghapus Item Kotak Kombo

Anda dapat menghapus item dari kotak kombo. Ada dua cara untuk melakukannya. Anda dapat menggunakan indeks item atau nama item.

Saat menggunakan indeks item, Anda harus menggunakan properti Items.RemoveAt() seperti yang ditunjukkan di bawah ini:

ComboBox1.Items.RemoveAt(1)

Dalam contoh di atas, kita menghapus item yang terletak pada indeks 1 kotak kombo. Perhatikan bahwa indeks kotak kombo dimulai pada indeks 0, yang berarti bahwa perintah di atas akan menghapus item kedua dari kotak kombo.

Untuk menghapus item menggunakan namanya, Anda harus menggunakan properti Items.Remove() seperti yang ditunjukkan di bawah ini:

ComboBox1.Items.Remove("Female")

Kode di atas seharusnya menghapus item bernama Female dari ComboBox1.

Mengikat Sumber Data

Sebuah KomboBox dapat diisi dari Kumpulan Data. Pertimbangkan SQL Query yang diberikan di bawah ini:

select emp_id, emp_name from employees; 

Anda dapat membuat sumber data dalam suatu program lalu menggunakan kode berikut untuk mengikatnya:

comboBox1.DataSource = ds.Tables(0)
comboBox1.ValueMember = "emp_id"
comboBox1.DisplayMember = "emp_name"

Ini akan memberi Anda cara mudah untuk mengisi kontrol kotak kombo Anda dengan data tanpa harus mengetikkan setiap item satu per satu.

Acara SelectedIndexChanged

Anda seringkali menginginkan program Anda bereaksi saat pengguna memilih nilai baru.

Jenis peristiwa ini dipanggil saat Anda mengubah item yang dipilih pada kotak kombo Anda. Ini adalah peristiwa yang harus Anda gunakan saat Anda perlu menerapkan tindakan saat terjadi perubahan pada item yang dipilih di kotak kombo. Mari kita tunjukkan ini dengan menggunakan contoh:

Langkah 1) Buat yang baru Windows Formulir Aplikasi.

Langkah 2) Setelah itu, Anda perlu menyeret dan meletakkan dua kontrol combobox ke dalam formulir.

Langkah 3) Double klik di dalam formulir untuk membuka tab kode. Masukkan kode berikut:

Public Class Form1
    Private Sub Form1_Load(sd As Object, evnt As EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add("Males")

        ComboBox1.Items.Add("Females")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        ComboBox2.Items.Clear()

        If ComboBox1.SelectedItem = "Males" Then

            ComboBox2.Items.Add("Nicholas")

            ComboBox2.Items.Add("John")

        ElseIf ComboBox1.SelectedItem = "Females" Then

            ComboBox2.Items.Add("Alice")

            ComboBox2.Items.Add("Grace")

        End If
    End Sub
End Class

Langkah 4) Klik tombol Mulai dari bilah atas untuk menjalankan kode. Anda akan mendapatkan output berikut:

Langkah 5) Klik tombol tarik-turun pada kotak kombo pertama dan pilih Pria. Arahkan kursor mouse ke kotak kombo kedua dan klik tombol tarik-turunnya. Lihat item yang tersedia:

Langkah 6) Pindah ke kotak kombo pertama dan pilih PerempuanPindah ke kotak kombo kedua dan lihat item yang tersedia:

Berikut ini tangkapan layar kodenya:

penjelasan dari Code:

1. Membuat kelas bernama Form1.
2. Awal dari sub-prosedur bernama Form1_Load(). Ini akan dipicu setelah formulir dimuat. sd As Object merujuk pada objek yang memicu kejadian, sedangkan evnt As EventArgs menyimpan data kejadian.
3. Menambahkan item Pria ke KomboBox1.
4. Menambahkan item Wanita ke KomboBox1.
5. Akhir dari sub-prosedur Form1_Load().
6. Mulai dari sub-prosedur bernama ComboBox1_SelectedIndexChanged(). Ini akan dipanggil saat item dipilih pada kotak kombo pertama. Pengirim As Object merujuk pada objek yang memunculkan peristiwa sementara e As EventArgs memiliki data peristiwa.
7. Buat KomboBox2 kosong, hapus semua item darinya.
8. Menciptakan suatu kondisi. Memeriksa apakah item yang dipilih ada di ComboBox1 adalah Laki-laki.
9. Tambahkan item Nicholas ke ComboBox2 ketika kondisi di atas benar, yaitu item dipilih pada KomboBox1 adalah Laki-laki.
10. Tambahkan item John ke ComboBox2 ketika kondisi di atas benar, yaitu item dipilih pada KomboBox1 adalah Laki-laki.
11. Menciptakan suatu kondisi. Memeriksa apakah item yang dipilih ada di ComboBox1 adalah Wanita.
12. Tambahkan item Alice ke ComboBox2 ketika kondisi di atas benar, yaitu item dipilih pada KomboBox1 adalah Wanita.
13. Tambahkan item Grace ke ComboBox2 ketika kondisi di atas benar, yaitu item dipilih pada KomboBox1 adalah Wanita.
14. Akhir dari blok If.
15. Akhir dari KomboBox1_SelectedIndexChanged() sub-prosedur.
16. Akhir kelas Formulir1.

Pertanyaan Umum Demo Slot