LOTUSSCRIPT /COM/OLE のクラス
例:ビューやフォルダの列にアクセスする
1
次の例では、現在のデータベースにあるすべてのビューのすべての列のプロパティを出力します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim views As Variant
Dim columns As Variant
Set db = session.CurrentDatabase
REM view is a NotesView object
views = db.Views
Forall view In views
REM column is a NotesViewColumn object
columns = view.Columns
Forall column In columns
position = column.Position
title = column.Title
If title = "" Or title = " " Then
title = "<no title>"
End If
formu = column.Formula
Messagebox position & ", " _
& title & ", " & formu,, view.Name
End Forall
End Forall
End Sub
2 次の例では、データベースの [By Category] ビューのプロパティを表示します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Messagebox "Background color:" & view.BackgroundColor
Messagebox "Column Count:" & view.ColumnCount
Messagebox "Header Lines:" & view.HeaderLines
Messagebox "Row Lines:" & view.RowLines
Messagebox "Spacing:" & view.Spacing
Messagebox "Top Level Entries:" & view.TopLevelEntryCount
If view.IsCategorized Then
Messagebox "Categorized"
Else
Messagebox "Not Categorized"
End If
If view.IsConflict Then
Messagebox "Conflict enabled"
Else
Messagebox "Not conflict enabled"
End If
If view.IsHierarchical Then
Messagebox "Hierarchical"
Else
Messagebox "Not hierarchical"
End If
If view.IsModified Then
Messagebox "Modified"
Else
Messagebox "Not modified"
End If
End Sub
関連項目
ビューやフォルダの列にアクセスする
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集