VB.NET窗体关闭事件

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)

创新互联公司欢迎联系：18982081108，为您提供成都网站建设网页设计及定制高端网站建设服务，创新互联公司网页制作领域10年，包括成都葡萄架等多个领域拥有多年的网站维护经验，选择创新互联公司，为企业保驾护航。

MsgBox("窗口即将关闭....")

End Sub

Else

e.Cancel = True

End If

窗体的退出事件 vb.net

既然是VB.NET，那么，窗体关闭的事件，是.net framework提供的，是FormClosed事件。也是两个参数，一个object sender这个是object基类，整个.net framework都是从它派生的，一个 EventArgs e，事件处理基类，一切事件是从EventArgs基类派生出来的。

vb.net中怎么写窗体form关闭的事件?

this.close() 只是关掉，没有释放，不对 me.close() 应该释放一下 me.Dispose() 给分吧。

一般来说都是this.close(); 方法调用一下就可以了。

这像是以前 VB 的写法，VB.net 里不是这样的，应该是：

Private Sub Form_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

MagBox("1111")

End Sub

注意，... Handles MyBase.Closed 是在同一行里的。

vb.net窗体关闭的问题！

Private Sub frmNotepad_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

Call subexit()

End

End Sub

Sub subexit()

Dim frmNew As frmNotepad

frmNew = ActiveForm

If frmNew.Text = "未定标题 - 记事本" Then

If frmNew.rtb.Text = "" Then

Else

Dim result As New MsgBoxResult 'result提示对话框yes,no,cancel

result = MsgBox("未定标题 文件的文字已经改变。" Chr(10) Chr(10) "想保存文件吗？", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, "记事本")

If result = MsgBoxResult.Yes Then 'result.Yes表示保存，清空内容，打开新页面

Dim fileSave As New SaveFileDialog

Dim re As New DialogResult 're提示对话框OK，cancel

fileSave.FileName = "*.txt"

fileSave.Filter = "文本文档(*.txt)|*.txt|所有文件|*.*"

re = fileSave.ShowDialog()

If re = DialogResult.OK Then 're.OK表示成功保存，清空内容，打开新页面

filename = fileSave.FileName

Dim fstream As FileStream

Dim sw As StreamWriter

Try

'frmNew.Text = filename.Substring(filename.LastIndexOf("\") + 1) "- 记事本"

fstream = New FileStream(filename, FileMode.Create, FileAccess.ReadWrite)

sw = New StreamWriter(fstream, System.Text.Encoding.Default)

sw.BaseStream.Seek(0, SeekOrigin.End)

sw.Write(rtb.Text)

sw.Flush()

Catch ex As Exception

MsgBox("保存文件失败")

Finally

sw.Close()

End Try

ElseIf re = DialogResult.Cancel Then 're.cancel表示不保存，不改变任何结果

End If

ElseIf result = MsgBoxResult.No Then 'result.no表示不保存，清空内容

rtb.Text = ""

End If

End If

Else

If rtb.Text.Compare(rtb.Text, compareStr) 0 Then

Dim result As New MsgBoxResult

result = MsgBox(filename + " 文件的文字已经改变。" Chr(10) Chr(10) "想保存文件吗？", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, "记事本")

If result = MsgBoxResult.Yes Then

Dim fstream As FileStream

Dim sw As StreamWriter

Try

'frmNew.Text = filename.Substring(filename.LastIndexOf("\") + 1) "- 记事本"

fstream = New FileStream(filename, FileMode.Create, FileAccess.ReadWrite)

sw = New StreamWriter(fstream, System.Text.Encoding.Default)

sw.BaseStream.Seek(0, SeekOrigin.End)

sw.Write(rtb.Text)

sw.Flush()

Catch ex As Exception

MsgBox("保存文件失败")

Finally

sw.Close()

End Try

ElseIf result = MsgBoxResult.No Then

rtb.Text = ""

End If

End If

End If

End Sub

VB.NET 窗体关闭问题 用的是vs2013

首先这个应该放在 FormClosing 事件中。

其次，因为你 Else 之后没有忽略窗体关闭的请求。

应该再加一句 e.Cancel = True，表示告诉系统，我取消关闭窗体这个操作了。

网站名称：关于vb.net窗体关闭事件的信息
文章转载：http://lswzjz.com/article/docgspg.html