キャラクターに動きはつけれますか？ (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

←解決時は質問者本人がここをチェックしてください。

戻る