VB2010Express MessageBox появляется несколько раз

Question

Новичок здесь, используя VB2010 Express - с помощью сообщений MessageBox.show IF/ELSEIF, но мои кнопки нужно нажимать несколько раз, 1-го btn один раз, 2-й, 3-й три раза, прежде чем появится диалоговое окно с результатом , Я не знаю, как мои инструкции Dim подключаются к этому. Dim Результат как ...

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

Вам не хватает некоторых очень важных очень простых концепций программирования. Это не место, чтобы научить вас этим основам - для этого нужны университеты.

Достаточно сказать, что у вас есть три полностью отдельных окна сообщений, поэтому они могут появляться три раза.

Решение заключается в (правильно) использовать переменные:

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