N
NeStLe
Ziyaretçi
Ziyaretçi
Açıklama : İl için tanımlanan açılan kutudan seçilen il adına göre ilçe için tanımlanan açılan kutunun içeriği otomatik olarak dolduruluyor.
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
If ComboBox1.Text = "Ankara" Then
ComboBox2.Items.Add("Çankaya")
ComboBox2.Items.Add("Etimesgut")
ComboBox2.Items.Add("Keçiören")
ComboBox2.Items.Add("Yenimahalle")
ComboBox2.Items.Add("Mamak")
ElseIf ComboBox1.Text = "İstanbul" Then
ComboBox2.Items.Add("Beşiktaş")
ComboBox2.Items.Add("Şişli")
ComboBox2.Items.Add("Eminönü")
ComboBox2.Items.Add("Beykoz")
ComboBox2.Items.Add("Adalar")
ElseIf ComboBox1.Text = "İzmir" Then
ComboBox2.Items.Add("Karşıyaka")
ComboBox2.Items.Add("Bornova")
ComboBox2.Items.Add("Güzelyalı")
ComboBox2.Items.Add("Buca")
ComboBox2.Items.Add("Konak")
End If
End Sub
End Class
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
If ComboBox1.Text = "Ankara" Then
ComboBox2.Items.Add("Çankaya")
ComboBox2.Items.Add("Etimesgut")
ComboBox2.Items.Add("Keçiören")
ComboBox2.Items.Add("Yenimahalle")
ComboBox2.Items.Add("Mamak")
ElseIf ComboBox1.Text = "İstanbul" Then
ComboBox2.Items.Add("Beşiktaş")
ComboBox2.Items.Add("Şişli")
ComboBox2.Items.Add("Eminönü")
ComboBox2.Items.Add("Beykoz")
ComboBox2.Items.Add("Adalar")
ElseIf ComboBox1.Text = "İzmir" Then
ComboBox2.Items.Add("Karşıyaka")
ComboBox2.Items.Add("Bornova")
ComboBox2.Items.Add("Güzelyalı")
ComboBox2.Items.Add("Buca")
ComboBox2.Items.Add("Konak")
End If
End Sub
End Class
Hata varsa iletirseniz sevinirim. Hatayı fark ettiğiniz takdirde kodlara dönüp tekrar bakarım..