您可以調(diào)用Me.Hide()方法隱藏Login窗體。
創(chuàng)新互聯(lián)公司專注于旅順口企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站建設(shè),商城開發(fā)。旅順口網(wǎng)站建設(shè)公司,為旅順口等地區(qū)提供建站服務(wù)。全流程按需設(shè)計網(wǎng)站,專業(yè)設(shè)計,全程項目跟蹤,創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
另外,如果您使用新建工程后的那個默認窗體作為Login窗體,那么您只能隱藏這個窗體或修改程序的啟動對象。因為VB.net默認將創(chuàng)建工程時的那個默認窗體作為程序的主窗體,應(yīng)用程序的主消息循環(huán)就建立在這個窗體上,如果您關(guān)閉這個窗體,那么所有的消息泵都會停止,應(yīng)用程序就會退出。
我比較推薦您將Main窗體設(shè)為應(yīng)用程序的主窗體,這樣可以減小資源的占用,當Login完成后就可以釋放Login窗體了。
另外,vb.net中的me變量相當于C語言中的this指針,它指向當前類。
推薦一個網(wǎng)站,這個網(wǎng)站有很多的教程,而且基本都是附部分代碼,可能有一些對您有用的信息。
兼容ie和firefox js關(guān)閉代碼
script language="javascript" type="text/javascript"
function closeWindow() {
window.open('','_parent','');
window.close();
}
/script
a href="javascript:closeWindow();"Close Window/a
好多朋友用到是自動關(guān)閉頁面代碼
script language="javascript"
function closeWindow(){
window.open('','_parent','');
window.close();
}
setTimeout("closeWindow()",3000);
/script
me.dispose()
樓主針對這個問題我也糾結(jié)過很久不過就在剛剛我找到了問題所在:
還是用me.close()
打開
項目
》
最下面一行有一個屬性》
應(yīng)用程序》下面
有一個關(guān)機模式
改為:當最后一個窗體關(guān)閉時。。。注意
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("未定標題 文件的文字已經(jīng)改變。" Chr(10) Chr(10) "想保存文件嗎?", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, "記事本")
If result = MsgBoxResult.Yes Then 'result.Yes表示保存,清空內(nèi)容,打開新頁面
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表示成功保存,清空內(nèi)容,打開新頁面
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表示不保存,不改變?nèi)魏谓Y(jié)果
End If
ElseIf result = MsgBoxResult.No Then 'result.no表示不保存,清空內(nèi)容
rtb.Text = ""
End If
End If
Else
If rtb.Text.Compare(rtb.Text, compareStr) 0 Then
Dim result As New MsgBoxResult
result = MsgBox(filename + " 文件的文字已經(jīng)改變。" 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