LOTUSSCRIPT/COM/OLE CLASSES

Examples: SetTabs method
This example sets tabs at a regular interval in a rich text paragraph style object.

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue("From", session.UserName)
Call doc.AppendItemValue("Subject", _
"Meeting time changed")
Dim rtpStyle As NotesRichTextParagraphStyle
Dim pos As Long
Dim interval As Long
Set rtpStyle = session.CreateRichTextParagraphStyle
pos = RULER_ONE_INCH
interval = RULER_ONE_CENTIMETER
Call rtpStyle.SetTabs(3, pos, interval, TAB_DECIMAL)
Dim richText As New NotesRichTextItem(doc, "Body")
Call richText.AppendParagraphStyle(rtpStyle)
Call richText.AddTab(1)
Call richText.AppendText("One")
Call richText.AddTab(1)
Call richText.AppendText("Two")
Call richText.AddTab(1)
Call richText.AppendText("Three")
Call doc.Save(True, False)

Véase también

Glosario
¿Desea opinar sobre la Ayuda o sobre la utilidad del producto?