十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
您可以调用Me.Hide()方法隐藏Login窗体。
创新互联公司专注于旅顺口企业网站建设,响应式网站建设,商城开发。旅顺口网站建设公司,为旅顺口等地区提供建站服务。全流程按需设计网站,专业设计,全程项目跟踪,创新互联公司专业和态度为您提供的服务
另外,如果您使用新建工程后的那个默认窗体作为Login窗体,那么您只能隐藏这个窗体或修改程序的启动对象。因为VB.net默认将创建工程时的那个默认窗体作为程序的主窗体,应用程序的主消息循环就建立在这个窗体上,如果您关闭这个窗体,那么所有的消息泵都会停止,应用程序就会退出。
我比较推荐您将Main窗体设为应用程序的主窗体,这样可以减小资源的占用,当Login完成后就可以释放Login窗体了。
另外,vb.net中的me变量相当于C语言中的this指针,它指向当前类。
推荐一个网站,这个网站有很多的教程,而且基本都是附部分代码,可能有一些对您有用的信息。
兼容ie和firefox js关闭代码
script language="javascript" type="text/javascript"
function closeWindow() {
window.open('','_parent','');
window.close();
}
/script
a href="javascript:closeWindow();"Close Window/a
好多朋友用到是自动关闭页面代码
script language="javascript"
function closeWindow(){
window.open('','_parent','');
window.close();
}
setTimeout("closeWindow()",3000);
/script
me.dispose()
楼主针对这个问题我也纠结过很久不过就在刚刚我找到了问题所在:
还是用me.close()
打开
项目
》
最下面一行有一个属性》
应用程序》下面
有一个关机模式
改为:当最后一个窗体关闭时。。。注意
me.close要写在窗体show()后面
例如
写成
f2.show()
me.close()
不要写成
me.close()
f2.show()
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