UNDO-Funktion für TextBoxen Bereitstellung einer UNDOFunktion für Textboxen - per VB-Code.
Autor:   Dieter Otter	Bewertung:	Views:  15.068
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.