VB2010（10）_SelectCase

Public Class Form1

    Private Sub lstData_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstData.SelectedIndexChanged
        Dim strName As String
        Dim strFavoriteColor As String

        strName = lstData.Items(lstData.SelectedIndex).ToString

        Select Case strName.ToLower
            Case "bryan"
                strFavoriteColor = "Madras Yellow"
            Case "jenifer"
                strFavoriteColor = "Sea Blue"
            Case "eddie", "katelyn"
                strFavoriteColor = "Passionate Purple"
            Case Else
                strFavoriteColor = "Morning Mist"
        End Select
        MessageBox.Show(strName & "'s favorite color is " & strFavoriteColor, "Select Demo")
    End Sub
End Class