HSPTV!掲示板

カレンダーで前月と次月ボタンを押したときの状態変化をリアルタイムで感知する方法
がわかりません。

-----------------------------------------------------------------------------------

pos 5,22
objsize 370
objmode 2
sdim listboxtext,1000
listbox list, 400,listboxtext
hListbox = objinfo(stat, 2)

//カレンダー
pos 385,22
winobj "sysmonthcal32", "", , $50000000 | $10, 218, 167
hMonthcal = objinfo(stat, 2)
dim SYSTEMTIME, 4
sendmsg hMonthcal, $1001, , varptr(SYSTEMTIME)
sendmsg hMonthcal, $1002, , varptr(SYSTEMTIME)

sql_q "SELECT * FROM [ログテーブル]"
count = stat
lst=-1

repeat count
if wpeek(SYSTEMTIME, 2)=sql_v("日時"){
listboxtext +="名前：" + sql_v("名前") +" 項目：" + sql_v("項目") + " 金額：" + sql_v("金額") + "円\n"
sum += sql_v("金額")

list_ids(cnt) = sql_i("ID")
if list=sql_i("ID") : lst=cnt
}
if wpeek(SYSTEMTIME, 2)!=sql_v("日時") : listboxtext += ""
sql_next
loop
objprm 0,listboxtext
-----------------------------------------------------------------------------------

次月ボタンを押したりするとリストボックスの中身を変化させたいのですが

現状ではスクリプトの実行に必要な記述が足りなく動作確認も出来ない状態ですので
最低限そのままで実行が可能な状態のスクリプトを提示してもらえると
解決への近道になると思います。

カレンダーコントロールの状態取得については
『カレンダーコントロール HSP』等で検索するとサンプルが見つかります。

実行できないんですけどこれ…

追記

これは全体の一部です。
-----------------------------------------------------------------------------------

//変数群
name=""
money=""
curid=-1
kensaku=""
*syokika
kind=0
sql_q "CREATE TABLE IF NOT EXISTS [ログテーブル] (ID INTEGER PRIMARY KEY, [名前],[項目],[金額],[日時])"

//sql_q "SELECT * FROM [ログテーブル]"

pos 5,22
objsize 370
objmode 2
sdim listboxtext,1000
listbox list, 400,listboxtext
hListbox = objinfo(stat, 2)

//カレンダー
oncmd gosub *notify, $4E
pos 385,22
winobj "sysmonthcal32", "", , $50000000 | $10, 218, 167
hMonthcal = objinfo(stat, 2)
dim SYSTEMTIME, 4
sendmsg hMonthcal, $1001, , varptr(SYSTEMTIME)
sendmsg hMonthcal, $1002, , varptr(SYSTEMTIME)

*notifydupptr
NMHDR, lparam, 12

sql_q "SELECT * FROM [ログテーブル]"
count = stat
lst=-1
if NMHDR.2 = -749 {　←
dupptr NMSELCHANGE, lparam, 20

repeat count
if wpeek(SYSTEMTIME, 2)=sql_v("日時"){
listboxtext +="名前：" + sql_v("名前") +" 項目：" + sql_v("項目") + " 金額：" + sql_v("金額") + "円\n"
sum += sql_v("金額")

list_ids(cnt) = sql_i("ID")
if list=sql_i("ID") : lst=cnt
}
if wpeek(SYSTEMTIME, 2)!=sql_v("日時") : listboxtext += ""
sql_next
loop
objprm 0,listboxtext
}

-----------------------------------------------------------------------------------

←の部分で「配列の要素が無効です。」とでてしまいます。

>NMHDR, lparam, 12
これが何なのか知らんが、ひょっとして命令と配列変数をごちゃまぜにしてやいないかね
命令なら後で.2とかやっても配列じゃないんでエラー返すのは当たり前なんだけども
コメントはちゃんと;とかつけて示してくださいな

後、スクリプトは

〜

で囲むこと

↑訂正
preタグで囲むこと。

てかこの掲示板、なんでエンティティでpreタグごまかしてもそのままタグとして認識してしまうのかな

「NMHDR, lparam, 12」の部分は
「dupptr NMHDR, lparam, 12」ではないでしょうか？（＾＾；

まあ、

http://lhsp.s206.xrea.com/hsp_object9.html

ここを見る限り

*notify
	dupptr NMHDR, lparam, 12

なんだろうな。

とりあえず

「なんでstopを消した？」

と言ってみるテスト。

サンプルスクリプトを改変する時はキチンと仕組みを理解してからにしましょうって事ですかね。

皆々様のオフェンシブな書き込みが削除されず、何であちしの書き込みだけが
有無を言わさず削除されるのかしら。

>次月ボタンを押したりするとリストボックスの中身を変化させたい
ボタンを押した時のジャンプ先に
「リストボックスの中身を変化させる」コードを書けばよいのでは？