Visual Basic ile Combobox İl İlçe Seçimi

 Bazı projelerde oldukça işimize yarayan ve kullandığımız il ilçe örneği için öncelikle formumuza bir adet combobox bir adet listbox ekliyoruz. Hangi ili seçersek bize listbox’da o ilin ilçelerini göstersin.

Public Class Form1
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        ListBox1.Items.Clear()
        If ComboBox1.Text = "Adana" Then
            ListBox1.Items.Add("Aladağ")
            ListBox1.Items.Add("Ceyhan")
            ListBox1.Items.Add("Çukurova")
            ListBox1.Items.Add("Feke")
            ListBox1.Items.Add("İmamoğlu")
        ElseIf ComboBox1.Text = "Adıyaman" Then
            ListBox1.Items.Add("Gölbaşı")
            ListBox1.Items.Add("Besni")
            ListBox1.Items.Add("Çelikhan")
            ListBox1.Items.Add("Gerger")
            ListBox1.Items.Add("Kahta")
            ListBox1.Items.Add("Samsat")
            ListBox1.Items.Add("Sincik")
            ListBox1.Items.Add("Tut")
        ElseIf ComboBox1.Text = "Malatya" Then
            ListBox1.Items.Add("Akçadağ")
            ListBox1.Items.Add("Arapgir")
            ListBox1.Items.Add("Arguvan")
            ListBox1.Items.Add("Çay")
            ListBox1.Items.Add("Battalgazi")
            ListBox1.Items.Add("Doğanşehir")
        ElseIf ComboBox1.Text = "Diyarbakır" Then
            ListBox1.Items.Add("Bağlar")
            ListBox1.Items.Add("Bismil")
            ListBox1.Items.Add("Çermik")
            ListBox1.Items.Add("Çınar")
            ListBox1.Items.Add("Patnos")
            ListBox1.Items.Add("Çüngüş")
            ListBox1.Items.Add("Dicle")
        ElseIf ComboBox1.Text = "Amasya" Then
            ListBox1.Items.Add("Göynücek")
            ListBox1.Items.Add("Gümüşhacıköy")
            ListBox1.Items.Add("Hamamözü")
            ListBox1.Items.Add("Merzifon")
            ListBox1.Items.Add("Suluova")
            ListBox1.Items.Add("Taşova")
        ElseIf ComboBox1.Text = "Ankara" Then
     ListBox1.Items.Add("Gölbaşı")
            ListBox1.Items.Add("Akyurt")
            ListBox1.Items.Add("Altındağ")
            ListBox1.Items.Add("Ayaş")
            ListBox1.Items.Add("Bala")
            ListBox1.Items.Add("Beypazarı")
            ListBox1.Items.Add("Çamlıdere")
        ElseIf ComboBox1.Text = "Şanlıurfa" Then
            ListBox1.Items.Add("Akçakale")
            ListBox1.Items.Add("Birecik")
            ListBox1.Items.Add("Bozova")
            ListBox1.Items.Add("Ceylanpınar")
            ListBox1.Items.Add("Eyyübiye")
            ListBox1.Items.Add("Halfeti")
            ListBox1.Items.Add("Harran")
        ElseIf ComboBox1.Text = "Artvin" Then
            ListBox1.Items.Add("Ardanuç")
            ListBox1.Items.Add("Arhavi")
            ListBox1.Items.Add("Borçka")
            ListBox1.Items.Add("Hopa")
            ListBox1.Items.Add("Murgul")
            ListBox1.Items.Add("Şavşat")
            ListBox1.Items.Add("Yusufeli")
        ElseIf ComboBox1.Text = "Aydın" Then
            ListBox1.Items.Add("Bozdoğan")
            ListBox1.Items.Add("Buharkent")
            ListBox1.Items.Add("Çine")
            ListBox1.Items.Add("Didim")
            ListBox1.Items.Add("Efeler")
            ListBox1.Items.Add("Germencik")
            ListBox1.Items.Add("İncirliova")
        ElseIf ComboBox1.Text = "Balıkesir" Then
            ListBox1.Items.Add("Altıeylül")
            ListBox1.Items.Add("Ayvalık")
            ListBox1.Items.Add("Balya")
            ListBox1.Items.Add("Bandırma")
            ListBox1.Items.Add("Bigadiç")
            ListBox1.Items.Add("Burhaniye")
            ListBox1.Items.Add("Dursunbey")
            ListBox1.Items.Add("Edremit")
        End If
    End Sub
