Reklam Alanı
GithubTASARIM & PROGRAMLAMA

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

Reklam Alanı

 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-

Reklam Alanı
Etiketler
Daha Fazla Göster

Bir Yorum

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

Bir Cevap Yazın

Başa dön tuşu
Kapalı
Kapalı
%d blogcu bunu beğendi: