【目指せ】HSP初質52【コンテスト参加賞】
■ このスレッドは過去ログ倉庫に格納されています
0373デフォルトの名無しさん
2006/11/05(日) 04:38:52Sendmsgを使ったソースコード
ListMenu="りんご\nごりら\nらっぱ\nぱんつ"
listbox list,60,ListMenu
boxmenu="";//文字列変数作成
mesbox boxmenu,100,25,1;//メッセージボックス作成
hList=objinfo(stat,2);//メッセージボックスのハンドル(ウィンドウズが認識できるIDみたいなもの)を取得
repeat;//メインループ
if list!listcopy:{;//listboxの選択が変わると{から}までをを実行
notesel ListMenu
noteget Hen1,list;//選択されたlistBoxの内容を読み出し
sendmsg hList, $C,, Hen1;//ListBoxの内容を変更(ObjPrmより高速に変更可能)
}
listcopy=list;///ListBoxの内容が変更されたかを取得するための変数のコピー
wait 10;///これを入れないとウィンドウメッセージを取得できずフリーズしてしまう。
loop;///メインループ終了
stop
■ このスレッドは過去ログ倉庫に格納されています