افزودن تصویر در كنترل Microsoft RichTextBox

[ali190]

با سلام و عرض خسته نباشید
دوستان چطور میتونم در كنترل Microsoft RichTextBox تصویر اضافه کنم؟
ممنون و متشکر

[ali.rezaei7]

سلام.
به لینک زیر مراجعه بفرمایید:
http://www.a1vbcode.com/snippet-2846.asp
من خودم امتحان نکردم، روی سیستم من وی بی نصب نیست. شما امتحان کنید ببنید جواب میده.

[ali190]

سلام
من میخوام اینطور بشاه که مثلاً چند خط در richtrxt تایپ کنم بعد یه space بزنم و تصویرم رو Insert کنم (توسط commondiablog عکسم رو فراخوانی کنم و اون رو در richtrxt ام بیارم)
یعنی هر جای richtext ام که خواستم بتونم اضافش کنم
ممنون میشم کمکم کنید
یاعلی

[ali.rezaei7]

Public 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

ClipBoard.Clear
ClipBoard.Setdata LoadPicture( Dialog.FileName)

SendMessage RichText.hwnd, WM_PASTE, 0, 0

نباید مشکلی داشته باشه. و هرجایی که چشمک زن باشه تصویر همون جا قرار میگیره. امتحان کنید ببنید جواب میده. من تو دات نت امتحان کردم او کی بود.

[_behnam_]

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
Private Sub Command1_Click()
CD.Filter = "All Compatible Picture Types (*.Jpg *.gif *.png)|*.jpg"
CD.ShowOpen
If CD.FileName = "" Then Exit Sub
Call InsertPictureInRichTextBox(Me.RichTextBox1, LoadPicture(CD.FileName))
End Sub