Private?Sub?Form2_FormClosed(sender?As?Object,?e?As?FormClosedEventArgs)?Handles?Me.FormClosed
創(chuàng)新互聯(lián)主要從事成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)諸城,10余年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18980820575
End????'退出后關(guān)閉軟件
End?Sub
'點擊關(guān)閉按鈕時彈出對話框判斷是否退出
Private?Sub?Form2_FormClosing(sender?As?Object,?e?As?FormClosingEventArgs)?Handles?Me.FormClosing
'經(jīng)典判斷關(guān)閉法
If?MessageBox.Show("是否退出？",?"確認(rèn)",?MessageBoxButtons.OKCancel,?MessageBoxIcon.Question,
MessageBoxDefaultButton.Button2)?=?Windows.Forms.DialogResult.Cancel?Then
e.Cancel?=?True
Else
e.Cancel?=?False
End?If
End?Sub
1.降窗體的WindowState 屬性 設(shè)置為 Mininmized;將ShowInTaskbar屬性設(shè)置為False
2.在窗體的Load事件中添加下面的代碼
if Me.WindowState = FormWindowState.Minimized then
me.hide()
end if
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提示對話框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)容，打開新頁面
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
窗體enalbed的問題
一個A窗體 點一項菜單彈出一個新窗體B
想讓B窗體彈出后 A窗體的enabled就變?yōu)閒alse
然后B窗體關(guān)閉以后 A窗體重新恢復(fù)enalbed = true
A窗體里面的菜單響應(yīng)代碼是
dim newframe as new frameB()
newframe.show()
me.enabled = false
此代碼可以實現(xiàn)B窗體彈出后 A窗體不能選也不能動
問題是B窗體關(guān)閉以后如何恢復(fù)A窗體的enalbed的屬性
代碼應(yīng)該怎么寫 是寫在A窗體的代碼里面 還是B窗體的代碼里面？
B窗體里面怎么修改 A窗體對象的屬性？
2
關(guān)閉窗體問題
關(guān)閉一個窗體的時候，點右上角的X和代碼me.colse() 是不是一回事？
要怎么關(guān)閉一個窗體才能完全釋放內(nèi)存？
我編的程序在退出后，總是在任務(wù)管理器里面還可以看到進(jìn)程，怎么解決？
3
模塊問題
我想把一些所有窗體都會用到的變量 和 函數(shù) 放到一個模塊里面，比如說modu1.vb。
這些變量和函數(shù)是不是要定義成全局的？ 怎么定義？ 比方說要定義一個字符串要怎么寫？
然后，其他的窗體要用到這些變量和函數(shù)的是侯，在他們各自窗體的代碼里面是不是要加一句話？怎么加？加在什么地方？
更多 0 分享到：
相關(guān)主題推薦： 對象 管理 內(nèi)存 as x
相關(guān)帖子推薦：
c# RemObjects.SDK.Serializer 拆箱搞不定，求助網(wǎng)絡(luò)在線考試系統(tǒng)項目源碼親測sqlserver版本$("#XX")和$(XX)有什么樣的區(qū)別？？宏碁axc-105 2G內(nèi)存卻只有1.44G可用初學(xué)java 請幫忙看下多個tomcat啟動問題 非端口占用以下執(zhí)行的js代碼中，代碼執(zhí)行完畢，變量得到釋放了嗎？請問android內(nèi)存中的shared dirty memory，shared指的是什么啊
在該按紐的單擊事件編寫代碼：
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()
重慶分公司
重慶分公司
