模块中"Handles Me.FormClosing"的替代方案

Question

我想知道模块中"Handles Me.FormClosing"的任何替代方法.

我创建的代码会在单击"X"按钮时显示确认消息.问题是,我需要将这个代码放到一个模块中,以便在我可以调用它的多个表单中使用,但是,当我尝试这样做时,"Handles Me.FormClosing"将无效.

这是我正在使用的代码:

Private Sub Close(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing

    Dim result As DialogResult = MessageBox.Show("Are you sure you want to Exit the application?", "Exit", MessageBoxButtons.YesNo)

    If result = DialogResult.Yes Then
        FrmLogin.Close()
    Else
        e.Cancel = True
    End If

End Sub

Answer 1

每当您创建新表单时:

Dim newForm as Form = New YourFormClass()
AddHandler newForm.FormClosing, AddressOf YourModule.Close

这将通过该子路径发送您想要的所有结束事件.然后删除Handles Me.Closing除非你有什么东西没有向我们展示它使它相关.