0

我从 VB6 转换了这个应用程序。我有 2 个表格。Form1 通过菜单项实例化 Form2。单击关闭 (X) 时，我无法让 Form2 结束。如果 Form2 是“空闲”，它会很好地关闭；但是如果我在一个循环中处理任何所有事件都会触发，但它会继续在 Form2 中处理。我尝试过处理 Dispose、Close、Application.Exit、Application.ExitThread。我的最后一次尝试是创建我自己的事件来回火 Form1 并处理 Form2——它击中了它，但 Form2 仍在运行。什么是交易？顺便说一句，如果我只使用 Show vs ShowDialog - Form2 只是闪烁并消失。

Form1 does this
Dim f2 as Import
:
        Hide()
        f2 = New Import
        AddHandler f2.die, AddressOf killf2
        f2.ShowDialog(Me)
        Show()

Private Sub killf2()
        f2.Dispose()
        f2 = Nothing
End Sub

Form2

Public Event die()
Private Shadows Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dispose()
        Close()
        e.Cancel = False
        RaiseEvent die()
End Sub
4

2 回答 2

0

我认为你已经完成了你的事件。您希望包含 form2 实例的 form1 监听 form2 的 form_closing 事件。然后你可以设置 f2 = nothing。

Form1 应完全包含 form2。

这是一个例子：

Public Class MDIMain
    Private WithEvents _child As frmViewChild

    Friend Sub viewChildShow()
        _child = New frmViewChild
        _child.MdiParent = Me
        _child.WindowState = FormWindowState.Maximized
        _child.Show()
    End Sub

    Private Sub _child_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles _child.FormClosing
        _child = Nothing
    End Sub

不要在form2中添加任何东西，试试

Dim f2 as Import
        Hide()
        f2 = New Import
        f2.ShowDialog(Me)
        Show()

Private Sub f2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles f2.FormClosing
        set f2 = nothing
End Sub

回复：您的评论 返回到 form2 并继续处理 click 事件处理程序中的下一条语句

这是一个功能，它会导致这种行为。您需要确保 me.close 或 close me 是 form2 中的最后一条语句，没有其他要执行的语句。

于 2010-11-04T20:27:46.003 回答
0

你说的这个循环是什么？用户界面（Windows）与任何正在运行的代码是分开的。在您的类派生表单表单中，允许在创建表单之前和销毁表单之后运行代码。如果代码尝试访问用户界面对象，则可能会发生异常，但如果没有用户界面，则不会阻止您的代码运行。

如果你想让你的“for”循环退出，那么你必须以某种方式向它发送一个信号，例如通过创建一个布尔“quit”成员变量。当你的表单关闭时设置“quit=True”，然后让你的“for”循环检查它是否为真。

于 2010-12-06T18:36:15.907 回答