vb.net窗體關閉按鈕 vb取消窗體的關閉按鈕

VB.NET中，右上角的關閉按鈕走的什么事件

Private?Sub?Form2_FormClosed(sender?As?Object,?e?As?FormClosedEventArgs)?Handles?Me.FormClosed

創(chuàng)新互聯(lián)主要從事成都網(wǎng)站設計、網(wǎng)站建設、網(wǎng)頁設計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務。立足成都服務諸城,10余年網(wǎng)站建設經(jīng)驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:18980820575

End????'退出后關閉軟件

End?Sub

'點擊關閉按鈕時彈出對話框判斷是否退出

Private?Sub?Form2_FormClosing(sender?As?Object,?e?As?FormClosingEventArgs)?Handles?Me.FormClosing

'經(jīng)典判斷關閉法

If?MessageBox.Show("是否退出？",?"確認",?MessageBoxButtons.OKCancel,?MessageBoxIcon.Question,

MessageBoxDefaultButton.Button2)?=?Windows.Forms.DialogResult.Cancel?Then

e.Cancel?=?True

Else

e.Cancel?=?False

End?If

End?Sub

VB.net如何實現(xiàn)點擊關閉按鈕時最小化到

1.降窗體的WindowState 屬性 設置為 Mininmized;將ShowInTaskbar屬性設置為False

2.在窗體的Load事件中添加下面的代碼

if Me.WindowState = FormWindowState.Minimized then

me.hide()

end if

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("未定標題 文件的文字已經(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果

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中想鼠標點擊了窗體上的關閉按鈕時，都執(zhí)行的是什么代碼？

窗體enalbed的問題

一個A窗體 點一項菜單彈出一個新窗體B

想讓B窗體彈出后 A窗體的enabled就變?yōu)閒alse

然后B窗體關閉以后 A窗體重新恢復enalbed = true

A窗體里面的菜單響應代碼是

dim newframe as new frameB()

newframe.show()

me.enabled = false

此代碼可以實現(xiàn)B窗體彈出后 A窗體不能選也不能動

問題是B窗體關閉以后如何恢復A窗體的enalbed的屬性

代碼應該怎么寫 是寫在A窗體的代碼里面 還是B窗體的代碼里面？

B窗體里面怎么修改 A窗體對象的屬性？

2

關閉窗體問題

關閉一個窗體的時候，點右上角的X和代碼me.colse() 是不是一回事？

要怎么關閉一個窗體才能完全釋放內(nèi)存？

我編的程序在退出后，總是在任務管理器里面還可以看到進程，怎么解決？

3

模塊問題

我想把一些所有窗體都會用到的變量 和 函數(shù) 放到一個模塊里面，比如說modu1.vb。

這些變量和函數(shù)是不是要定義成全局的？ 怎么定義？ 比方說要定義一個字符串要怎么寫？

然后，其他的窗體要用到這些變量和函數(shù)的是侯，在他們各自窗體的代碼里面是不是要加一句話？怎么加？加在什么地方？

更多 0 分享到：

相關主題推薦： 對象 管理 內(nèi)存 as x

相關帖子推薦：

c# RemObjects.SDK.Serializer 拆箱搞不定，求助網(wǎng)絡在線考試系統(tǒng)項目源碼親測sqlserver版本$("#XX")和$(XX)有什么樣的區(qū)別？？宏碁axc-105 2G內(nèi)存卻只有1.44G可用初學java 請幫忙看下多個tomcat啟動問題 非端口占用以下執(zhí)行的js代碼中，代碼執(zhí)行完畢，變量得到釋放了嗎？請問android內(nèi)存中的shared dirty memory，shared指的是什么啊

vb.net 如何用一個按鈕（button）來關閉按鈕所在的窗體

在該按紐的單擊事件編寫代碼：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Close()

End Sub

在VB6的時候，使用：Unload me

在VB.NET里使用：Me.Close()

文章名稱：vb.net窗體關閉按鈕 vb取消窗體的關閉按鈕
URL地址：http://muchs.cn/article44/hgicee.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、App設計、微信小程序、品牌網(wǎng)站設計、靜態(tài)網(wǎng)站、網(wǎng)站排名

廣告

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