RichText und Tabellen

[bikerboy]

AHHHHHHHH  ich könnte gerade ins Essen brechen.....


Ich versuche hier gerade per selbst geschriebener Klasse Steuertexte im im RTFeld durch eine Tabelle zu ersetzen.

Hab das die Klasse dazu Etappenweise erstellt. ICh habe ein Funktion mit der Ich Tabellen erstelle und eine Funktion die Steuertexte sucht den Cursor dort hinsetzt und dann die Funktion zum erstellen der Tabelle aufruft.

Wie geht ihr bei sowas vor ?  Was sind so die Fettnäpchen in die man treten kann ?

[bikerboy]

Hier ein bisschen Code....

rtNavigator gehört zur Klasse und ist in beiden Funktionen verfügbar


Public Function createTable(_
   docInput As NotesUiDocument,_
   FieldName As String,_
   Typ As String,_
   Rows As Integer,_
   Colums As Integer)As NotesRichTextTable

....


   Call Me.rtItem.AppendTable(intRows,intColumns,,2.540 * TWIPS,rtpsStyle)
   
   If Me.rtNavigator Is Nothing Then
      Set Me.rtNavigator = Me.rtItem.Createnavigator
   End If
   
   Me.rtNavigator.GetLastElement(RTELEM_TYPE_TABLE)
   
   Set createTable = Me.rtNavigator.GetElement
      
End Function   ' createTable


Public Function Refresh(docTarget As NotesUIDocument,_
   strFieldName As String,_
   dbProduct As NotesDatabase)
      

...

If Me.rtNavigator.FindFirstString(strTag, RT_FIND_CASEINSENSITIVE) Then
   ' Position ist auf das Steuertag gesetzt
   ' Setzt eine Tabelle ein
   Call Me.rtNavigator.SetPosition(Me.createTable(docTarget,FLDRTITEM,docTarget.Document.GetItemValue("Art")(0), 0, 0))
   ' Füllen der Tabelle
   ' Focus in die erste Zelle setzen
   Me.rtNavigator.FindNextElement(RTELEM_TYPE_TABLECELL)
   Call Me.rtItem.BeginInsert(rtNavigator)
   ' Inhalt einfügen
   Call Me.rtItem.AppendText("Hipp Hipp Hurra")
   ' End der "Eingabe"
   Call Me.rtItem.EndInsert()
   Call Me.rtItem.Update()
End If

...

Call Me.rtItem.Compact()
   
End Function