HSPTV!掲示板

	

a = ""
	
#uselib "user32"
#func ShowScrollBar "ShowScrollBar" int, int, int

#define SB_HORZ 0	


	mesbox a, 630, 400, 1,9000
	ShowScrollBar objinfo (stat, 2), SB_HORZ, 0

	button "開く", *load
	pos 65,420
	stop



*load
	dialog "txt", 16, "テキスト"
	if stat = 0 : stop

	notesel a
	noteload refstr

	objprm 0, a
	objprm 1, a

	stop

↑のようにやると、ボタンがおかしくなってしまいます
どこがおかしいのでしょうか？
教えてください

objprm 1,a

でボタンの内容を書き換えてしまっているのが原因です。
内容を書き換えたいものだけをobjprmで書き換えればいいのです。

*load
	dialog "txt", 16, "テキスト"
	if stat = 0 : stop

	notesel a
	noteload refstr

	objprm 0, a
	objprm 1, a :;←ここ？

	stop