先ほどのNew Window()の例とこのDialog()の例を比較してみましょう。
dlg = Dialog(
Title( "Dialogの例" ),
H List(
V List(
"分析のパラメータ",
Lineup( 2,
"下側仕様限界", lsl = Edit Number( 230 ),
"上側仕様限界", usl = Edit Number( 340 ),
"閾値", threshold = Edit Number( 275 )
),
H List(
V List(
"ラジオの種類",
type = Radio Buttons( "RCA", "Matsushita", "Zenith", "Sony" )
),
V List(
"アンテナの種類",
antenna = Radio Buttons( "パラボラ", "へリカル", "極性",
"ラジアントアレイ" )
)
),
synch = Check Box( "放射同期", 0 ),
"グラフのタイトル",
title = Edit Text( "分析結果" ),
H List(
"品質",
quality = Combo Box( "最優良", "優良", "良", "可"
)
)
),
V List( Button( "OK" ), Button( "キャンセル" ) )
)
);
If( dlg["Button"] == 1,
Show(
"OK",
dlg["lsl"],
dlg["usl"],
dlg["threshold"],
dlg["type"],
dlg["antenna"],
dlg["synch"],
dlg["title"],
dlg["quality"]
),
Show( "Canceled" )
);
図11.38 New Windowの結果(左)とDialogの結果(右)
注: Dialog()と同様の結果を得るには、Return Resultを使用してください。例については、モーダルウィンドウを作成するを参照してください。