Как закрыть первую форму?

Question

У меня есть 2 формы в моем проекте. Пользователи не могут выйти из первой, frmOptometry. У меня это реализовано таким образом:

Private Sub frmOptometry_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 
    MessageBox.Show("You can only close the application from the receipt screen!") 
    e.Cancel = True 
End Sub 

Вторая форма, с которой можно выйти из frmReceipt. Я его реализовать так:

Private Sub frmReceipt_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 
    If MessageBox.Show("Are you sure you want to quit?", 
         "Obi-Wan Optometry Closing", 
         MessageBoxButtons.YesNo, 
         MessageBoxIcon.Exclamation) = 
        DialogResult.No Then 
     e.Cancel = True 
    Else 
     frmOptometry.Close() 
    End If 
End Sub 

Прямо сейчас, это не закрывает программу полностью, потому что она идет к frmOptometry_FormClosing и предотвращает его. Что мне делать, чтобы это исправить? Есть ли все равно, чтобы выяснить, где пользователь пытается закрыть программу, а затем решить оттуда?

Answer 1

Один из способов решить это путем введения flag (скажем, под названием FromReceipt), который указывает, кто просит frmOptometry закрыть себя.

Нечто подобное на frmOptometry будет делать:

Public FromReceipt As Boolean = False 'Add this 
Private Sub frmOptometry_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing 
    If Not FromReceipt Then 'add this condition 
     MessageBox.Show("You can only close the application from the receipt screen!") 
     e.Cancel = True 
    End If 
End Sub 

А потом на frmReceipt:

Private Sub frmReceipt_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing 
    If MessageBox.Show("Are you sure you want to quit?", 
         "Obi-Wan Optometry Closing", 
         MessageBoxButtons.YesNo, 
         MessageBoxIcon.Exclamation) = 
        DialogResult.No Then 
     e.Cancel = True 
    Else 
     frmOptometry.FromReceipt = True 'Add this line to tell the frmOptometry: this time you can really close it 
     frmOptometry.Close() 
    End If 
End Sub