做一个简单的文本编辑器，如何实现undo功能？

Question

能够把richTextBox字体设置等等操作都能够undo重做的?
如何实现？
谢谢

Answer 1

RichTextBox当前是活动窗体Private Sub Command1_Click()
SendKeys "%{BS}"
End Sub

Answer 2

thx.
但是这样子仅仅能够撤销一些输入操作，
SendMessage Text1.hwnd, WM_UNDO, 0, 0
也是可以得。
我想做的是能够撤销字体设置的，比如
bold，underline等等

Answer 3

Private Sub Command1_Click()
    Text1.SetFocus
    SendKeys ("^z")
End Sub

Answer 4

如果你需要编辑的量比较小的话，也就是说可以不去考虑效率和性能问题的时候，你可以建立一个数组，每次将richtext的值改变的时候将它的值保存在这个数组中，undo的时候在read回来。
当然，你可以去实现更多的内容，比如创建一个自定义类型的数组，包含以下信息：操作的位置、操作的长度、操作、操作的内容等，也就是说每次进行文本操作的时候是去记录操作，这样undo的时候只要反过来就ok了。