Afbeeldingen in een RTF

[kevinsoftware]

Hallo,

Na veel geklooi etc... is het gelukt om een verbinding te leggen tussen MySql en mijn project.
Nu heb ik een ander groot probleem. Ik wil de tekst filteren en tekens omzetten naar afbeeldingen. Dit is wat ik tot nu toe heb:

Public Function filter(str As String)
    filter = Replace(str, ":)", LoadPicture(App.Path & "/DATA/IMAGES/SMILES/happy.gif"))
End Function

Dat werkt alleen niet.
Weet iemand hoe op te lossen.?

 

[Pizara]

t lijkt erop dat je met vb6 in de weer bent of niet?

goed , ik heb hier een solide stukje code gepost (vb2008) die na het intypen van 'linux' de text verwijderd en een plaatje ervoor terug in de plaats zet.

    Private Sub RichTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyUp

        If RichTextBox1.Text.EndsWith("linux") = True Then ReplaceForPicture("linux", "c:\linux.png")

    End Sub

    Private Sub ReplaceForPicture(ByVal Str As String, ByVal Filename As String)

        RichTextBox1.SelectionStart = RichTextBox1.Text.Length - Str.Length
        RichTextBox1.SelectionLength = Str.Length

        Dim MyBitmap As Bitmap = Bitmap.FromFile(Filename)
        Clipboard.SetDataObject(MyBitmap)

        Dim Format As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)

        RichTextBox1.Paste(Format)

        Clipboard.Clear()

    End Sub