Domino 9 und frühere Versionen > ND6: Entwicklung

AddNewLine Methode

<< < (6/7) > >>

Axel:
Hi,

versuch's mal so:

...
If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
  Call rti.BeginInsert(rtnav)
  Call rti.AppendText( "Book is 64 pages, full color." )
  Call rti.AddNewLine( 1 )
  Call rti.EndInsert
Else
  Call rti.AppendText( "Book is 64 pages, full color." )
  Call rti.AddNewLine( 1 )
End If
   
Call rti.Update ' ND6 only
If Not bolEditMode Then Call doc.Save(True, False)
...

Damit wird das Dokument, wenn es sich nicht im Edit-Modus befindet gespeichert.


Axel

Andreas Huhn:
Hey super! Danke Axel! Endlich funktioniert das einfügen so wie es sein sollte.

Die Funktionalität ist jetzt absolut da und das ist das wichtigste. Wenns jetzt ohne große Umstände möglich ist dem Text noch eine Farbe zu geben dann wär das die Krönung. Sollte das mit viel Umstandskramerei verbunden sein dann vergess ich es wieder. Die fetten Zeilen zeigen wie ich mir das zusammengebastelt hätte. Aber der Text ist trotzdem immer schwarz.

Wie gesagt, wenns zu kompliziert ist sags einfach dann werd ichs vergessen.



Sub Click(Source As Button)
   Dim wksp As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument, uidocNew As NotesUIDocument
   Dim doc As NotesDocument
   Dim rti As NotesRichTextItem
   Dim rtnav As NotesRichTextNavigator
   Dim bolEditMode As Boolean
   Dim Message As String
   Dim sess As New NotesSession
   Dim strL As Integer
   Dim UserN As String
   
   
   Set uidoc = wksp.CurrentDocument
   bolEditMode = uidoc.EditMode
   If bolEditMode Then Call uidoc.Refresh (True) ' do this if the rich text field is editable, to get the current contents in case user has modified them.
   
   Set doc = uidoc.Document
   
   strL= Len(sess.UserName)-21
   UserN = Right( Left(sess.UserName , 3+strL) , strL)
   Message = Inputbox$( "Text für den neuen Statuseintrag:" , "neue Statusmeldung"  )
   Message = "< " & Now & " / " & UserN & " >  " & Message
   
   Set rti = doc.GetFirstItem("rtTest")
   Set rtnav = rti.CreateNavigator
   

   Dim richStyle As NotesRichTextStyle
   Set richStyle = sess.CreateRichTextStyle
   richStyle.NotesColor = COLOR_RED
   Call rti.AppendStyle(richStyle)

   
   If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
      
      Call rti.BeginInsert(rtnav)
      Call rti.AppendText( Message )
      Call rti.AddNewLine( 2 )
      Call rti.EndInsert
   Else
      Call rti.AddNewLine( 1 )
      Call rti.AppendText( Message )
   End If
   
   Call rti.Update ' ND6 only
   If Not bolEditMode Then Call doc.Save(True, False)
   
   doc.SaveOptions = "0" ' make it possible to close the document without a "do you want to save" prompt.
   Call uidoc.Close(True)
   Set uidocNew = wksp.EditDocument(bolEditMode, doc, , , , True)
   Delete uidoc
   uidocNew.Document.RemoveItem("SaveOptions")
   
End Sub

koehlerbv:
Den RichtextStyle hängst Du jetzt aber wieder an das Ende des RichTextItems an ...

Bernhard

Andreas Huhn:
Okay, habs hingekriegt.

Danke Bernhard. Und ein ganz besonders großes Danke an Axel für seine Geduld!

Viele Grüße,

Andreas

Axel:

--- Zitat von: Andreas Huhn am 09.11.05 - 12:50:10 ---Und ein ganz besonders großes Danke an Axel für seine Geduld!

--- Ende Zitat ---

Kein Problem. Ich helfe gerne.

Ich weiß wie es mir damals erging, als ich mit Notes angefangen habe. Ein Forum wie dieses hätte mir manch graues Haar erspart und in der Anfangszeit gab es in der Firma nicht mal einen Internetzugang. Ich war nur auf die Hilfe angewiesen, da auch entsprechende Bücher Mangelware waren.

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete