vb 写记事本的问题

来源：百度知道 编辑：UC知道 时间：2024/05/20 23:16:13
我现在在写一个记事本的程序
快要完成了
就是不知道怎么在关闭是判断是否保存
哪位高手帮帮忙 谢谢大家

Dim FT As Boolean '写在通用

Private Function LX(News As Integer) As Integer
Dim PD As Integer
If FT <> False Then PD = MsgBox("文件 " & Left(Form1.Caption, Len(Form1.Caption) - Len(Right(Form1.Caption, 6))) & " 的文字已经改变。" & _
vbCrLf & "想保存文件吗?", vbYesNoCancel + vbExclamation)
News = PD

End Function
Private Sub Form_Unload(Cancel As Integer)
Dim N As Integer
Call LX(N)
If N = vbYes Then
mnuSave_Click
ElseIf N = vbCancel Then
Cancel = 1
Else
End
End If

End Sub

End Sub
Private Sub Text1_Change()
FT = True
End Sub

这个是我自己写的记事本的代码,已经完成了,这个我的这个代码写得不是很好,反正将就的用了呵呵

你可以使用一个变量来储存

Form_Load时添加一个Boolean值为False,Text_Change时改变为True,关闭时再判断这个值就好了？

lihai