フラグを使い、ラベルを動かすんですが・・・ (ID:141346)

名前

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

本文

はじめまして。
今、フラグを使って、ラベルを動かすというプログラムを作っているんですが、最初に壁にぶつかった時だけダブルクリックをしなきゃ方向変換ができないんんです。
これを解決っすることはできませんか？？

Visual Basic 2005,Windows XP,.Net Framework 2.0

Public Class Form1

Dim Vec As Integer
    Dim ColorTarget As Integer
    Dim Flag As Integer
    Dim Speed As Integer

Private Sub Form1_Load( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load

Flag = 1
        Speed = -4
        Timer1.Enabled = True

End Sub

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

Flag = Flag * (-1)

If Flag = 1 Then
            Vec = Speed
        Else
            Vec = -Speed
        End If
        Timer1.Enabled = True

End Sub

Private Sub Red_CheckedChanged( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Red.CheckedChanged

Label1.BackColor = Color.Red

End Sub

Private Sub Orange_CheckedChanged( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Orange.CheckedChanged

Label1.BackColor = Color.Orange

End Sub

Private Sub Yellow_CheckedChanged( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Yellow.CheckedChanged

Label1.BackColor = Color.Yellow

End Sub

Private Sub Green_CheckedChanged( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Green.CheckedChanged

Label1.BackColor = Color.Green

End Sub

Private Sub Blue_CheckedChanged( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Blue.CheckedChanged

Label1.BackColor = Color.Blue

End Sub

Private Sub IndigoBlue_CheckedChanged( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles IndigoBlue.CheckedChanged

Label1.BackColor = Color.Navy

End Sub

Private Sub Violet_CheckedChanged( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Violet.CheckedChanged

Label1.BackColor = Color.Violet

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

End Class

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

戻る