关于如何判断文件是否修改的问题。

Question

Private Sub richtextbox1_Change()
    dim haha As Boolean
    haha = True
End Sub上面的语句来判断richtextbox中的内容是否被修改过。
问题是当我选中某个或某行文字时，haha也等于True，但我并没有修改它。请问以上情况中怎样使haha等于False ?? 即是说选中文本的情况下不算修改

Answer 1

用keypress事件，去掉一些系统按键（比如左右键）

Answer 2

鼠标的左右键不能忽略，因为在richtextbox中涉及到字符间拖拽的问题

Answer 3

鼠标的左右键不能忽略，因为在richtextbox中涉及到字符间拖拽的问题