Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
成都创新互联公司专业成都做网站、网站设计,集网站策划、网站设计、网站制作于一体,网站seo、网站优化、网站营销、软文发稿等专业人才根据搜索规律编程设计,让网站在运行后,在搜索中有好的表现,专业设计制作为您带来效益的网站!让网站建设为您创造效益。
End '退出后关闭软件
End Sub
'点击关闭按钮时弹出对话框判断是否退出
Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'经典判断关闭法
If MessageBox.Show("是否退出?", "确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Question,
MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Cancel Then
e.Cancel = True
Else
e.Cancel = False
End If
End Sub
在该按纽的单击事件编写代码:
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.
EventArgs
)
Handles
Button1.Click
Me.Close()
End
Sub
在VB6的时候,使用:Unload
me
在VB.NET里使用:Me.Close()
Form_Deactivate事件在窗体被卸载时触发,在其中中加一行End结束程序就行了