Question

我有以下代码：

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
     ProgressBar1.Increment(1)
     If ProgressBar1.Value = 99 Then
         MessageBox.Show("This is the text", "This is the title", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
     End If

在显示消息框后，我希望它继续使用这样的代码：

我想继续：

If Result = MsgBoxResult.Yes Then
    MsgBox("You clicked YES!", , Title)
Else
    MsgBox("You clicked NO!", , Title)
End If

我从另一个程序中获得了第二部分，但我无法在此上下文中使用它。

Answer 1

MessageBox.Show方法返回DialogResult，这与VbMsgBoxResult返回的旧MsgBox枚举非常相似。所以，你可以这样做：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
     ProgressBar1.Increment(1)
     If ProgressBar1.Value = 99 Then
         Dim result As DialogResult
         result = MessageBox.Show("This is the text", "This is the title", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
         If Result = DialogResult.Yes Then
             MessageBox.Show("You clicked YES!", Text)
         Else
             MessageBox.Show("You clicked NO!", Text)
         End If             
     End If

Answer 2

使用这个简单的解决方案将解决您的问题。虽然可以使用If Else Statement来执行此操作，但在您的情况下，Select Case也是一个很好的解决方案。

abcde

Vb编码if语句

2 个答案: