Ülkelere göre Selamlaşma (VB)

DERS NOTLARI

Public Class form1

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstulkekutusu.Items.Add("ingiltere")
lstulkekutusu.Items.Add("almanya")
lstulkekutusu.Items.Add("meksika")
lstulkekutusu.Items.Add("italya")
End Sub

Private Sub lstulkekutusu_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstulkekutusu.MouseHover
If lstulkekutusu.SelectedIndex <> 4 Then
lblselamlama.Text= ülke adını tıklayın"
End If

End Sub

Private Sub lstulkekutusu_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstulkekutusu.SelectedIndexChanged
lblulke.text = lstulkekutusu.SelectedIndex
Select Case lstulkekutusu.SelectedIndex

Case 0
lblselamlama.Text = "hello, programmer"
Case 1

lblselamlama.Text = "hallo, programmer"
Case 2

lblselamlama.Text = "hola, programmer"
Case 3
lblselamlama.Text = "ciao, programmer"
End Select
End Sub
End Class