Vb中如何编码撤销功能，也就是返回上一步的操作！求代码

Question

Vb中如何编码撤销功能，也就是返回上一步的操作！求代码！求解答！

Answer 1

 直接往你的文本框发送 wm_undo 消息
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_UNDO = &H304

调用
call SendMessage(text1.hwnd, wm_undo, 0, 0)