公式化 做自己

1,444愛的鼓勵 0訂閱站台

Dim moveway As String

Private Sub cmdD_Click()
Timer1.Enabled = True
moveway = "Down"
End Sub

Private Sub cmdL_Click()
Timer1.Enabled = True
moveway = "Left"

End Sub

Private Sub cmdLD_Click()
Timer1.Enabled = True
moveway = "LeftDown"

End Sub

Private Sub cmdLU_Click()
Timer1.Enabled = True
moveway = "LeftUp"

End Sub

Private Sub cmdR_Click()
Timer1.Enabled = True
moveway = "Right"

End Sub

Private Sub cmdRD_Click()
Timer1.Enabled = True
moveway = "RightDown"

End Sub

Private Sub cmdRU_Click()
Timer1.Enabled = True
moveway = "RightUp"

End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False

End Sub

Private Sub cmdU_Click()
Timer1.Enabled = True
moveway = "Up"

End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
picball.Picture = LoadPicture("D:ball.wmf")


End Sub

Private Sub hsbcontrol_Change()
Timer1.Interval = hsbcontrol.Value
hsbcontrol.Min = 50
hsbcontrol.Max = 2000
hsbcontrol.SmallChange = 100
End Sub

Private Sub Timer1_Timer()
Select Case moveway
Case "Up"
picball.Top = picball.Top - 50
Case "Down"
picball.Top = picball.Top + 50
Case "Left"
picball.Left = picball.Left - 50
Case "Right"
picball.Left = picball.Left + 50
Case "RightUp"
picball.Top = picball.Top - 50
picball.Left = picball.Left + 50
Case "RightDown"
picball.Top = picball.Top + 50
picball.Left = picball.Left + 50
Case "LeftUp"
picball.Top = picball.Top - 50
picball.Left = picball.Left - 50
Case "LeftDown"
picball.Top = picball.Top + 50
picball.Left = picball.Left - 50
End Select
End Sub