| 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 の後ろに書くと、読み取ってくれないと言う原因になりました。 このように中にいれて下さい。
|