真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

vb.net頁面關(guān)閉,vb運行時退出窗體代碼

vb.net登陸界面中當login驗證后進入main窗體時怎樣關(guān)閉login窗體

您可以調(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)站有很多的教程,而且基本都是附部分代碼,可能有一些對您有用的信息。

ASP.NET怎樣用VB.NET代碼實現(xiàn)關(guān)閉當前頁面?

兼容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

VB.Net 新手問題:如何關(guān)閉登錄界面并跳到另一個界面

me.dispose()

樓主針對這個問題我也糾結(jié)過很久不過就在剛剛我找到了問題所在:

還是用me.close()

打開

項目

最下面一行有一個屬性》

應(yīng)用程序》下面

有一個關(guān)機模式

改為:當最后一個窗體關(guān)閉時。。。注意

me.close要寫在窗體show()后面

例如

寫成

f2.show()

me.close()

不要寫成

me.close()

f2.show()

vb.net窗體關(guān)閉的問題!

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


新聞名稱:vb.net頁面關(guān)閉,vb運行時退出窗體代碼
文章出自:http://weahome.cn/article/hcohgp.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部