VB中如何判断文本框中信息是否被修改?
来源:百度知道 编辑:UC知道 时间:2024/06/09 00:24:50
设置窗体关闭前的保存提示:如果当前记录已被修改并且未作保存,则给出保存提示(提示内容为“当前记录尚未保存,确认要退出?”),否则不予任何提示直接关闭窗体。
以上操作在VB该如何实现?是什么实践?请高手多多指点啊。
我给你完整的过程并且每句都加上了注释,
'定义一个模块级变量为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
定义 ischange 全局变量
txtbox的change事件中,写上 ischange=ture
如果 保存,则 ischange=false
关闭窗体的时候,判断ischange的值即可
代码如下。
================
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