掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キャラクターに動きはつけれますか? (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
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.