Membuat Combobox Berantai dengan VB.Net

Membuat combobox berantai sangat sederhana dan sangat mudah sekali . Pada tutorial kali ini , tidak akan menggunakan database karena masih sangat sederhana . Langsung aja agan agan sekalian ane kasih tutorialnya .

yang perlu dipersiapkan tentunya adalah visual studio net , klo ane makenya yang versi 10 , yang dibawah itu tidak apa - apa sebenarnya yang membedakan hanyalah net framework version nya saja dan beberapa komponen didalamnya ( klo setau ane sih ).
Oke Lanjut ....

1. Buka Visual Studio anda .

2. Jika sudah , tambahkan 2 buah textbox dengan cara klik tahan lalu geser ke tempat yang agan inginkan , tambahkan pula 2 combobox serta 3 button .

Penjelasan kontrol yang kita tambahkan diatas :

• 2 buah textbox berfungsi untuk mendata nama agan beserta dengan kode pos agan .
• 2 buah combobox berfungsi sebagai combobox berantai dimana pada combobox pertama berisi daftar provinsi dan combobox kedua berisi daftar kota yang ada pada provinsi yang pertama .
• 3 button sebagai "button keluar" , "button reset" , "button tampilkan". 

Jika sudah hasilnya seperti dibawah ini :

Oke gan , tahap design kita sudah selesai , lanjut ke tahap peng-codingan :

1. Klik  ganda pada form , maka secara otomatis akan langsung diarahkan ke coding event form_load ., ketikkan kode seperti ini :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With ComboBox1
            .Items.Add("Aceh")
            .Items.Add("Bali")
            .Items.Add("Kalimantan Timur")
            .Items.Add("Daerah Istimewa Jogyakarta")
        End With
    End Sub

2. kemudian yang kedua , klik ganda pada combobox 1 , dan pastekan kode dibawah ini : 

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Bali" Then
            ComboBox2.Items.Clear()
            With ComboBox2
                .Items.Add("Denpasar")
                .Items.Add("Badung")
                .Items.Add("Singaraja")
                .Items.Add("Karangasem")
                .Items.Add("Jembrana")
                .Items.Add("Bangli")
                .Items.Add("Klungkung")
                .Items.Add("Karangasem")
                .Items.Add("Gianyar")
            End With
        ElseIf ComboBox1.Text = "Aceh" Then
            ComboBox2.Items.Clear()
            With ComboBox2
                .Items.Add("Banda Aceh")
                .Items.Add("Kota Sabang")
                .Items.Add("Kota Subulussalam")
                .Items.Add("Kabupaten Bireuen")
                .Items.Add("Kabupaten Gayo Lues")
                .Items.Add("Kabupaten Pidie Jaya")
                .Items.Add("Kabupaten Simeulue")
                .Items.Add("Kabupaten Aceh Tamiang")
            End With
        ElseIf ComboBox1.Text = "Kalimantan Timur" Then
            ComboBox2.Items.Clear()
            With ComboBox2
                .Items.Add("Kabupaten Berau")
                .Items.Add("Kabupaten Kutai Barat")
                .Items.Add("Kabupaten Kutai Kartanegara")
                .Items.Add("Kabupaten Kutai Timur")
                .Items.Add("Kabupaten Paser")
                .Items.Add("Kota Balikpapan")
                .Items.Add("Kota Bontang")
                .Items.Add("Kota Samarinda")
            End With
        ElseIf ComboBox1.Text = "Daerah Istimewa Jogyakarta" Then
            ComboBox2.Items.Clear()
        End If
    End Sub

3. Jika sudah , klik ganda pada button 3 dan pastekan kode dibawah ini . Pada kode button 3 ini berisi validasi dimana jika user mengosongkan salah satu inputan akan muncul message pemberitahuan :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Mohon isi nama anda terlebih dahulu", vbInformation, "Guzko")
            TextBox1.Focus()
        ElseIf ComboBox1.Text = "" Then
            MsgBox("Provinsi anda harus diisi", vbInformation, "Guzko")
            ComboBox1.Focus()
        ElseIf ComboBox2.Text = "" Then
            MsgBox("Nama Kota anda harus diisi", vbInformation, "Guzko")
            ComboBox2.Focus()
        ElseIf TextBox2.Text = "" Then
            MsgBox("Kode Pos anda masih kosong", vbInformation, "Guzko")
            TextBox2.Focus()
        Else
            MsgBox("Berikut Data Diri Anda : " & vbCrLf & _
                    vbCrLf & _
                    "Nama Anda : " & TextBox1.Text & vbCrLf & _
                    vbCrLf & _
                    "Provinsi Anda : " & ComboBox1.Text & vbCrLf & _
                    vbCrLf & _
                    "Kota Anda : " & ComboBox2.Text & vbCrLf & _
                    vbCrLf & _
                    "Kode Pos Anda : " & TextBox2.Text, vbInformation, "Guzko")
        End If
    End Sub

4. klik ganda button 2 , kemudian pastekan kode berikut ini :

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ComboBox1.SelectedIndex = -1
        ComboBox2.Items.Clear()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox1.Focus()
    End Sub

kode ini berfungsi untuk me-reset semua isian field.

coba jalankan aplikasi yang agan buat , hasilnya seperti ini , kalau agan benar menuliskan semua kodenya :

oke ga sip dech , jadi dech combobox berantai simple yang ane bikin sendiri . sory gan kalau ternyata tidak bagus karena ane cuma sekedar share contoh simplenya saja . Untuk lain kali ane share bagaimana caranya membuat combobox berantai dengan menggunakan database .

jika ada yang ingin download , full source codenya disini gan .

sekian dulu dari ane gan , tunggu dan terus kunjungi blog ini . . .

seee uuuuuu ................