'Dim stream As Stream = Nothing
        'Dim writer As StreamWriter = New StreamWriter(stream)
        'Dim myString = task.getDescription
        'Dim enc As Encoding = Nothing
        'Dim byteArray As Byte() = enc.GetBytes(myString)
        'stream.Write(byteArray, 0, byteArray.Length)
 
        Dim writer As New MemoryStream(Encoding.UTF8.GetBytes( _
          task.getDescription))
 
        Dim RichText
        RichText = Bez1.GetEditObject(3)
        RichText.LoadFromStream(writer, 1, False, False)
        RichText.Save()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Zitat:

Methoden Name | Beschreibung Clear | Rtf Inhalt löschen LoadFromFile | Rtf Datei einladen LoadFromStream | Rtf Stream einladen. Save | Rtf Inhalt speichern SaveToFile | Rtf Datei speichern SaveToStream | Rtf Stream speichern Eigenschaften Name | Beschreibung Application | Zugriff auf das Basis Objekt von dem alle Interfaces abstammen. Parent | Gibt das Parent Interface zurück. TextDocument | TextDocument ermöglicht den Zugriff auf das RTF Control 3.1.51.6 IAutoRichText::LoadFromStream Methode Rtf Stream einladen. IDL [id(0x00000005)] HRESULT _stdcall LoadFromStream([in] IUnknown* Stream, [in] enum RichTextInputFormat InputFormat, [in] VARIANT_BOOL Selection, [in] VARIANT_BOOL PlainRTF); Beschreibung Lädt einen Rtf Text aus einem Stream ein. Parameter Parameter | Beschreibung [in] IUnknown* Stream | Ein Interface auf ein Stream Objekt das IStream unterstützt. Es wird ab der aktuellen Position gelesen. [in] enum RichTextInputFormat InputFormat | RichTextInputFormat [in] VARIANT_BOOL Selection | True es wird der aktuell selektierte Text mit dem geladenen ersetzt. VGL: TextDocument [in] VARIANT_BOOL PlainRTF TRUE | die Datei wird als RTF interpretiert. Ansonsten wird der Inhalt als Text gelesen

Dim uniEncoding As New UnicodeEncoding()
        Dim memStream As New MemoryStream(100000)
        Dim firstString As Byte() = _
            uniEncoding.GetBytes(task.getDescription)
        memStream.Write(firstString, 0, firstString.Length)
 
        Dim RichText
        RichText = Bez1.GetEditObject(3)
 
        RichText.LoadFromStream(memStream, 1, False, False)
        memStream.Close()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist