LOTUSSCRIPT /COM/OLE のクラス
例:Views プロパティ
1. 次のスクリプトは現在のデータベースのすべてのビューとフォルダの名前を表示します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim views As Variant
Set db = session.CurrentDatabase
views = db.Views
Forall v In views
Messagebox( v.Name )
End Forall
End Sub
2. 次のスクリプトは Views プロパティを使用して現在のデータベースのデフォルトのビューを検索し、view オブジェクトに割り当てます。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim views As Variant
Set db = session.CurrentDatabase
views = db.Views
Forall v In views
If v.IsDefaultView Then
Set view = v
Exit Forall
End If
End Forall
If view Is Nothing Then
Messagebox "",, "No default view"
Else
Messagebox view.Name,, "Default view"
End If
End Sub
関連項目
Views プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集