当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。

テクてく Lotus 技術者 Slack に参加しよう!

2009年1月22日木曜日

リッチテキストで文字の効果を変更する

まだ8.5が使い慣れないので、紹介できません。ごめんなさい。
ということで、今日もサンプルプログラムです。

リッチテキストフィールドに文字を追記する方法です。
せっかくリッチテキストフィールドに文字を追記するのだから、フォントの種類を変更してみたいですね。
そういうときに使うのが、NotesRichTextStyleクラスです。
このクラスのプロパティをセットすることで、この後に追加した文字がそのように変わってくれるのです。

サンプルは、自文書の返答文書を作成して、その中のリッチテキストフィールドに色々な文字列を追記しています。
サンプルでは、フォントの形を変えているだけですが、大きさや種類、色も変更することが出来ます。
詳細はデザイナーヘルプを見てください。

※なお、リッチテキストフィールドは文書を保存しないと有効にならないので、このような形のサンプルになっています。気をつけてください。

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim uiws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim resdoc As NotesDocument
    Dim resritem As NotesRichTextItem
    Dim rstyle As NotesRichTextStyle
    
    '自文書の返答文書を作成する
    Set db = session.CurrentDatabase
    Set uidoc = uiws.CurrentDocument
    Set doc = uidoc.Document
    Set resdoc = db.CreateDocument
    Call resdoc.MakeResponse( doc )
    
    '返答文書にフォーム情報を与える
    resdoc.Form = "Response"
    resdoc.SUbject = "バックグラウンドで作成した文書"
    Call resdoc.ComputewithForm( True, False )
    
    '返答文書内のリッチテキストフィールドを使用する
    Set resritem = New NotesRichTextItem( resdoc, "Body" )
    
    'リッチテキストフィールドで使用するスタイルを呼び出す
    Set rstyle = session.CreateRichTextStyle
    
    '太文字で文字を追記する
    rstyle.Bold = True
    Call resritem.AppendStyle( rstyle )
    Call resritem.AppendText( "ここは太文字" )
    
    '改行する
    Call resritem.AddNewLine(1)
    
    '標準文字で追記する
    rstyle.Bold = False
    Call resritem.AppendStyle( rstyle )
    Call resritem.AppendText( "ここは標準文字" )
    
    '改行する
    Call resritem.AddNewLine(1)
    
    '斜体字で追記する
    rstyle.Italic = True
    Call resritem.AppendStyle( rstyle )
    Call resritem.AppendText( "ここは斜体字" )
    
    '文書を保存する
    Call resdoc.Save( True, True )
    
    Msgbox "文書を保存しました。ビューを更新してください。", 0, "リッチテキストで文字の効果を変更する"
End Sub




Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: