UNDO-Funktion für TextBoxen Bereitstellung einer UNDOFunktion für Textboxen - per VB-Code.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  15.822
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Der nachfolgende Tipp zeigt, wie Sie eine UNDO-Funktion für Textboxen bereitstellen können.

' zunächst die benötigten Deklarationen
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Long) As Long 
 
Private Const EM_UNDO = &HC7
Private Const EM_CANUNDO = &HC6
 
' Prüfen, ob UNDO möglich
Public Function CanUNDO(hWnd As Long)
  CanUNDO = (SendMessage(hWnd, EM_CANUNDO, 0, 0)<>0)
End Function
 
' UNDO ausführen
Public Sub MakeUNDO(hWnd As Long)
  Dim Result As Long
  Result = SendMessage(hWnd, EM_UNDO, 0, 0)
End Sub

Beispiel:

Private Sub MenuUndo_Click()
  If CanUNDO(Text1.hWnd) Then MakeUNDO Text1.hWnd
End Sub