Code:
Private Sub form_load()
Combo1.AddItem ("Kerala")
Combo1.AddItem ("Tamilnadu")
Combo1.AddItem ("Karnataka")
Combo1.AddItem ("Andrapradesh")
Combo1.AddItem ("Maharashtra")
End Sub
Private Sub combo1_click()
Select Case Combo1.Text
Case "Kerala"
Text1.Text = "Trivandram"
Case "Tamilnadu"
Text1.Text = "Chennai"
Case "Karnataka"
Text1.Text = "Bangalore"
Case "Andrapradesh"
Text1.Text = "Hydrabad"
Case "Maharashtra"
Text1.Text = "Mumbai"
Case Else
Text1.Text = "wrong"
End Select
End Sub
No comments:
Post a Comment