Question

VB中如何判断文本框中信息是否被修改？

设置某个文本框信息的修改标志，当文本框信息中任何值被修改时（包括原有值为空，用户输入姓名“wangming”后又直接删除，也算对记录作了修改），将此值置为True，否则置为False，以便于出现窗体关闭前的保存提示。
设置窗体关闭前的保存提示：如果当前记录已被修改并且未作保存，则给出保存提示（提示内容为“当前记录尚未保存，确认要退出？”），否则不予任何提示直接关闭窗体。
以上操作在VB该如何实现？是什么实践？请高手多多指点啊。

Answer 1

我给你完整的过程并且每句都加上了注释,

'定义一个模块级变量为Boolean型
Private txtChange As Boolean

Private Sub Form_Load()
txtChange = True '初始化变量为更改
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If txtChange = True Then
If MsgBox("当前记录尚未保存，确认要退出?", vbYesNo, "提示") = vbNo Then
Cancel = True
'这里输入记录保存的代码
'保存记录后设置 txtChange=False
End If
End If
End Sub

Private Sub Text1_Change()
txtChange = True '当数据发生改变时给变量赋值
End Sub

Answer 2

你好~
如果文本框的名字叫TEXT1那么:
Dim e As Boolean
e = False

Private Sub Form_Unload(Cancel As Integer) '结束时
If e = True Then
If MsgBox("当前记录尚未保存，确认要退出?", vbInformation + vbOKCancel, "提示信息") = vbOK Then
End
End If
End If
End Sub

Private Sub Text1_Change() '文本被改动时
e = True
End Sub

本人实验过,可以的,给分吧~ 谢谢!~

Answer 3

定义 ischange 全局变量
txtbox的change事件中，写上 ischange=ture
如果 保存，则 ischange=false
关闭窗体的时候，判断ischange的值即可

Answer 4

代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Dim bModified As Boolean

Private Sub Form_Unload(Cancel As Integer)
If bModified Then
If MsgBox("当前记录尚未保存，确认要退出？", vbOKCancel) = vbCancel Then Cancel = 1
End If
End Sub

Private Sub Text1_Change()
bModified = True
End Sub