HSPTV!掲示板

setWindowLongを用いてトグルボタンを作成しました。
一度押して潰した状態の時にResetボタンを押した時、自動で元に戻る（潰れてない状態にする）には
どうしたらいいでしょうか？

ご教授お願い致します。

//	トグルボタン作成サンプルソース２ (by Kpan)
//	button命令を利用した手法

#include "user32.as"


	string = "ON", "OFF"
	button gosub "OFF", *jump
	SetWindowLong objinfo(stat, 2), -16, $50000003 | $1000
	
	
	button gosub "Reset",*reset
stop


*jump
	objprm 0, string.value

	value ^ 1

	title ""+value
stop
	
*reset
	// へこんだボタンを戻したい
return

※このスクリプトにはKpanさんのソースを参考にさせて頂きました。

こんな感じかの？

//	トグルボタン作成サンプルソース２ (by Kpan)
//	button命令を利用した手法

#include "user32.as"
#define BM_SETCHECK 0x00F1
#define BST_UNCHECKED 	0
#define BST_CHECKED		1

	string = "ON", "OFF"
	button gosub "OFF", *jump
	SetWindowLong objinfo(stat, 2), -16, $50000003 | $1000
		
	button gosub "Reset",*reset
stop


*jump
	objprm 0, string.value

	value ^ 1

	title ""+value
stop
	
*reset
	objprm 0, string.1
	value = 0
	sendmsg objinfo(0,2),BM_SETCHECK,BST_UNCHECKED,0
return

MillkeySoftw　さま

助かりました、ありがとうございます！