有什么办法可以缩短这段代码吗？答案

【问题标题】：Is there any way that i can shorten this code?有什么办法可以缩短这段代码吗？
【发布时间】：2012-01-24 20:11:12
【问题描述】：

这是我想要缩短的代码，它使用一个进度条和一个倒计时的标签：我使用的是 VB 语言

 If ProgressBar1.Value = 33 And Label2.Text = "Now:  Hold down power button (3 seconds)" Then
            Label2.Text = "Now:  Hold down power button (2 seconds)"
        End If

        If ProgressBar1.Value = 66 And Label2.Text = "Now:  Hold down power button (2 seconds)" Then
            Label2.Text = "Now:  Hold down power button (1 seconds)"
        End If

        If ProgressBar1.Value = 99 And Label2.Text = "Now:  Hold down power button (1 seconds)" Then
            Label2.Text = "Now:  Hold down power button (0 seconds)"
        End If

        If ProgressBar1.Value = 100 And Label2.Text = "Now:  Hold down power button (0 seconds)" Then
            Label2.Text = "Now:  Also hold down the home button (10 seconds)"
            Label2.Location = New Point(30, Label2.Location.Y)
            Label3.Text = "Next:  Release the power button only (15 seconds)"
            ProgressBar1.Value = 0
        End If

【问题讨论】：

标签： vb.net text progress-bar countdown

【解决方案1】：

是的，有：

    Const BASE_MESSAGE As String = "Now:  Hold down power button ({0} seconds)"

    Select Case ProgressBar1.Value
       Case 33
          Label2.Text = String.Format(BASE_MESSAGE, 2)
       Case 66
          Label2.Text = String.Format(BASE_MESSAGE, 1)
       Case 99 
          Label2.Text = String.Format(BASE_MESSAGE, 0)

       Case 100
          Label2.Text = "Now:  Also hold down the home button (10 seconds)"
          Label2.Location = New Point(30, Label2.Location.Y)
          Label3.Text = "Next:  Release the power button only (15 seconds)"
          ProgressBar1.Value = 0

    End Select

【讨论】：

谢谢，我明天测试一下并回复你：D
与具有两个“结束”命令的结束行完全分开。感谢您的帮助:)
@user1081679：很抱歉，我已经修复了答案。另外，欢迎来到 Stackoverflow！请记住，当答案解决或帮助您解决问题时，您应该点击问题旁边的复选标记和向上箭头，让问题的未来访问者知道这就是解决您的问题的原因。