vb.net 窗口打開(kāi)與關(guān)閉問(wèn)題.

這是由于你的啟動(dòng)類是form1，也就是說(shuō)form1是你的主函數(shù)，你關(guān)閉form1就相當(dāng)于關(guān)閉程序；

創(chuàng)新互聯(lián)成立于2013年，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元黃島做網(wǎng)站,已為上家服務(wù),為黃島各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:13518219792

如果你只希望彈出form2的時(shí)候form1隱藏，可以再form2.show()之后調(diào)用form1.hide()，之后關(guān)閉form2的時(shí)候再關(guān)閉form1就可以達(dá)到你想要的效果了；

再有一種做法就是你需要一個(gè)主函數(shù)類，使用它調(diào)用form1跟form2，這樣關(guān)閉哪一個(gè)都不會(huì)影響另一個(gè)。

如何VB程序上的窗口關(guān)閉按紐失效?

頂你啊

窗體的

MaxButton

屬性設(shè)為False

不就沒(méi)最大化了

或者設(shè)置

BorderStyle屬性

===================================

Private

Declare

Function

GetSystemMenu

Lib

"user32"

(ByVal

hwnd

As

Long,

ByVal

bRevert

As

Long)

As

Long

Private

Declare

Function

RemoveMenu

Lib

"user32"

(ByVal

hMenu

As

Long,

ByVal

nPosition

As

Long,

ByVal

wFlags

As

Long)

As

Long

Private

Const

MF_REMOVE

=

H1000

Private

Const

SC_CLOSE

=

HF060

Sub

Disabled(ChWnd

As

Long)

'設(shè)置窗體關(guān)閉按鈕不可用的子過(guò)程

Dim

hMenu,

hendMenu

As

Long

Dim

c

As

Long

hMenu

=

GetSystemMenu(ChWnd,

0)

RemoveMenu

hMenu,

SC_CLOSE,

MF_REMOVE

End

Sub

Private

Sub

Form_Load()

Disabled

Me.hwnd

'調(diào)用子過(guò)程

End

Sub

VB.NET 關(guān)閉窗體的問(wèn)題

this.close() 只是關(guān)掉，沒(méi)有釋放，不對(duì) me.close() 應(yīng)該釋放一下 me.Dispose() 給分吧、

vb.net窗體關(guān)閉的問(wè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 = "未定標(biāo)題 - 記事本" Then

If frmNew.rtb.Text = "" Then

Else

Dim result As New MsgBoxResult 'result提示對(duì)話框yes,no,cancel

result = MsgBox("未定標(biāo)題 文件的文字已經(jīng)改變。" Chr(10) Chr(10) "想保存文件嗎？", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, "記事本")

If result = MsgBoxResult.Yes Then 'result.Yes表示保存，清空內(nèi)容，打開(kāi)新頁(yè)面

Dim fileSave As New SaveFileDialog

Dim re As New DialogResult 're提示對(duì)話框OK，cancel

fileSave.FileName = "*.txt"

fileSave.Filter = "文本文檔(*.txt)|*.txt|所有文件|*.*"

re = fileSave.ShowDialog()

If re = DialogResult.OK Then 're.OK表示成功保存，清空內(nèi)容，打開(kāi)新頁(yè)面

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)閉問(wèn)題 用的是vs2013

首先這個(gè)應(yīng)該放在 FormClosing 事件中。

其次，因?yàn)槟?Else 之后沒(méi)有忽略窗體關(guān)閉的請(qǐng)求。

應(yīng)該再加一句 e.Cancel = True，表示告訴系統(tǒng)，我取消關(guān)閉窗體這個(gè)操作了。

vb.net怎么樣實(shí)現(xiàn)點(diǎn)擊窗體上一個(gè)銨鈕就關(guān)閉窗體的功能？

如果這個(gè)窗體是主窗體的話，你只能隱藏，因?yàn)橹鞔绑w關(guān)閉的話程序就退出了。

如果不是主窗體，可以用Form1.Close來(lái)關(guān)閉。

如果實(shí)在是想關(guān)閉，就得把程序啟動(dòng)設(shè)為sub

main而不是form。

再由sub

main來(lái)啟動(dòng)窗體，這樣就沒(méi)有主窗體了。

分享題目：vb.net窗體關(guān)閉不了 vb窗口不見(jiàn)了
分享網(wǎng)址：http://chinadenli.net/article16/hepcdg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè)、軟件開(kāi)發(fā)、企業(yè)網(wǎng)站制作、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站收錄

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)