如何在VB实现Undo和Redo功能？

Question

就是对richtextbox实现撤消和重复的功能？？
请指教.

Answer 1

您的文字框有 Undo / Redo 的功能(适用于richtextbox）很多软件都有提供 Undo / Redo 的功能，Microsoft 的产品都可以提供多次 Undo 反悔，功能更强大！在 VB 的程序中，我们也可以提供这样的功能！不过只能 Undo / Redo 一次'在声明区中加入以下声明：'32位
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
Const EM_UNDO = &HC7'16位元
'Private Declare Function SendMessage Lib "User" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
'Const WM_USER = &H400
'Const EM_UNDO = WM_USER + 23'在程序中使用的方式如下： ( Undo Text1 中的输入 )Private Sub Command1_Click()
Dim UndoResult As Long
UndoResult = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
'传回值 UndoResult = -1 表示 Undo 不成功
End Sub'使用以上的方法，第一次是 Undo ，第二次就等于是 Redo

Answer 2

如果需要实现多次Undo / Redo ，需要借助数组实现

Answer 3

RichTextBox当前是活动窗体Private Sub Command1_Click()
SendKeys "%{BS}"
End Sub或者
Private Sub Command1_Click()
SendMessage Text1.hwnd, WM_UNDO, 0, 0
End Sub