Button2をクリックする前にButton1をクリックした場合、プロンプトメッセージ

Question

ユーザーがbutton1をクリックしてから、後でボタン2をクリックするとメッセージを表示する必要があります。

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click 

    if button1.clicked then 

     messagebox.show("Are you sure you want to click button2 after clicking button1?" , "Warning", MessageBoxButtons.OKCancel) 

     if messagebox.userselected.ok then 

      Me.Dispose() 
      Me.Close() 

     else 
      'do nothing 
     end if 

    end if 

End Sub 

Answer 1

Dim Flag as Boolean = False 

Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click 
    Flag = True  
End Sub 

Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click 
    If Flag Then 
    If MessageBox.Show("Are you sure you want to click button2 after clicking button1?" , "Warning", MessageBoxButtons.OKCancel) = DialogResult.Ok Then 
     Me.Close() 
    End If 
    End If 
End Sub