Membuat Combobox Berantai Dengan Vb.Net

25 views

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

yang perlu dipersiapkan tentunya ialah visual studio net , klo ane makenya yang versi 10 , yang dibawah itu tidak apa – apa bekerjsama 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 kemudian geser ke daerah 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 arahan 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 balasannya menyerupai dibawah ini :

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

1. Klik  ganda pada form , maka secara otomatis akan pribadi diarahkan ke coding event form_load ., ketikkan arahan menyerupai 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 spesial Jogyakarta”)
        End With
    End Sub
2. kemudian yang kedua , klik ganda pada combobox 1 , dan pastekan arahan 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 spesial Jogyakarta” Then
            ComboBox2.Items.Clear()
        End If
    End Sub

3. Jika sudah , klik ganda pada button 3 dan pastekan arahan dibawah ini . Pada arahan button 3 ini berisi validasi dimana bila 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 arahan 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

arahan ini berfungsi untuk me-reset semua isian field.

coba jalankan aplikasi yang agan buat , balasannya menyerupai ini , kalau agan benar menuliskan semua kodenya :

sepakat ga sip dech , jadi dech combobox berantai simple yang ane bikin sendiri . sory gan kalau ternyata tidak anggun sebab ane cuma sekedar share pola simplenya saja . Untuk lain kali ane share bagaimana caranya menciptakan combobox berantai dengan memakai database .

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

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

seee uuuuuu …………….
Sumber http://guz-kopyok.blogspot.com/

Author: 
    author
    No related post!