Domino 9 und frühere Versionen > ND6: Entwicklung

Text als Durchgangs-HTML in Richtextfeld von UIDoc

<< < (2/2)

Axel:
In der Desinger-Hilfe gibt's ein Beispiel dazu.


Axel

bandit:
Ich find in den Beispielen immer nur wie es über ein Notesdocument geht, ist das über das UIDoc nicht möglich?

Driri:
Notesdocument = uidoc.Document

bandit:
Danke für die Antworten!

Ich habs jetzt etwas anders gemacht, etwas umständlich aber so gehts:

'-- Ein Objekt vom Typ NotesRichTextStyle wird erzeugt.
      Set rtsTemp = sessCurrent.CreateRichTextStyle
      
   '-- Das temporäre Dokument, das als Zwischenlager für den einzufügenden PassThru-HTML benutzt wird, wird mithilfe der Maske ' ispfrmTemp' erzeugt.
      Set docTemp = dbCurrent.CreateDocument
      docTemp.Form = |ispfrmTemp|
      Set rtTemp = New NotesRichTextItem(docTemp, "ispBody")
      
'-- Die PassThru-Eigenschaft des NotesRichTextStyles aktiviert.
      rtsTemp.PassThruHTML = True
      Call rtTemp.AppendStyle(rtsTemp)      
      Call rtTemp.AppendText(strPath)
      
'-- Das temporäre Dokument wird gespeichert, damit es im Frontend geöffnet werden kann.
      Call docTemp.Save(True, False)
      
'-- Das temporäre Dokument wird im Frontend im Editier-Modus geöffnet, das RichText-Feld wird angesprungen, komplett markiert und in die
'-- Zwischenablage kopiert.
      Set uidocTemp = uiwsCurrent.EditDocument(True, docTemp)            
      Call uidocTemp.GotoField("ispBody")
      Call uidocTemp.SelectAll
      Call uidocTemp.Copy
      
'-- Das Frontend-Dokument wird geschlossen.
      Call uidocTemp.Close()
      
'-- Der Inhalt der Zwischenablage wird an der aktuellen Cursor-Position eingefügt.
      Call uidocCurrent.Paste
      
'-- Das temporäre Dokument wird wieder entfernt.
      Call docTemp.Remove(True)         

Navigation

[0] Themen-Index

[*] Vorherige Sete