素人の俺にHSPで経営シミュを作らせるスレ

素人の俺にHSPで経営� ..

271:名前は開発中のものです。
07/03/04 13:20:30 Id4kEYzY.net
>>265
イメージボタンにする場合は、ボタン押下判定用のモジュール作ってやらないと死ねるかも。
ちなみにHSP3.0だとこんな感じ。

#module
　#const MAXBUTTON 128
　#const NO_PUSH -1
　dim btnpos, MAXBUTTON, 4;
　btncount = 0;
　//ボタンクリア
　#deffunc init_imgbtn
　　btncount = 0;
　　return
　//ボタン登録　戻り値：登録No.
　#defcfunc add_imgbtn int x, int y, int x2, int y2
　　btnpos.btncount.0 = x;
　　btnpos.btncount.1 = y;
　　btnpos.btncount.2 = x2;
　　btnpos.btncount.3 = y2;
　　result = btncount;
　　btncount = btncount + 1;
　　return result;
　//ボタン押下チェック　戻り値：登録No. or -1
　#defcfunc chk_pushbtn int mx, int my
　　for i,0,btncount,1
　　　if (mx>btnpos.i.0)&(mx<btnpos.i.2)&(my>btnpos.i.1)&(my<btnpos.i.3) {
　　　　return i; //押された
　　　}
　　next
　　return NO_PUSH; //押されてない
#global //（続く↓）

次ページ

続きを表示

1を表示