Vbのコーディング声明

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 

私は別のプログラムから2番目の部分を取得しましたが、この文脈では動作しません。

Answer 1

MessageBox.Show方法はMsgBoxによって返される古いVbMsgBoxResult列挙型に非常に似ている、DialogResultを返します。したがって、次のようなことができます：

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も良い解決策です。

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