Lze provést UNDO v TextBoxu ?

Postup:
Deklarujte:

Const EM_CANUNDO = &HC6

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long


Private Sub Command1_Click()

    Dim llReturnCode As Long
    
    ' 0 = nelze provést UNDO
    ' 1 = lze.
    llReturnCode = SendMessage(Text1.hWnd, EM_CANUNDO, 0&, 0&)

End Sub

Zpět