Hallo
Habe per Button folgenden Code eingerichtet, welcer mir ein JPEG in ein RichTextFeld importiert.
Nun möchte ich darunter einen text haben. Wenn ich den Code aber so durchlaufen lasse, schreibt er mir den Code HINTER das Bild. Wie bringe ich das auf eine neue Zeile????
Call uidoc.Import("JPEG Image", doc.Trigger5(0))
Call uidoc.InsertText("Hallo")
Call uidoc.Save
Danke
Chr(13) macht das
Danke, ich weiss, dass Chr(13) einen Zeilenumbruch generiert, aber wie bring ich das hier in meinen Code?
Call uidoc.Import("JPEG Image", doc.Trigger5(0))
Chr(13) ===> so?
Call uidoc.InserText(Chr(133)) ==> So? Geht nix
Call uidoc.InsertText("hallo")
Call uidoc.Save
Call notesUIDocument.FieldAppendText( fieldName$, text$ )
Erstell dir ein Feld mit HTMLtext (also <img source=""><br>...)
schreib das ganze auf die Platte ins Verzeichnis temp oder sonstwo wo sicher Schreibzugriffe erlaubt sind und importiere das ganze wieder.
Code:
Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim filename As String
Dim tempfilename As String
Set uidoc=ws.currentdocument
s=uidoc.fieldgettext("Feld1")
fileNum%=Freefile()
TempFileName$ ="c:\test.htm"
Open TempFileName$ For Output As fileNum%
Print #fileNum%, s
Close fileNum%
uidoc.GotoField("Body")
Call uidoc.Import("HTML File",tempFileName$)
Kill TempFileName$
End Sub
Feld1 enthält den HTML-Text den du ins RichTextFeld einfügen willst also zB:
"<html><img source='dasBild.jpg'><br>Feldinhalt des Textes hinter dem Bild</html>"
Funktioniert auch gut mit Tabellen und ist unabhängig vom Backend.