Hôw tõ Åðd @ PíçtùrE Tô A rÌCHtEXt-B0x

[vbAlex]

how to add a picture(.gif) to a richtextbox???
add the picture to the text...

wenn i add a picture in ms word and then drag/drop it to the richtextbox in my app (while it's running...) then it worx..... but how can i do this scripted????

thx in advance

m€

[Mark Sreeves]

Ich denke daß Ihre "Font Editor" ist kaputt!

[vbAlex]

die tastatur hat leider ein paar fehler.....



and what's up with the picturein the rtfbox???

[Sam Finch]

Have you tried looking at the RTF Code in the Box, it's the textRTF property, look at this when you paste your picture, then try copy what it does

[Serge]

What you can do is to use an invisible PictureBox. You will have to load picture file into that PictureBox and then paste it into a RichTextBox:

Option Explicit
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()
    With Picture1
        .AutoSize = True
        .Visible = False
        .Picture = LoadPicture("C:\Giggling.bmp")
    End With
    
    Clipboard.Clear
    Clipboard.SetData Picture1.Image, vbCFBitmap
    Call SendMessage(RichTextBox1.hwnd, WM_PASTE, 0, 0)
End Sub

Das wetter ist sehr schon!

Ahh, you can't beat proper English edyoocayshun.