ゲームでラベルを停止させるには?? (ID:141123)

名前

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

本文

はじめまして。
私は今、VBでゲームを作っています。
そのゲームでは、ボタンを押してラベルを動かしたり、他のボタンを押してラベルを止めたりしています。
そこで今、困っているのが、Form1内の端にぶつかるとラベルが止まるという感じにしたいんです。
でも、何を記述していいのかわかりません。
解る方、解答をよろしくお願いします。

Public Class Form1

Dim Vec As Integer

Private Sub Timer1_Tick( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Timer1.Tick

If Label1.Location.X + Label1.Size.Width >= Me.Width - 8 Then
            Vec = -4
        ElseIf Label1.Location.X <= 0 Then
            Vec = 4
        End If
        Label1.Location = New Point(Label1.Location.X + Vec, Label1.Location.Y)

End Sub

Private Sub Button1_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

Vec = -4
        Timer1.Enabled = True

End Sub

Private Sub Button2_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Enabled = False

End Sub

Private Sub Button3_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

End Sub

Private Sub Button4_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button4.Click

Vec = 4
        Timer1.Enabled = True

End Sub
End Class

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

戻る