ＳＲＣ質問掲示板Mk2 [One Topic All View / Re[4]: 画像を順番表示するとき / Page: 0]

ＳＲＣ質問掲示板Mk2
(現在過去ログ37 を表示中)

[ 最新記事及び返信フォームをトピックトップへ ]

■6866 / inTopicNo.1)

　画像を順番表示するとき

□投稿者/ T -(2003/01/14(Tue) 19:44:06)

For i = 0 To 320
PaintPicture ○○○○○1.bmp (0 + i) 180 120 120 透過
Refresh
ClearPicture
Next
PaintPicture ○○○○○1.bmp 320 180 120 120 透過
Wait 5

For i = 0 To 160
PaintPicture ○○○○○2.bmp (0 + i) 180 120 120 透過
Refresh
ClearPicture
　　↑
　　└─────────────────────────┐
Next　　　　　　　　　　　　　　　　　　　　　　　　　　│
PaintPicture ○○○○○2.bmp 160 180 120 120 透過　　 │
Wait 5　　　　　　　　　　　　　　　　　　　　　　　　　│
　　　　　　　　　　　　　　┌─────────────┘
　　　　　　　　　　　　　　│
とすると、当前の事ですが、これが　○○○○○1を消してしまいます。
前に表示した物をそのまま残して、
順番に表示させたいのです。
どうすればいいでしょうか？

引用返信/返信削除キー/

■6868 / inTopicNo.2)

　Re[1]: 画像を順番表示するとき

▲▼■

□投稿者/ TomTom -(2003/01/14(Tue) 20:44:03)

申し訳ありません、見当違いのことを書いていました。

ClearPictureコマンドは消去する範囲を指定できるので、
前のFor文で描いた部分にかぶらないように
消去範囲を指定すればよろしいかと。

--修正前---------------------------------------------
ClearPictureを
PaintPictureの前に実行すればいいだけではないでしょうか？

解決済み!

引用返信/返信削除キー/

■6869 / inTopicNo.3)

　Re[3]: 画像を順番表示するとき

▲▼■

□投稿者/ Z好き -(2003/01/15(Wed) 12:03:43)

For i = 0 To 320
PaintPicture ○○○○○1.bmp (0 + i) 180 120 120 透過
Refresh
ClearPicture
#再表示させたいとき　#は無視しますので取ってください。
#If i = 320 Then
#PaintPicture ○○○○○1.bmp 320 180 120 120 透過
#Wait 5
#Endif
Next

For j = 0 To 160
PaintPicture ○○○○○2.bmp (0 + j) 180 120 120 透過
#○○○○○1.bmp を表示させたいときは、#を外す。
#PaintPicture ○○○○○1.bmp 320 180 120 120 透過
Refresh
ClearPicture
If j = 160 Then
PaintPicture ○○○○○2.bmp 160 180 120 120 透過
PaintPicture ○○○○○1.bmp 320 180 120 120 透過
Wait 5
Endif
Next
を参考にして下さい。
Next　の後ろに書くと、読み取ってくれないと言う原因になりました。
このように中にいれて下さい。

解決済み!

引用返信/返信削除キー/

■6871 / inTopicNo.4)

　Re[3]: 画像を順番表示するとき

▲▼■

□投稿者/ T -(2003/01/15(Wed) 17:16:15)

消去範囲の指定でできました。
ありがとうございました。

解決済み!

引用返信/返信削除キー/

■6872 / inTopicNo.5)

　Re[4]: 画像を順番表示するとき

▲▼■