求vb记事本richtextbox中撤销操作的代码

求vb记事本richtextbox中撤销操作的代码

还有  记事本---查看----状态栏  .... 什么时候才会变有效以及他的代码

每次更改text1.text时候的，把内容保存一下。
用 SendMessage API 函数向 TextBox 发送  EM_UNDO 消息，要确定 TextBox 是否可以 Undo，发送 EM_CANUNDO 消息。
'控件：Text1、Command1、Command2。
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
Private Const EM_UNDO = &HC7
Private Const EM_CANUNDO = &HC6
Private Sub Command1_Click() '确定是否可以 Undo。
    If SendMessage(Text1.hwnd, EM_CANUNDO, 0, 0) Then
    MsgBox "现在可以 Undo."
    Else
    MsgBox "现在不可以 Undo."
    End If
End Sub
Private Sub Command2_Click() 'Undo。
    Call SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
End Sub

很久没玩vb了 不过还有点印象

在vb里 像撤销，复制，粘贴等等操作都是可以直接通过send key 来实现的

你可以去google一下。