'声明 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 '调用 Private Sub mnuUndo_Click() SendMessage Text1.hwnd, EM_UNDO, 0&, 0& End Sub
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
'调用
Private Sub mnuUndo_Click()
SendMessage Text1.hwnd, EM_UNDO, 0&, 0&
End Sub