Nahrazení funkcí Clipboardu pomocí API

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

Zpět

Autor: The Bozena