Paste Picture From PictureBox/Clipboard to Rich Text Box
Paste Picture From PictureBox/Clipboard to Rich Text Box
When you will press the button, the picture box's picture will be copied
to the clipboard, and from there will be pasted to the rich text box.
Preparations
Add 1 Command Button (named Command1), 1 Rich Text Box (named
RichTextBox1) and 1 Picture Box (named Picture1) to your form.
Add a picture to the Picture Box.
Module Code
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 Const WM_PASTE = &H302
Form Code
Private Sub Command1_Click()
'the 2 code lines below copy the picture box's picture to the clipboard.
if you will omit them,
'the picture that currently found in the clipboard will be copied to the
rich text box.
Clipboard.Clear
Clipboard.SetData Picture1.Picture
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub
|