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的Form的所有事件

名称

说明

Activated

当使用代码激活或用户激活窗体时发生。

AutoSizeChanged

当 AutoSize 属性更改时发生。

AutoValidateChanged

当 AutoValidate 属性更改时发生。

BackColorChanged

当 BackColor 属性的值更改时发生。（从 Control 继承。）

BackgroundImageChanged

当 BackgroundImage 属性的值更改时发生。（从 Control 继承。）

BackgroundImageLayoutChanged

当 BackgroundImageLayout 属性更改时发生。（从 Control 继承。）

BindingContextChanged

当 BindingContext 属性的值更改时发生。（从 Control 继承。）

CausesValidationChanged

当 CausesValidation 属性的值更改时发生。（从 Control 继承。）

ChangeUICues

焦点或键盘用户界面 (UI) 提示更改时发生。（从 Control 继承。）

Click

在单击控件时发生。（从 Control 继承。）

ClientSizeChanged

当 ClientSize 属性的值更改时发生。（从 Control 继承。）

Closed

关闭窗体时发生。

Closing

关闭窗体时发生。

ContextMenuChanged

当 ContextMenu 属性的值更改时发生。（从 Control 继承。）

ContextMenuStripChanged

当 ContextMenuStrip 属性的值更改时发生。（从 Control 继承。）

ControlAdded

在将新控件添加到 Control.ControlCollection 时发生。（从 Control 继承。）

ControlRemoved

在从 Control.ControlCollection 移除控件时发生。（从 Control 继承。）

CursorChanged

当 Cursor 属性的值更改时发生。（从 Control 继承。）

Deactivate

当窗体失去焦点并不再是活动窗体时发生。

Disposed

当通过调用 Dispose 方法释放组件时发生。（从 Component 继承。）

DockChanged

当 Dock 属性的值更改时发生。（从 Control 继承。）

DoubleClick

在双击控件时发生。（从 Control 继承。）

DragDrop

拖放操作完成时发生。（从 Control 继承。）

DragEnter

在将对象拖入控件的边界时发生。（从 Control 继承。）

DragLeave

将对象拖出控件的边界时发生。（从 Control 继承。）

DragOver

在将对象拖到控件的边界上发生。（从 Control 继承。）

EnabledChanged

在 Enabled 属性值更改后发生。（从 Control 继承。）

Enter

进入控件时发生。（从 Control 继承。）

FontChanged

在 Font 属性值更改时发生。（从 Control 继承。）

ForeColorChanged

在 ForeColor 属性值更改时发生。（从 Control 继承。）

FormClosed

关闭窗体后发生。

FormClosing

关闭窗体前发生。

GiveFeedback

在执行拖动操作期间发生。（从 Control 继承。）

GotFocus

在控件接收焦点时发生。（从 Control 继承。）

HandleCreated

在为控件创建句柄时发生。（从 Control 继承。）

HandleDestroyed

在控件的句柄处于销毁过程中时发生。（从 Control 继承。）

HelpButtonClicked

单击“帮助”按钮时发生。

HelpRequested

用户请求控件帮助时发生。（从 Control 继承。）

ImeModeChanged

在 ImeMode 属性更改后发生。（从 Control 继承。）

InputLanguageChanged

更改窗体的输入语言后发生。

InputLanguageChanging

当用户尝试更改窗体的输入语言时发生。

Invalidated

控件的显示要求重新绘制时发生。（从 Control 继承。）

KeyDown

在控件有焦点的情况下按下键时发生。（从 Control 继承。）

KeyPress

在控件有焦点的情况下字符、空格或退格键时发生。（从 Control 继承。）

KeyUp

在控件有焦点的情况下释放键时发生。（从 Control 继承。）

Layout

在控件应重新定位其子控件时发生。（从 Control 继承。）

Leave

在输入焦点离开控件时发生。（从 Control 继承。）

Load

在第一次显示窗体前发生。

LocationChanged

在 Location 属性值更改后发生。（从 Control 继承。）

LostFocus

在控件失去焦点时发生。（从 Control 继承。）

MarginChanged

当 Margin 属性更改时发生。

MaximizedBoundsChanged

