Fortryd funktion

Du bruger den bare? Eller misforstår jeg dig?

Den bliver først aktiv i det øjeblik du har ændret på teksten i tekstboksen...

Hvis du skal bruge undo ved hjælp af en knap.


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

Public Function Undo(ObjecthWnd As Long)
  SendMessage ObjecthWnd, EM_UNDO, 0&, 0&
End Function

Public Function CanUndo(ObjecthWnd As Long) As Long
  CanUndo = SendMessage(ObjecthWnd, EM_CANUNDO, 0&, 0&)
End Function

Private Sub Command1_Click()
  Call Undo(Text1.hWnd)
End Sub

Private Sub Form_Load()
  Command1.Caption = "Undo"
End Sub

>sjh

Det er simpelthen genialt, men der er en lille minus ting.

Den undoer kun en gang!

takker det var lige hvad jeg ledte efter.