form1.vb

这是用vb.net开发的选择事件

Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstName.SelectedIndexChanged
        Dim name As String
        name = lstName.Items(lstName.SelectedIndex)
        

        Select Case name
            Case "a", "b"
                MessageBox.Show("mate!")
            Case "c", "d"
                MessageBox.Show("femate!")
            Case Else
                MessageBox.Show("i don't want to do anything!")



        End Select
    End Sub
End Class