LOTUSSCRIPT /COM/OLE のクラス

例:ViewInheritedFrom プロパティ
次のエージェントは、現在のビューで継承された名前を表示します。

Sub Initialize
 Dim ws As New NotesUIWorkspace
 Dim uiview As NotesUIView
 Set uiview = ws.CurrentView
 vif$ = uiview.ViewInheritedFrom
 If vif$ = "" Then vif$ = "None"
 Messagebox "Inherited from = " & vif$,, uiview.ViewName
End Sub

関連項目