我编了一个记事本，但不会实现撤消！最好有源码！谢谢！

Question

VB中就有现的的例子，或者，用VB的应用程序向导，则也会生成这样的代码。

Answer 1

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const EM_UNDO = &HC7 Dim cbhWnd As Long
    Dim Retval      FrmMdi.ActiveForm.SetFocus
        cbhWnd = GetFocus()
        Retval = SendMessage(cbhWnd, EM_UNDO, 0, 0)

Answer 2

多次撤消，使用collection或dictionary

Answer 3

能不能详细点，如何使用collection或dictionary？谢谢！