重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在该按纽的单击事件编写代码:
创新互联公司拥有一支富有激情的企业网站制作团队,在互联网网站建设行业深耕10多年,专业且经验丰富。10多年网站优化营销经验,我们已为千余家中小企业提供了成都网站制作、做网站解决方案,按需求定制网站,设计满意,售后服务无忧。所有客户皆提供一年免费网站维护!
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()
既然是VB.NET,那么,窗体关闭的事件,是.net framework提供的,是FormClosed事件。也是两个参数,一个object sender这个是object基类,整个.net framework都是从它派生的,一个 EventArgs e,事件处理基类,一切事件是从EventArgs基类派生出来的。
在退出按钮的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
Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
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
你把该过程内的代码复制到别的地方先保存。然后把这个单击过程删除。重新点击按钮 进入事件,粘贴刚才的代码