option explicit

dim obj
set obj = CreateObject("SeraphyScriptTools.Instance")

'---------------------------------------
' コントロールを管理するオブジェクト用
dim edt,medt,pedt
dim rd1,rd2,rd3
dim rp1,rp2,rp3
dim ck1,ck2,ck3
dim cmd1,cmd2

'---------------------------------------
' 初期設定とメイン処理
dim retcode
wscript.ConnectObject obj.mainframe, "event_"
with obj.mainframe
	.backcolor = "&HD0D0F0"
	.SetPlacement ,,,510
	with .form
		.label "ラベル"
		.statuslabel "ステータスラベル"+vbcrlf+"#2",,2
		set edt   = .edit("エデイットボックス")
		set medt =.edit("マルチエデイット",,3)
		.readonlyedit "読み込み専用"+vbcrlf+"改行あり"+vbcrlf+"改行あり"+vbcrlf+"<<END",,3
		set pedt = .passwordedit("PASSWORD")
		.controlbreak
		.controlpad ,10
		.label "ラジオボタン(&R)"
		.ControlGroup
		set rd1 =.radiobutton("排他的選択項目1").SetCheck
		set rd2 = .radiobutton("排他的選択項目2")
		set rd3 = .radiobutton("排他的選択項目3")
		.label "ボタン式ラジオボタン(&B)"
		.ControlGroup
		set rp1 = .pushradiobutton("選択A",4)
		set rp2 = .pushradiobutton("選択B",4)
		set rp3 = .pushradiobutton("選択C",4)
		.ControlBreak
		set ck1 = .checkbox("チェックボックス")
		set ck2 = .checkbox3state("スリーステートチェックボックス")
		set ck3 = .pushcheckbutton("プッシュボタンチェックボックス")
		.controlbreak
		.controlpad ,10
		set cmd1 = .button("文字の表示",6)
		set cmd2 = .button("状態の表示",6)
		.ControlPad 20
		.button("終了",4).SetID(1)
	end with
	.open "シンプルダイアログメンバー"
	retcode = .domodal
end with
wscript.disconnectobject obj.mainframe
obj.dialog.messagebox "リターンコード = " & retcode

'---------------------
' ハンドラ
sub event_OnCommand
	select case obj.mainframe.event.parameter
		case cmd1.id call show_edit
		case cmd2.id call show_checker
	end select
end sub

'---------------------
' 表示サブルーチン
sub show_edit
	dim mes
	mes = "エデイット = " & edt.text
	mes = mes & vbcrlf & "マルチエディット = " & medt.text
	mes = mes & vbcrlf &  "パスワード = " & pedt.text
	obj.dialog.messagebox mes
end sub

sub show_checker
	dim mes
	mes = "ラジオボタン" 
	mes = mes & vbcrlf & "1 = " & rd1.checkstate
	mes = mes & vbcrlf & "2 = " & rd2.checkstate
	mes = mes & vbcrlf & "3 = " & rd3.checkstate
	mes = mes & vbcrlf & "ラジオボタン2"
	mes = mes & vbcrlf & "A = " & rp1.checkstate
	mes = mes & vbcrlf & "B = " & rp2.checkstate
	mes = mes & vbcrlf & "C = " & rp3.checkstate
	mes = mes & vbcrlf & "チェックボックス"
	mes = mes & vbcrlf & "NORMAL = " & ck1.checkstate
	mes = mes & vbcrlf & "3STATE = " & ck2.checkstate
	mes = mes & vbcrlf & "PUSHCK = " & ck3.checkstate
	obj.dialog.messagebox mes
end sub