End Class

Direk dosyayı aşağıdaki link ile indirebilirsiniz. 🙂

https://github.com/burakkdemirr/Visual-Basic-ile-Combobox-il-ilce-Secimi-

Share

You may also like...

27 Responses

  1. EMRECAN KAYACAN dedi ki:

    Yine herzaman olduğu gibi önemli bir noktayı aydınlatmışsınız Teşekkürler.

  2. DURAN PARLAK dedi ki:

    Burak hocam ellerine sağlık. Çok güzel konular yazıyorsun. Bu kadar güzel konulara karşı böyle yorum yapmayı borçlu hissediyorum kendim.

  3. SEZER BİCAN dedi ki:

    Teşekkür ederiz çok yararlı bir makale olmuş.

  4. YÜSRA KÜFECİLER dedi ki:

    Burak hocam ellerine sağlık. Çok güzel konular yazıyorsun. Bu kadar güzel konulara karşı böyle yorum yapmayı borçlu hissediyorum kendim.

  5. NURSEL TİYEK dedi ki:

    Çok güzel konular yazıyorsun.

  6. İSMAİL EVREN DERE dedi ki:

    Teşekkürler

  7. MELTEM ARİFOĞLU dedi ki:

    Alanımız aynı değil ancak emeğiniz için gerçekten teşekkür ederim. Umarım tanışırız.

  8. YETKİN TANİN dedi ki:

    Yaklaşık bir aydır günde en az 2 saat devamlı okuduğum, Burak Demir’e teşekkürlerimi iletiyorum.

  9. NECMETTİN TAŞPINAR dedi ki:

    Çok güzel konular yazıyorsun.

  10. BAYRAM TEKİNSOY dedi ki:

    Alanımız aynı değil ancak emeğiniz için gerçekten teşekkür ederim. Umarım tanışırız.

  11. ZARİFE AKIN dedi ki:

    Sen bir harikasın kardeşim.

  12. ÇAĞDAŞ ATAÇ dedi ki:

    Çok güzel konular yazıyorsun.

  13. ZARİFE AKIN dedi ki:

    Kolay gelsin.

  14. ONURCAN ŞAHİNER dedi ki:

    Alanımız aynı değil ancak emeğiniz için gerçekten teşekkür ederim. Umarım tanışırız.

  15. İSMAİL EVREN DERE dedi ki:

    Teşekkür ederiz çok yararlı bir makale olmuş.

  16. HAYRİ ŞEN GÖKÇEİMAM dedi ki:

    Kolay gelsin.

  17. AHMAD TAHER ŞENDUR dedi ki:

    Yaklaşık bir aydır günde en az 2 saat devamlı okuduğum, Burak Demir’e teşekkürlerimi iletiyorum.

  18. ÜNZÜLE AKARCA dedi ki:

    Yaklaşık bir aydır günde en az 5 saat devamlı okuduğum, ufuk genişleten Burak Demir’e teşekkürlerimi iletiyorum.

  19. BERRE ALPASLAN dedi ki:

    Alanımız aynı değil ancak emeğiniz için gerçekten teşekkür ederim. Umarım tanışırız.

  20. BETÜL EMİNE AKTUĞ dedi ki:

    Burak Hocam güzel anlatım olmuş teşekkürler.

  21. BAYRAM TEKİNSOY dedi ki:

    Yaklaşık bir aydır günde en az 2 saat devamlı okuduğum, Burak Demir’e teşekkürlerimi iletiyorum.

  22. ADA ALİSİNANOĞLU dedi ki:

    Alanımız aynı değil ancak emeğiniz için gerçekten teşekkür ederim. Umarım tanışırız.

  23. BERRE ALPASLAN dedi ki:

    Yine herzaman olduğu gibi önemli bir noktayı aydınlatmışsınız Teşekkürler.

  24. ONURCAN ŞAHİNER dedi ki:

    Bu kadar güzel konulara karşı böyle yorum yapmayı borçlu hissediyorum kendim.

  25. YETKİN TANİN dedi ki:

    Burak hocam ellerine sağlık.

  26. YÜSRA KÜFECİLER dedi ki:

    Alanımız aynı değil ancak emeğiniz için gerçekten teşekkür ederim. Umarım tanışırız.

  27. BAYRAM TEKİNSOY dedi ki:

    Yaklaşık bir aydır günde en az 5 saat devamlı okuduğum, ufuk genişleten Burak Demir’e teşekkürlerimi iletiyorum.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir