Domino 9 und frühere Versionen > ND8: Entwicklung

"Infobrief-Zusammenfassung senden" - als LS ?

<< < (5/7) > >>

koehlerbv:

--- Zitat von: Bruce Willis am 16.04.10 - 23:36:55 ---Oh Mann, Bernhard, Du ließt also doch aufmerksam alles was ich schreibe... ;)

--- Ende Zitat ---

Aber Du nicht, was ich schreibe ...

Bernhard

Bruce Willis:

--- Zitat von: koehlerbv am 16.04.10 - 23:21:25 ---
Setze jeden Tab, den Du haben willst:
Call notesRichTextParagraphStyle.SetTab (3 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (5,5 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (7,85 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (11 * RULER_ONE_CENTIMETER, TAB_LEFT)


--- Ende Zitat ---

Funktioniert nicht:

1. Die Zahlen mit Komma bringen Fehlermeldungen.

2. Die Spaltenbreiten sind gleich:

   
   Dim rtpStyle As NotesRichTextParagraphStyle   
   Set rtpStyle = session.CreateRichTextParagraphStyle
   
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddNewLine( 1)
   Call rtitem.AppendText( "titel1")
   Call rtpstyle.SetTab (13 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "titel2")
   Call rtpstyle.SetTab (18 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "titel3")
   Call rtpstyle.SetTab (25 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "titel4")
   Call rtpstyle.SetTab (35 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "titel5")
   Call rtitem.AddNewLine( 2)

Bruce Willis:
Und die andere Reihenfolge funktioniert auch nicht:

Dim rtpStyle As NotesRichTextParagraphStyle   
   Set rtpStyle = session.CreateRichTextParagraphStyle
   
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddNewLine( 1)
   Call rtitem.AppendText( "titel1")
   Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (8 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendText( "titel2")
   Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (18 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendText( "titel3")
   Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (20 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendText( "titel4")
   Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (30 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendText( "titel5")
   Call rtitem.AddNewLine( 2)

koehlerbv:
1) Ersetze das Komma durch den Punkt. Ich hatte die falsche Notation gewählt.

2) Wo ist Dein NotesRichText.AppendParagraphStyle ? Du weist den Style doch gar nicht dem RT-Paragraph zu!

Bernhard

Bruce Willis:
Danke, Bernhard.

Funktioniert trotzdem nicht :(

Ob mit "'Call rtitem.AddTab(1)" oder auch ohne:


   Dim rtpStyle As NotesRichTextParagraphStyle   
   Set rtpStyle = session.CreateRichTextParagraphStyle
   
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddNewLine( 1)
   
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel1")
   'Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (6 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel2")
   'Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (12 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel3")
   'Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (20 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel4")
   'Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (23 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel5")
   
   Call rtitem.AddNewLine( 2)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete