| こんにちは小一郎です。
早速の御返答ありがとうございます m(_ _)m
開発版では教授して頂いた方法でループから脱出させる事が出来ました。 イメージ通りにするために
Do While (i < 12)
PaintPicture Sakura_01.png 0 0 透過 Refresh ClearPicture
If KeyState(1) = 1 Then Break EndIf
PaintPicture Sakura_02.png 30 30 透過 Refresh ClearPicture
If KeyState(1) = 1 Then Break EndIf
PaintPicture Sakura_03.png 30 60 透過 Refresh ClearPicture
If KeyState(1) = 1 Then Break EndIf
Loop
…と言う具合に、それぞれのコマンドの下に Break を設定しました。
ただ、安定版での制作を…とテストプレイヤーさんから言われているので この方法を採用するかどうか悩んでおりますが(^^;
小一郎
|