ダイアログボックスを表示(NotesUIWorkspace)

Sub Initialize
	Dim ws As New NotesUIWorkspace
	Dim askme As Integer
	askme = ws.Prompt (PROMPT_YESNO, "タイトル", "処理を実行しますか?")
	If askme = 1 Then
		Print "処理を実行しました。"
	Else
		Print "処理をキャンセルしました。"
	End If
End Sub





LotusScript 入門 Step2-1 NotesUIWorkspace

2行目 現在のワークスペースのウィンドウにアクセスして変数 ws に格納。New を使用するのを忘れないように注意
3行目 ダイアログボックスでのユーザーの選択結果を格納する変数 askme を宣言(Integer 型)
4行目 NotesUIWorkspace クラスの Prompt メソッドを使用して、ダイアログボックスを表示。第1引数は、ダイアログボックスのタイプ(種類)の指定。今回は、はい/いいえ(Yes/No)ボタンがある PROMPT_YESNO タイプを指定。第2引数は、タイトルバーに表示する文字列を指定。第3引数は、表示する文字列を指定。ダイアログボックスでのユーザーの選択結果は、変数 askme へ格納。ユーザーがはい(Yes)を選択した場合、askme = 1、いいえ(No)を選択した場合、askme = 0
5行目 変数 askme によって、処理を分岐

※ 式言語の @Prompt に相当
※ ダイアログボックスを表示する方法は、この他に MessageBox 関数とステートメント、NotesUIWorkspace クラスの DialogBox メソッドがある

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





No comments yetLogin first to comment...