OLE-Objekt in einem RTF erstellen

[Squdus]

Tachchen

Ich habe folgendes Problem, wieder mal.

Ich soll meinem TVP (Textverarbeitungsprogramm) Smileys zur Verfügung stellen. Ich habe rechts vom RTF ne Picturebox gesetzt und dort die Smileys reingepackt. Wenn man nun einen Smiley anklickt wird er direkt in das RTF eingefügt.

Dies bewerkstellige ich über "OLEObjects.Add", soweit so gut. Das Problem dabei ist allerdings, das sich beim einfügen der Smileys ins RTF der "Microsoft Photo Editor" öffnet.

Nun die Frage, jemand ne Idee wie ich das unterbinden kann?

Zitat von Quellcode

Private Sub picSmiley_Click(Index As Integer)

Dim File As String

File = picSmiley(Index).Tag

rtfText.OLEObjects.Add , , SmPath & File

Zur Erläuterung des Codes.

Ich hab jedes Smiley in eine weitere Picturebox gepackt, welche einen Index haben. So brauch ich die Prozedur ja nur einmal zu schreiben.

"SmPath" ist der Zielpfad bis kurz vor dem Smiley, im Tag steht dann die Endung des Pfades. Also:

SmPath = C:\Dokumente und Einstellungen\adamsb\Desktop\VB6 Programme\Drow\Smileys\

und picSmiley(Index).Tag:

Grins.Gif oder Smile.gif etc. pp.

dies weise ich dann dem String "File" zu und verbinde ihn mit dem anderen String "SmPath".

Damit hätten wir schonmal den kompletten Zielpfad.

Dann pack ich den Smiley über "OLEObjects" des "RichtTextField" mit "Add" hinzu. Und genau dort öffnet sich dann der Photo Editor von Microsoft.