锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net窗体不关闭 vb窗体关闭代码

IT技术即取

用VB.Net编程，设计窗体时给窗体添加按钮，怎样才能点击这个“确定”按钮但不关闭窗体都不会关闭，除非你在按钮的Click事件处理中添加了Me.Close() 代码 。
VB.NET 窗体关闭问题 用的是vs2013首先这个应该放在 FormClosing 事件中 。
其次vb.net窗体不关闭，因为你 Else 之后没有忽略窗体关闭vb.net窗体不关闭的请求 。
应该再加一句 e.Cancel = Truevb.net窗体不关闭，表示告诉系统，vb.net窗体不关闭我取消关闭窗体这个操作vb.net窗体不关闭了 。
vb.net如何打开一个新窗体后关闭上一个窗体1、如果上一个窗体是程序vb.net窗体不关闭的主窗体（默认是程序的第一个窗体）vb.net窗体不关闭，
则不能关闭这个窗体vb.net窗体不关闭，只能隐藏（Me.Hide()）这个窗体，否则整
个程序就被关掉了 。
2、如果上一个窗体不是程序的主窗体，可以用Me.Close()
关闭 。
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 点击显示新窗口 如何新窗口不关闭时 点击后不重复创建窗口 显示已加载的窗口这样写 ， 每次点击按钮事件都会创建一个新的form 。
你想要的效果是主窗口生命周期内，子form是一个 。

推荐阅读


上一篇：全国gis高等学校系列教材，gis专业教材

下一篇：坚果手机还有什么功能，坚果手机有哪几款