ビューの名前を取得（NotesView）

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Set db = session.Currentdatabase
	Set view = db.GetView("vwAll")
	Print view.Name
End Sub





LotusScript 入門 Step1-3 NotesView

4行目 NotesView クラスの変数 view を宣言
6行目 NotesDatabase クラスの GetView メソッドからビュー（別名：vwAll）を取得、変数 view に格納。その際、Set ステートメントを使用
7行目 NotesView クラスの Name プロパティからビューの名前を取得。Print ステートメントを使って、名前をクライアントのステータスバーに表示

LotusScript
tyoshida
April 28, 2018 at 5:28 PM
Rating
0





No comments yetLogin first to comment...