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()
分享题目:vb.net窗体关闭按钮 vb取消窗体的关闭按钮
文章源于:http://scyanting.com/article/hgicee.html