Smilies in RTF-Feld einbinden

[Erik_hfr]

Servus Kollegen,

ich habe einen kleinen Chat für ein paar Kollegen hier auf Arbeit geschrieben. Nachdem das Ding läuft, wollte ich ihn anwenderfreundlicher gestalten, unter anderem mit Smilies ausstatten.

Zwei Ansätze hatte ich schon:

1.

Ich habe mich über folgende Eigenschaft und deren Methode angepirscht:

RichTextBox1.OLEObjects.Add , , [Grafik]

Allerdings hat er mir die Grafik, hier war es eine BMP, in Falschfarben dargestellt, den Dateinamen direkt unter das Icon gesetzt, einen Rahmen drum gezogen und das ganze noch in der windowsüblichen Bild- und Fax-Vorschau geöffnet. Nicht ganz das, was ich wollte. 2. Ha, jetzt biste clever, dachte ich mir. Deshalb hab ich mir den RTF-Code für das Bild geschneppt, den in eine Variable gesteckt und wollte ihn einfach einfügen. Tja, denkste. Der Code wird ja nicht ins RTF.TextRTF eingefügt, sondern ins RTF.Text

Dim Smilie1, Smilie2 As String


Smilie1 = "{\pict\wmetafile8\picw264\......"


RTF.SelStart = (Len(RTF.TextRTF) - 7)

RTF.SelText = Smilie1

Kann mir jemand helfen diese miesen kleinen Icons, in welchem Format auch immer, einzubinden?

Vielen Dank!

[Amstelchen]

nur mal eine vermutung, vielleicht hilft es dir ja, den vierten parameter (objclass) der methode add so zu adaptieren, dass damit kein assoziiertes programm geöffnet wird. vielleicht lässt sich auch etwas mit den ObjectVerbs des von add zurückgegebenen objektes was anfangen. zum problem mit den falschfarben, welche farbtiefe haben denn die bmp-dateien?

ansonsten schau dir das an:

Einfügen von Bildern und Objekten in die RichTextBox

http://www.vbarchiv.net/workshop/workshop52.php

Bitmap mit API in eine RichTextBox einfügen

http://www.activevb.de/tipps/vb6tipps/tipp0037.html

s'Amstel

[Erik_hfr]

Besten Dank, ich schau mich mal um!