单击X时，form1不会关闭

Question

我有一个小小的问题。我需要在Visual Studio UPDATE中停止它：

Form1不再关闭。

在我的Form1 ，我有一个代码，在其中创建Form2 - Dim f as New Fomr2实例Dim f as New Fomr2但是当我按下它的X按钮时，它关闭并且我无法再次调用它，因此将其disposed以便处理该问题。 我做了这段代码。

Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    e.Cancel = True
    Me.Hide()
End Sub

但是添加以上代码后，发生了一些神奇的事情。

我无法关闭Form1

我已经在Form1_FormClosing事件上Form1_FormClosing Application.Exit()和Me.Close ，但不会Form1_FormClosing 。 这对我来说很烦人。 大声笑

Answer 1

只需将可关闭设置为false

Public Class Form2
    Inherits System.Windows.Forms.Form
    Public Property closable As Boolean

    Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs)
        If closable = True Then 
            MyBase.OnClosing(e)
            Return 
        End If
        e.Cancel = True
        Me.Hide() 
    End Sub

End Class

对于“用法”，您可以使用这种方式：只要您希望form2出现，只需调用它：

'inside your form1
Public  Sub  ShowForm2()
    Static f As New Form2
    f.closable = False 'it cant be true otherwise you will get exception on next call
    f.Show()
End Sub

Answer 2

您如何称呼您的form2？

并删除e.Cancel = True或将其更改为false 。 如果“取消”设置为true，则告诉VB.net取消关闭表单。

Answer 3

这是硒

form1 ...

    dim f2 as form2 = new form2
    private sub showButton()
        f2.shwo()
    end sub

    private sub DisposeF2()
        f2.ForceCLose = true
    end sub

end...

form2....
    public ForceCLose as boolean = false

    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
                    if not ForceClose then  
            e.Cancel = True
            Me.Hide()
    end if
    End Sub
end...