form1.vb

来自「这是用vb.net开发的选择事件」· VB 代码 · 共 21 行

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