select case 用法

原创于 2012-03-10 11:12:24 发布 · 1.2k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#class

VB net 2010 select case 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个使用Select Case语句实现根据输入文本不同值设置颜色的代码示例。

Public Class Form1

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click

        Select Case txtName.Text
            Case "1"
                txtName.Text = "Madras Yellow"
            Case "1"
                txtName.Text = "Sea Blue"
            Case "1"
                txtName.Text = "Morning Mist"
            Case "1"
                txtName.Text = "Passionate Purple"
            Case Else
                txtName.Text = "Red"
        End Select
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

End Class

执行效果如同 orelse ：只要第一个判断式成立，则后面的运算符将不再判断,如果第一个判断式不成立，则继续执行第二个判断式，以次类推。