欧阳娜娜古装:VB中怎样实现撤消,重做控键。求其详细代码
来源:百度文库 编辑:中科新闻网 时间:2024/09/21 08:18:18
让您的文字框有 Undo / Redo 的功能
在 VB 的程序中,我们也可以提供这样的功能!不过只能 Undo / Redo 一次
'在声明区中加入以下声明:
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
'在程序中使用的方式如下: ( 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