2

Lotusscript でセクションのスタイルを設定する方法はありますか? ロータス ノートの履歴を含む返信で使用されるタイプのセクションを模倣したいと思います。

ロータス スクリプトの使用

  1. セクションが左端に表示されるようにマージンを設定します。

  2. 履歴の返信で使用される「表のような」セクション タイトルとして表示されるように、セクション スタイルを設定します。

色、フォントなどを設定する方法はわかりますが、セクションの実際のスタイルを設定する方法はわかりません。

4

2 に答える 2

1

あなたのプロフィールを見ると、あなたはすでに Xpages に精通しています。

アプリがそれほど複雑でない場合は、Xpages を使用します。トラッドよりもスタイリングしやすいので。メモアプリ。私にとってはそうです。

これは、メモにセクションを作成する lotusscript の例です。作成しているアプリの種類と、プラットフォーム、ノート、Web、またはその両方がわからないためです。

パーを壊すのは、メールファイルをメモフォームに使用し、セクションとテキストをメール本文に配置する例です

ここにコードがあります

   Sub Initialize
   Dim session As New NotesSession
   Dim mailDb As New NotesDatabase("", "")
   Dim ws As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim body As NotesRichTextItem
   Dim style As NotesRichTextStyle
   Dim color As NotesColorObject

   Call mailDb.OpenMail
   Set doc = mailDb.CreateDocument
   Call doc.ReplaceItemValue("Form", "Memo")
   Set body = doc.CreateRichTextItem("Body")
   Set style = session.CreateRichTextStyle
   Set color = session.CreateColorObject
   Call body.AppendText("This is some text before the section")
   Call body.AddNewline(2)
   Call body.BeginSection("Expanded Section", style, color, True)
   Call body.AppendText("Here is some text within the section")
   Call body.AddNewline(2)
   Call body.AppendText("Here is some more text within the section")
   Call body.EndSection
   Call body.AddNewline(2)
   Call body.AppendText("This is some text between the two sections")
   Call body.AddNewline(2)
   Call body.BeginSection("Collapsed Section")
   Call body.AppendText("Here is some text within the section")
   Call body.AddNewline(2)
   Call body.AppendText("Here is some more text within the section")
   Call body.EndSection
   Call body.AddNewline(2)
   Call body.AppendText("This is some text after the section")
   Call doc.Save(True, False, False)
   Call ws.EditDocument(True, doc)
   Call doc.Remove(True)
End Sub

完全を期すために、xpage から lotusscript エージェントを呼び出す方法のチュートリアルを次に示し ます 。

編集:メモ クライアントで css と html に関する調査が行われたことを思い出しました。

于 2012-07-22T07:47:18.667 に答える
1

これを達成できる唯一の方法は、DXL を使用することだと思います。つまり、必要なスタイルのセクションを含むドキュメントの DXL エクスポートを実行します。カスタマイズする必要のあるもの (タイトルなど) を変更した同じ DXL を生成するコードを記述し、それを新しいドキュメントにインポートします。次に、この新しいドキュメントを開くコードを記述し、セクションを含むリッチ テキスト アイテムを読み取り、AppendRTItem を使用して作業中のドキュメントにドロップします。

于 2012-07-18T15:41:43.150 に答える