HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2017
0513
DoubleQuote潰れたトグルボタンを元に戻したい2解決


DoubleQuote

リンク

2017/5/13(Sat) 10:41:41|NO.79722

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

ご教授お願い致します。


// トグルボタン作成サンプルソース2 (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さんのソースを参考にさせて頂きました。



この記事に返信する


MillkeySoftw

リンク

2017/5/13(Sat) 11:29:10|NO.79726

こんな感じかの?

// トグルボタン作成サンプルソース2 (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



DoubleQuote

リンク

2017/5/13(Sat) 13:53:27|NO.79730

MillkeySoftw さま

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



ONION software Copyright 1997-2021(c) All rights reserved.