Monday 7 July 2014

Capitals of Indian States





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