Vložení obrázku do RichTextBoxu

Postup:
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

Private Const WM_PASTE = &H302

Sub InsertPictureInRichTextBox(RTB As RichTextBox, Picture As StdPicture)

    Clipboard.Clear
    Clipboard.SetData Picture
    SendMessage RTB.hwnd, WM_PASTE, 0, 0

End Sub

Příklad použití:
InsertPictureInRichTextBox RichTextBox1, LoadPicture("c:\winnt\coffee bean.bmp")

Zpět