[Q] lam sao dua hinh vao richtextbox

[duongcongd]

xin các cao thu chi dùm lam sao đư hình ảnh vào trong một richtextbox (giống nhw insert picture trong Word vậy đó). ai biết xin chỉ giao cho đệ nghe (duongcongd@yahoo.com)

[trungnt88]

'khai bao -------------'
'chu y : cdb = common dialog box'
'rtfMain = richtextbox'

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


'code --------------'
cdbMain.Filter = "All images format to insert(*.*)|*.jpg;*.bmp;*.gif|Jpg-Jpeg bitmaps(*.jpg)|*.jpg|Bmp-Windows bitmap(*.bmp)|*.bmp|GIF-Compusever(*.gif)|*.gif|"
cdbMain.ShowOpen
Clipboard.Clear
DoEvents
Clipboard.SetData LoadPicture(cdbMain.filename)
rtfMain.SetFocus
SendMessage rtfMain.hWnd, WM_PASTE, 0, 0
rtfMain.SetFocus


Okie ??? :D

[Allbegins]

Cám ơn code của bạn. :D