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

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

2008年11月18日火曜日

ビューに表示させないようにしてしまう

今日はちょっと変わったプロパティを紹介しよう。

ある特定のアイテム(文書に格納されているフィールドのこと)をビューに表示させたり、表示させないようにしたりするものである。
NotesItemクラスのIsSummaryプロパティにTrueもしくはFalseをセットすることで実現できるのだ。
Falseをセットすると、この「アイテム」はビューには表示されなくなる。
ただし、文書そのものが表示されなくなるわけではないので注意してほしい。

サンプルは、自文書のSubjectアイテムをビューに表示させないようにするというものだ。
元に戻したい場合は、サンプルのitem.IsSummary = Falseitem.IsSummary = Trueに変更すれば良いだけである。
Sub Click(Source As Button)
    Dim uiws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim item As NotesItem

    '自文書の取得
    Set uidoc = uiws.CurrentDocument
    Set doc = uidoc.Document
    Set item = doc.GetFirstItem( "Subject" )

    'ビューへの表示を許可しないにする
    item.IsSummary = False
    Call doc.Save( True, True )
End Sub




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

0 件のコメント: