BASICで画像のx,y座標の取得方法について
Active Basicでプログラムを書いています。
今、簡単なゲームを作ってみようと思い、プログラムを書いているのですが、画像の座標の取得の部分で躓いてしました。
画像Aに画像Bが触れたときに『アウト』とメッセージを出す、簡単な、物を避けるゲームなのですが、グローバルで、
Dim BombRect As RECT
Dim HitoRect As RECT
を定義して、画像が重なったかどうかを判定するときに、
GetWindowRect(hBmp04,BombRect)
GetWindowRect(hBmp01,HitoRect)
で、読み込もうとしましたが、座標が格納されてくれません。
hBmp01とhBmp04には、下のようにして画像を読み込みました。
'グローバル
Dim hBmp01 As HWND
Dim hBmp02 As HWND
Dim hBmp03 As HWND
Dim hBmp04 As HWND
'ウインドウ作成時
hBmp01 = LoadImage(0,".\画像\人\普通.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
hBmp02 = LoadImage(0,".\画像\人\右.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
hBmp03 = LoadImage(0,".\画像\人\左.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
hBmp04 = LoadImage(0,".\画像\爆弾\ボム.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
もし、やり方をご存知の方がいらっしゃいましたら、すみませんが、ご教授お願いします。
また、もっと簡単な方法がありましたら、そちらも教えていただけると嬉しいです。
お礼
回答ありがとうございます。