编辑里面的“撤消”代码如何编写/用VB

Question

如果是Text中的可用下面的代码
API声明
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
撤消
rt = SendMessage(Me.Text1.hWnd, EM_UNDO, 0&, 0&)

Answer 1

RichTextBox中同样有这个功能
下面是关于EM_UNDO的说明
EM_UNDO
An application sends an EM_UNDO message to undo the last edit control operation. EM_UNDO 
wParam = 0; // not used; must be zero 
lParam = 0; // not used; must be zero 
 
Parameters
This message has no parameters. Return Values
For a single-line edit control, the return value is always TRUE. For a multiline edit control, the return value is TRUE if the undo operation is successful, or FALSE if the undo operation fails. Res
An undo operation can also be undone. For example, you can restore deleted text with the first EM_CANUNDO message, and remove the text again with a second EM_CANUNDO message as long as there is no intervening edit operation.