VB2010Express MessageBoxが複数回表示されます

Question

VB2010 Expressを使用して初心者にはMessageBox.show IF/ELSEIFステートメントを使用しますが、結果のメッセージダイアログボックスが実際に表示される前に1回だけbtnを1回、2回、3回、 。私はDim文がこれにどのように結びついているのか分かりません。 Dim結果As ...

Private Sub btnMessage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMessage.Click 
     Dim Result As 
     If MessageBox.Show("Click something.", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Abort Then 
      MessageBox.Show("Aborted") 
     ElseIf MessageBox.Show("Click something", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Retry Then 
      MessageBox.Show("Retrying.") 
     ElseIf MessageBox.Show("Click something", " Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Ignore Then 
      MessageBox.Show("Ignoring.") 
     End If 
    End Sub 
End Class 

Answer 1

非常に重要な非常に基本的なプログラミングの概念がありません。これはあなたにその基礎を教える場所ではなく、それは大学のためのものです。

3つの完全に別々のメッセージボックスがあるため、3回表示できます。

Dim result 
result = MessageBox.Show("Click something.", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) 
'store the chosen answer in the "result" variable, then use it to check the result 

If result = Windows.Forms.DialogResult.Abort Then 
    MessageBox.Show ("Aborted") 
ElseIf result = Windows.Forms.DialogResult.Retry Then 
    MessageBox.Show ("Retrying.") 
ElseIf result = Windows.Forms.DialogResult.Ignore Then 
    MessageBox.Show ("Ignoring.") 
End If