怎样知道richtext中文本已经改变需要保存？

Question

如何实现当程序要关闭时，自动判断RichText中的内容发生了改变？
用.Validata  .datachanged还是.change ?我现在用RichText.change()
        changed=True    'dim changed as boolean但是用它刚打开一个文件（未作改动） RichText.change事件就发生了。

Answer 1

Dim bFlag As Boolean
Private Sub RichText1.Change()
    bFlag=True
End Sub
在打开文件之后将其设为False，关闭程序时如果bFlag为True则提示是否保存。

Answer 2

也可先将保存过的内容赋值一变量，与text的值进行比较