LOTUSSCRIPT /COM/OLE のクラス
例:ビューナビゲータを作成する
1. 次の例では、ビューナビゲータを作成して MaxLevel プロパティを表示します。
Sub Intialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim nav As NotesViewNavigator
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set nav = view.CreateViewNav()
Messagebox nav.MaxLevel
End Sub
2. 次の例では、指定のカテゴリに属する全エントリ用にビューナビゲータを作成し、先頭のエントリを取り出します。
Sub Intialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim nav As NotesViewNavigator
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set nav = view.CreateViewNavFromCategory("Employees")
Call nav.GetFirst
End Sub
3. 次の例では、指定のビューエントリに直属の子エントリ用にビューナビゲータを作成します。
Sub Intialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim nav As NotesViewNavigator
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set entry = view.GetEntryByKey("Employees")
Set doc = entry.Document
Set nav = view.CreateViewNavFromChildren(doc)
End Sub
関連項目
ビューナビゲータを作成する
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集