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


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
0121
pigマウスをボタンの上にのせるとサウンドが鳴る2解決


pig

リンク

2007/1/21(Sun) 05:45:37|NO.4963

タイトルの通り、ボタンの上にマウスをのせるとサウンドを鳴らしたい
のですが、どうかご教授ください。
下のスクリのboxf 50,50,100,100はボタンです。この範囲内に入るとサ
ウンドは鳴るのですが、ボタンの上にマウスをのせると1回だけ鳴らす
ようにしたいのです。また、1回サウンドが鳴った後、範囲外に出てま
たボタンにマウスをのせても、また1回だけサウンドを鳴らすようにお
願いします。


#uselib "user32.dll" #func GetCursorPos "GetCursorPos" int #func ScreenToClient "ScreenToClient" int,int onexit *e screen 0,640,480,0 color 0,0,0 :boxf 50,50,100,100 dim point,2 *loops GetCursorPos varptr(point) ScreenToClient hWnd,varptr(point) if ((point(0)>=50)&(point(0)<=100)&(point(1)>=50)&(point(1)<=100)){ mmload "sample.wav",0,0 mmplay 0 } wait 10 goto *loops stop *e mci "close myid" : mmstop : end



この記事に返信する


YOYO

リンク

2007/1/21(Sun) 08:25:00|NO.4965

これでどうでしょう。

#uselib "user32.dll" #func GetCursorPos "GetCursorPos" int #func ScreenToClient "ScreenToClient" int,int onexit *e screen 0,640,480,0 color 0,0,0 :boxf 50,50,100,100 dim point,2 mmload "sample.wav",0,0 *loops GetCursorPos varptr(point) ScreenToClient hWnd,varptr(point) if ((point(0)>=50)&(point(0)<=100)&(point(1)>=50)&(point(1)<=100) ^ chkcode){ chkcode^=1 if chkcode:mmplay 0 } wait 10 goto *loops stop *e mmstop : end



pig

リンク

2007/1/21(Sun) 13:11:06|NO.4977

YOYOさん
どうもありがとうございます。
簡単な質問ですいませんでした。



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