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("æªå®æ é¢ æ件çæåå·²ç»æ¹åã" & Chr(10) & Chr(10) & "æ³ä¿åæ件åï¼", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, "è®°äºæ¬")
If result = MsgBoxResult.Yes Then 'result.Yes表示ä¿åï¼æ¸
空å
容ï¼æå¼æ°é¡µé¢
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表示æåä¿åï¼æ¸
空å
容ï¼æå¼æ°é¡µé¢
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表示ä¸ä¿åï¼ä¸æ¹åä»»ä½ç»æ
End If
ElseIf result = MsgBoxResult.No Then 'result.no表示ä¸ä¿åï¼æ¸
空å
容
rtb.Text = ""
End If
End If
Else
If rtb.Text.Compare(rtb.Text, compareStr) <> 0 Then
Dim result As New MsgBoxResult
result = MsgBox(filename + " æ件çæåå·²ç»æ¹åã" & 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
温馨提示:内容为网友见解,仅供参考