Autor Thema: Per LotusScript auf Section in einer Form zugreifen?  (Gelesen 1674 mal)

Offline MonsterX

  • Frischling
  • *
  • Beiträge: 13
Hallo,

Ich arbeite hier mit einem Form, in dem sich zwei auf- und zuklappbare Sections befinden. Der Titel der Sections ist abhängig von einem Feld innerhalb des Formulars. Wie kann ich nun auf die Section zugreifen und den Titel ändern?

Gruß,
Denis

Offline DerAndre

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.655
  • Geschlecht: Männlich
  • Keep cool!
Re: Per LotusScript auf Section in einer Form zugreifen?
« Antwort #1 am: 14.09.07 - 13:25:30 »
Schau mal in der Hilfe nach

Working with sections in LotusScript classes
André

Elterninitiative diabetischer Kinder und Jugendlicher e.V.
-----------------------------------------------------------------------------
Fliegen ist die Kunst auf den Boden zu Fallen, aber daneben.
-----------------------------------------------------------------------------
Etwas mehr Hardware dazu zu kaufen ist viel billiger als
Software besser zu machen. ( Niklaus Wirth )

Offline MonsterX

  • Frischling
  • *
  • Beiträge: 13
Re: Per LotusScript auf Section in einer Form zugreifen?
« Antwort #2 am: 14.09.07 - 13:52:21 »
Ich glaube da bin ich sogar mal drüber gestolpert. Aber das mit dem Body-Item (doc.GetFirstItem("Body")) verstehe ich nicht ganz. Muss meine Section innerhalb eines anderen Elements namens Body liegen oder wie darf ich das verstehen? Wenn ich den Code verwende, sagt mir der Debugger, dass er das Objekt nicht kennt.

Code
Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim dc As NotesDocumentCollection
  Set dc = db.UnprocessedDocuments
  Dim doc As NotesDocument
  Set doc = dc.GetFirstDocument
  Dim rti As NotesRichTextItem
  Set rti = doc.GetFirstItem("Body")
  Dim rtnav As NotesRichTextNavigator
  Set rtnav = rti.CreateNavigator
  If Not rtnav.FindFirstElement(RTELEM_TYPE_SECTION) Then
    Messagebox "Body item does not contain a section,",, "Error"
    Exit Sub
  End If
  Dim rts As NotesRichTextSection
  Do
    Set rts = rtnav.GetElement
    Messagebox "Bar color = " & rts.BarColor.NotesColor & Chr(13) & _
    "Is expanded = " & rts.IsExpanded & Chr(13) & _
    "Title style font = " & rts.TitleStyle.NotesFont _
    ,, rts.Title
  Loop While rtnav.FindNextElement(RTELEM_TYPE_SECTION, 1)
End Sub

PS: Ich bin Lotus-Neuling, also habt Verständnis für meine Anfänger-Fragen :-)

Offline MonsterX

  • Frischling
  • *
  • Beiträge: 13
Re: Per LotusScript auf Section in einer Form zugreifen?
« Antwort #3 am: 14.09.07 - 14:41:06 »
Ok, das Problem ist aktuell, dass ich nicht weiß, wie man das aktuelle angezeigte Form als Objekt bekommt. Kann mir da jemand auf die Sprünge helfen?

botschi

  • Gast
Re: Per LotusScript auf Section in einer Form zugreifen?
« Antwort #4 am: 14.09.07 - 14:58:51 »
Vielleicht meinst Du das FrontendDokument?

Was willst Du von der Form? In Deinem Beispiel ist "body" ein RichTextItem, dieses hat wiederum Methoden (z.B. RichTextNavigator) mit denen Du vielleicht zu Deinem Ziel kommst.


Matthias

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz