|
Das Zusammenspiel einer TextBox mit der Zwischenablage können Sie auch auf API-Basis mit der Funktion SendMessage und den Nachrichten-Konstanten WM_COPY, WM_CUT und WM_PASTE direkt steuern.
Den folgenden Funktionen übergeben Sie beim Aufruf einfach die betreffende TextBox - und Windows erledigt alles weitere für Sie.
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
Public Sub TBCopy(TextBox As TextBox)
Const WM_COPY = &H301
SendMessage TextBox.hWnd, WM_COPY, 0&, 0&
End Sub
Public Sub TBCut(TextBox As TextBox)
Const WM_CUT = &H300
SendMessage TextBox.hWnd, WM_CUT, 0&, 0&
End Sub
Public Sub TBPaste(TextBox As TextBox)
Const WM_PASTE = &H302
SendMessage TextBox.hWnd, WM_PASTE, 0&, 0&
End Sub
|