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

[old_horse]

[Bardo]

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

[flashboy]

使用堆栈可以实现撤消恢复!!

[Bardo]

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)

[progame]

多次撤消，使用collection或dictionary

[old_horse]

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

[progame]

网上找源代码，然后抄袭就行了