HSPTV!掲示板

チェックボックスにチェックが入ると最大化、ないと通常の状態で、テキストに保存されて次回起動させてもテキスト通りになるようにしたいのです。

#include "user32.as"
	screen 0, ginfo(20)-30, ginfo(21)-30
	GetWindowLong hwnd, -16
	SetWindowLong hwnd, -16, stat | $10000 | $40000
notesel buf
noteload "setting.txt"
sdim saidaika2 , 1
noteget sidaika2 , 21
if int(saidaika) = 0 : width 600,600
if int(saidaika) = 1 : sendmsg hwnd,$112, $F030

*test
chkbox "test" , saidaika
button "", *test2
stop

*test2
notesel buf
noteload "setting.txt"
noteadd str(saidaika) , 21, 1
goto *test3

*test3
notesel buf
noteload "setting.txt"
sdim saidaika2 , 1
noteget sidaika2 , 21
if int(saidaika) = 1 : 	sendmsg hwnd, $112, $F030
goto *test4

*test4
stop

どこを修正すればいいのでしょう。教えてください。

設定を変更したら、setting.txt に変更を保存しなければいけませんね。

ご参考。

#include "user32.as"
  screen 0,ginfo_dispx,ginfo_dispy,,,,640,480
  GetWindowLong hwnd, -16
  SetWindowLong hwnd, -16, stat | $10000
  exist "setting.txt"
  if (strsize != -1) {bload "setting.txt",saidaika}
  chkbox "test", saidaika
  oncmd gosub *syscommand, $112
  onexit *close
;タイマーで1秒間隔でsaidaikaをチェック
  Settimer hwnd,100,1000,0
  oncmd gosub *timer, $113
/*
;無限ループでsaidaikaをチェック
  repeat
      if (saidaika) {ShowWindow hwnd,3}else {ShowWindow hwnd ,1}
      await 
  loop
*/
  stop
*timer
      if (saidaika) {ShowWindow hwnd,3}else {ShowWindow hwnd ,1}
return
*syscommand
  if (wparam == $F120) or (wparam == $F030) {saidaika = saidaika^1 :objprm 0,saidaika}
return
*close
  bsave "setting.txt",saidaika
  end