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


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
1109
スネキチ画像を右から左にスクロールさせたい。4未解決


スネキチ

リンク

2015/11/9(Mon) 22:25:52|NO.72896

jpg画像が100枚ほどあるのですが
それを一枚づつ右から左にゆっくりとスクロールされ
プラス、曲がながれていく。
っという風に作りたいのですができますでしょうか?



この記事に返信する


スペース

リンク

2015/11/9(Mon) 23:01:58|NO.72897

できます。ループとmciとかで。



暇人

リンク

2015/11/9(Mon) 23:02:31|NO.72898

celloadに0以外のウインドウIDを指定して画像を読み込む
posで画像を表示する座標を指定
celput ウインドウID で画像表示

これで1枚の画像をスクロールさせる事からやってみると良い



Rich(InoueSoftware)

リンク

2015/11/14(Sat) 08:29:01|NO.73006

サンプルどうぞ。
画像を並べて左から右へスクロールするサンプル。
title "流れる画像"
picx=300:picy=200//表示させる画像サイズ dimtype PicName,vartype("str"),2 repeat ,1 dialog "bmp;*.jpg;*.gif;*.png",16,"画像ファイル(キャンセルを押すと、選択を中止します)" if stat=0:break PicName(cnt)=refstr buffer cnt picload PicName(cnt) gzoom picx,picy,cnt,0,0,ginfo_sx,ginfo_sy,1 p++ loop if p=0:end screen 0 cls 4 py=ginfo_winy/2-(picy/2) my=py-20 font "MS UI Gothic",20,1 repeat ,1 px++ redraw 0 color 0:boxf:color 0 repeat p,1 pos px-(cnt*picx),py gcopy cnt,0,0,picx,picy//画像表示 pos px-(cnt*picx),my color 255,255,255 mes getpath(PicName(cnt),8)//ファイル名表示 loop if px>=ginfo_winx+(picx*p):px=0 redraw 1 wait 1 loop



Rich(InoueSoftware)

リンク

2015/11/14(Sat) 08:42:52|NO.73008

右から左にスクロールさせる場合は
20行目の
px++
px=ginfo_winx+(picx*p)-cnt
に置き換える。



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