LOTUSSCRIPT /COM/OLE のクラス

例:View プロパティ
次のビューアクションは、現在のビューのプロパティを一部表示します。

Sub Click(Source As Button)
 Dim ws As New NotesUIWorkspace
 Dim uiview As NotesUIView
 Dim view As NotesView
 Dim msg As String
 Set uiview = ws.CurrentView
 Set view = uiview.View
 If view.IsCategorized Then
   msg = "Categorized view" & Chr(13)
 Else
   msg = "Not categorized" & Chr(13)
 End If
 If view.IsDefaultView Then
   msg = msg & "Default view" & Chr(13)
 Else
   msg = msg & "Not the default view" & Chr(13)
 End If
 msg = msg & "Last modified:" & view.LastModified
 Messagebox msg,, uiview.ViewName
End Sub

関連項目