文書を編集モードにする(NotesUIDocument クラス)

Sub Initialize
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim askme As Integer
	Dim editmode As Boolean	
	Set uidoc = ws.CurrentDocument
	editmode = uidoc.EditMode
	If editmode Then
		askme = ws.Prompt(PROMPT_OK, "結果", "既に編集モードです。")
	Else
		uidoc.EditMode = True
	End If
End Sub





LotusScript 入門 Step2-4 NotesUIDocument

3行目 NotesUIDocument クラスの変数 uidoc を宣言
5行目 現在の文書のモード(編集/読み込み)を格納する変数 editmode を宣言(Boolean 型)
6行目 NotesUIWorkspace クラスの CurrentDocument プロパティから現在の文書を取得、変数 uidoc に格納。戻り値は NotesUIDocument オブジェクトであることに注意
7行目 NotesUIDocument クラスの EditMode プロパティから現在の文書が編集モードであるかどうかを取得、変数 editmode へ格納(編集モード: True, 読み込みモード: False)
8行目 変数 editmode によって、処理を分岐
9行目 現在開いている文書が編集モードの場合、ダイアログボックス(タイプ: PROMPT_OK)を表示
11行目 現在開いている文書が読み込みモードの場合、EditMode プロパティへ True を設定して、編集モードに変更

※ 文書を開いた状態で実行すること

LotusScript
tyoshida
April 29, 2018 at 12:18 PM
Rating
0





No comments yetLogin first to comment...