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


HSPTV!掲示板


未解決 解決 停止 削除要請

2022
0805
parontuGIFアニメーションをボタンにすることはできますか?1未解決


parontu

リンク

2022/8/5(Fri) 10:19:22|NO.96909

GIFアニメーションをボタンにすることはできますか?



この記事に返信する


あいそとーぷ

リンク

2022/8/5(Fri) 16:04:07|NO.96911

このような形にすれば出来ると思います(もっと賢い方法があると思いますが)

dialog "gif", 16,"GIFファイル" if stat = 0 :end filename = refstr SX = 640 :SY = 480 screen 0,SX,SY celload filename,1,0 gsel 1,1 picX = ginfo(12) :picY = ginfo(13) gsel 1,-1 gsel 0,1 mci "open \""+filename+"\" alias gifanim type mpegvideo style child parent "+hwnd mci "play gifanim repeat" onexit *exit objsize picX,picY repeat winX = ginfo(6)-SX :winY = ginfo(7)-SY ;ウィンドウの位置を取得 mouX = ginfo(0) :mouY = ginfo(1) ;マウスの位置を取得 getkey key,1 if key &(winX <= mouX & mouX <= winX+picX)&(winY <= mouY & mouY <= winY+picY){ //ここにボタンが押されたときの命令を記述する dialog "ボタンが押されました" } await loop stop *exit mci "close gifanim" end



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