キャラクターに動きはつけれますか？ (ID:88204)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 どういう動きをさせたいかがわからないけど、例えばフォームの中を円を描いて 動くのなら、こんな感じ。 もっと、違う動きをさせたいのなら、そのあたりを詳しく質問してください。 Dim i As Integer Dim r As Integer Dim sTime As Single Const pi = 3.14159265358979 r = 1000 For i = 0 To 360 sTime = Timer Do Until Timer - sTime > 1 DoEvents Loop Picture1.Left = r * Cos(i * pi / 180) + (Me.ScaleWidth - Picture1.Width) \ 2 Picture1.Top = r * Sin(i * pi / 180) + (Me.ScaleHeight - Picture1.Height) \ 2 Next i