UNDO poslední akce v TextBoxu
Postup:
Na formulář přidejte TextBox a tlačítko. Do deklarační části
formuláře zapište:
Private Declare
Function SendMessageBynum& Lib "user32" Alias_
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg
As Long, _
ByVal wParam As Long, ByVal lparam As Long)
Private Const EM_UNDO = &HC7&
Private Sub TextUndo(T As
TextBox)
SendMessageBynum T.hwnd, EM_UNDO, 0, 0
End Sub
Na událost Click tlačítka:
Private Sub Command1_Click()
Call TextUndo(Text1)
End Sub