How do you put an image inside a richtextbox?

[Crypt-O-Night]

Is it possible to add an image inside a richtextbox so that it is visible within the interface and also printable?

Where would I start?

What I am looking to do is fill in text boxes and combo boxes on one side of my form while a richtextbox displays the information on the rightside of my form. Bascially the user is entering in data and a "print preview" invoice is being generated on the right side. The image I want to place in the RTB is my company's logo. Of course this image must print with the rest of the invoice.

Thanks!
- Dan

[Static]

this is how i did it.. there might be a better way

put your logo in an image control... hide it if u want..

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 Image1.Image
    SendMessage RTB1.hWnd, WM_PASTE, 0, 0
End Sub

[iPrank]

There are atleast 3 methods. But this one may be the easiest.

[Static]

I win

[iPrank]

I win

Well done !






Have a lollypop.

[Crypt-O-Night]

Thanks guys for your help. I appreciate it very much! I want the logo to be present on formload...That is why I call it in the formload event, obviously...lol Other than that I think I'm pretty much following your examples...Aren't I?

This code works as far as inserting the image into the RTB, however, when I print the RTB, the image is not printed. Help is appreciated...

Another thing, I'd like to be able to LOCK the RTB so the data can not be altered, other than with the Textboxes and combo boxes, however, when I lock it, the image doesn't show...Odd...

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 PlaceLogo()
    Clipboard.Clear
    Clipboard.SetData Image1.Picture
    SendMessage RTBLog.hWnd, WM_PASTE, 0, 0
End Sub
 
 
Private Sub Form_Load()
    Call PlaceLogo
End Sub
 
 
Private Sub CmdPrintRecord_Click()
    Printer.Print frmmain.rTxtLog.Text
    Printer.EndDoc
End Sub

[Static]

well. Lock it.. but
Do this

RTB1.Locked = False
'add image
RTB1.Locked = True


not sure about printing though.....

[Crypt-O-Night]

Geeeze! Now why didn't I think of that? Thatnks Static!!

Every find yourself overlooking the obvious for something less obvious? Seems to be the case here...There it is, staring me in the face...You're right, Lock it!

Thanks again...

Now, onto this printing issue...I gotta print that image...Anyone? Ideas?

- Dan

[moeur]

I haven't played with printing images from rtb, but one thought is that you can load the rtf into word and print from there.

You can use the Word Object from VB to do this.

[iPrank]

Printing:
There is a SelPrint method. It can print RTB contents with images.
But it is not very good. Seach MSDN, there is a code to print RTB contents.

Form_Load:
If the image is always same, you can save it in a rtf file. Then you can add it in the rtb during design time, or you can use the LoadFile method at Form_Load.