Postup:
Private Const WM_CUT =
&H300
Private Const WM_COPY = &H301
Private Const WM_PASTE = &H302
Private Const WM_CLEAR = &H303
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
' Kopírování
obsahu komponentu do Clipboardu
' Parametr hWnd je ukazatel na komponent
Sub ControlCopy(ByVal
hWnd As Long)
SendMessage hWnd, WM_COPY, 0, ByVal 0&
End Sub
' Vystřihnutí
obsahu komponentu do Clipboardu
Sub ControlCut(ByVal
hWnd As Long)
SendMessage hWnd, WM_CUT, 0, ByVal 0&
End Sub
' Vložení
obsahu Clipboardu do komponentu
Sub ControlPaste(ByVal
hWnd As Long)
SendMessage hWnd, WM_PASTE, 0, ByVal 0&
End Sub
' Smazání obsahu
komponentu
Sub ControlDelete(ByVal
hWnd As Long)
SendMessage hWnd, WM_CLEAR, 0, ByVal 0&
End Sub
|