vb.net窗体关闭按钮 vb取消窗体的关闭按钮

VB.NET中，右上角的关闭按钮走的什么事件

Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed

创新互联主要从事成都网站设计、网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务诸城,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575

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

VB.net如何实现点击关闭按钮时最小化到

1.降窗体的WindowState 属性 设置为 Mininmized;将ShowInTaskbar属性设置为False

2.在窗体的Load事件中添加下面的代码

if Me.WindowState = FormWindowState.Minimized then

me.hide()

end if

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中想鼠标点击了窗体上的关闭按钮时，都执行的是什么代码？

窗体enalbed的问题

一个A窗体 点一项菜单弹出一个新窗体B

想让B窗体弹出后 A窗体的enabled就变为false

然后B窗体关闭以后 A窗体重新恢复enalbed = true

A窗体里面的菜单响应代码是

dim newframe as new frameB()

newframe.show()

me.enabled = false

此代码可以实现B窗体弹出后 A窗体不能选也不能动

问题是B窗体关闭以后如何恢复A窗体的enalbed的属性

代码应该怎么写 是写在A窗体的代码里面 还是B窗体的代码里面？

B窗体里面怎么修改 A窗体对象的属性？

2

关闭窗体问题

关闭一个窗体的时候，点右上角的X和代码me.colse() 是不是一回事？

要怎么关闭一个窗体才能完全释放内存？

我编的程序在退出后，总是在任务管理器里面还可以看到进程，怎么解决？

3

模块问题

我想把一些所有窗体都会用到的变量 和 函数 放到一个模块里面，比如说modu1.vb。

这些变量和函数是不是要定义成全局的？ 怎么定义？ 比方说要定义一个字符串要怎么写？

然后，其他的窗体要用到这些变量和函数的是侯，在他们各自窗体的代码里面是不是要加一句话？怎么加？加在什么地方？

更多 0 分享到：

相关主题推荐： 对象 管理 内存 as x

相关帖子推荐：

c# RemObjects.SDK.Serializer 拆箱搞不定，求助网络在线考试系统项目源码亲测sqlserver版本$("#XX")和$(XX)有什么样的区别？？宏碁axc-105 2G内存却只有1.44G可用初学java 请帮忙看下多个tomcat启动问题 非端口占用以下执行的js代码中，代码执行完毕，变量得到释放了吗？请问android内存中的shared dirty memory，shared指的是什么啊

vb.net 如何用一个按钮（button）来关闭按钮所在的窗体

在该按纽的单击事件编写代码：

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()