Rubrik: Controls · TextBox & RichTextBox | VB-Versionen: VB4, VB5, VB6 | 25.01.01 |
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