Resim Ekleme (RichTextBox)



‘Projeye 1 adet modül ekleyin

‘Formunuza componentslerden Rich textbox

‘kontrolünü ,1 adet picturebox ve

‘picturebox içine 1 adet resim ekleyin



‘Aşağıdaki kodları modüle kopyalayın



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



‘Aşağıdaki kodları formunuza kopyalayın



Private Sub Command1_Click()

Clipboard.Clear

Clipboard.SetData Picture1.Picture

SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0

End Sub