richedit problem 1

[topcat1a]

I'm inserting a picture into a richtext box, when it inserts paint opens. Does anyone know how to stop paint from opening when a picture is inserted?

here is the code:

Code:
RichTextBox1.OLEObjects.Add , , CommonDialog1.fileName

I have no idea.

 

[vladk]

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

Private Sub Command1_Click()

Clipboard.Clear
Clipboard.SetData LoadPicture("T:\Temp\schedule.gif"), vbCFBitmap ' Get bitmap
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0

End Sub

 

[topcat1a]

Could you explain to me what it is doing please? I've spent nearly two weeks looking for a solution thank you very very much

 

[vladk]

topcat1a,

I am glad I was able to help you. I understand this code as manipulation with the memory via the Clipboard object. First, clear it to prepare the room, second - send some data nto the memory. In this case, we send some image so we let it know to PC with the vbCFBitmap parameter of the LoadPicture method. Finally, we utilize common API SendMessage function to PASTE the content of the Clipboard into the box. It is my broad understanding. Somebody would probably better explain it.

vladk