掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キャラクターに動きはつけれますか? (ID:88210)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなのは? スタートはボタンで。 Option Explicit Private Const Forwadr = -1 '前進 Private Const Back = 1 '後退 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Dim x1 As Integer, x2 As Integer Dim y1 As Integer, y2 As Integer Dim Flg As Boolean Dim Direction '方向 Randomize ' 乱数発生ルーチンを初期化します。 Do If Flg = True Then Direction = Forwadr Else Direction = Back x1 = Me.Width / 100 * Rnd * Direction y1 = Me.Height / 100 * Rnd x2 = Me.Width / 100 * 0.5 * Direction Image1.Left = Image1.Left + x1 Image1.Top = Me.Height / 2 + y1 Image2.Left = Image2.Left + x2 '方向チェンジ If (Image1.Left > Me.Width) Or (Image1.Left < 0) Then Flg = Not Flg DoEvents Sleep (50) Loop End Sub Private Sub Form_Load() With Image2 'タイトル .Top = Me.Height / 2 .Left = 0 .Height = Me.Height / 10 .Width = Me.Width / 5 End With With Image1 'キャラクター .Top = Me.Height / 2 .Left = Image1.Width / 2 .Height = Me.Height / 10 .Width = Me.Width / 30 .ZOrder 0 End With End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.