在 MaximizedBounds 属性的值更改后发生。

MaximumSizeChanged

在 MaximumSize 属性的值更改后发生。

MdiChildActivate

在多文档界面 (MDI) 应用程序内激活或关闭 MDI 子窗体时发生。

MenuComplete

当窗体菜单失去焦点时发生。

MenuStart

当窗体菜单接收焦点时发生。

MinimumSizeChanged

在 MinimumSize 属性的值更改后发生。

MouseCaptureChanged

当控件失去鼠标捕获时发生。（从 Control 继承。）

MouseClick

用鼠标单击控件时发生。（从 Control 继承。）

MouseDoubleClick

用鼠标双击控件时发生。（从 Control 继承。）

MouseDown

当鼠标指针位于控件上并按下鼠标键时发生。（从 Control 继承。）

MouseEnter

在鼠标指针进入控件时发生。（从 Control 继承。）

MouseHover

在鼠标指针停放在控件上时发生。（从 Control 继承。）

MouseLeave

在鼠标指针离开控件时发生。（从 Control 继承。）

MouseMove

在鼠标指针移到控件上时发生。（从 Control 继承。）

MouseUp

在鼠标指针在控件上并释放鼠标键时发生。（从 Control 继承。）

MouseWheel

在控件有焦点且鼠标轮移动时发生。（从 Control 继承。）

Move

在移动控件时发生。（从 Control 继承。）

PaddingChanged

在控件空白区更改时发生。（从 Control 继承。）

Paint

在重绘控件时发生。（从 Control 继承。）

ParentChanged

在 Parent 属性值更改时发生。（从 Control 继承。）

PreviewKeyDown

在焦点位于此控件上的情况下，当有按键动作时发生（在 KeyDown 事件之前发生）。（从Control 继承。）

QueryAccessibilityHelp

在 AccessibleObject 为辅助功能应用程序提供帮助时发生。（从 Control 继承。）

QueryContinueDrag

在拖放操作期间发生，并且允许拖动源确定是否应取消拖放操作。（从 Control 继承。）

RegionChanged

当 Region 属性的值更改时发生。（从 Control 继承。）

Resize

在调整控件大小时发生。（从 Control 继承。）

ResizeBegin

窗体进入大小调整模式时发生。

ResizeEnd

窗体退出大小调整模式时发生。

RightToLeftChanged

在 RightToLeft 属性值更改时发生。（从 Control 继承。）

RightToLeftLayoutChanged

更改 RightToLeftLayout 属性值之后发生。

Scroll

用户或代码滚动工作区时发生。（从 ScrollableControl 继承。）

Shown

只要窗体是首次显示就发生。

SizeChanged

在 Size 属性值更改时发生。（从 Control 继承。）

StyleChanged

在控件样式更改时发生。（从 Control 继承。）

SystemColorsChanged

系统颜色更改时发生。（从 Control 继承。）

TabIndexChanged

此 API 支持 产品 基础结构，不能在代码中直接使用。 当 TabIndex 属性的值更改时发生。

TabStopChanged

当 TabStop 属性更改时发生。

TextChanged

在 Text 属性值更改时发生。（从 Control 继承。）

Validated

在控件完成验证时发生。（从 Control 继承。）

Validating

在控件验证时发生。（从 Control 继承。）

VisibleChanged

在 Visible 属性值更改时发生。（从 Control 继承。）

vb命令按钮退出怎么设置？

在退出按钮的Click事件中用Unload

Me就可以关闭窗体。

Private

Sub

Command1_Click()

Unload

Me

End

Sub

答案补充

代码就是我回答那些了，双击按钮把代码输入进去就行了。对了，你的是VB6还是VB.Net啊？VB6就是用Unload

Me，如果是VB.Net应该用Me.Close()。

这个是VB.Net的代码：

Private

Sub

Button1_Click(ByVal

sender

As

System.Object,

ByVal

e

As

System.EventArgs)

Handles

Button2.Click

Me.Close()

End

Sub

VB.NET窗体关闭事件

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

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窗体关闭的问题！

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窗体退出事件的信息
当前路径：http://hbruida.cn/article/dsipdhe.html