用VB写记事本遇到的问题

Question

我用COMMONDIALOG和RICHTEXTBOX控件来写，但是还差一个功能不会现实，就是"撤消"功能，现在连思路也想不出来，谁帮我想想啊？或者写段代码给我参考一下，谢谢

Answer 1

简单的只能撤销一步http://skillhome.nease.net/files/39.htm
如果要撤销多步,那一两句说不清,基本思想就是把用户的所有操作都记录下来,撤销的时候反过来作就行了

Answer 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_UNDO = &HC7
Private Sub Command1_Click()
SendMessage Text1.hwnd, EM_UNDO, 0, 0
End Sub
帮忙:
http://expert.csdn.net/Expert/topic/1920/1920488.xml?temp=.2551386

Answer 3

Const EM_UNDO = 199
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    SendMessage RichTextBox1.hwnd, EM_SETMODIFY, 0, 0

Answer 4

不会，就要用了两个collection集合。