vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Controls · TextBox & RichTextBox   |   VB-Versionen: VB4, VB5, VB625.01.01
UNDO-Funktion für TextBoxen

Bereitstellung einer UNDOFunktion für Textboxen - per VB-Code.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  15.022 
www.tools4vb.deSystem:  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