مشاهده نسخه کامل
: پسراژدهاسوار
18-10-2013, 20:23
یکی بهم بگه چطوری کاری کنم این توپ به همه جا بخوره فقط چپ و راست نشه دلم میخواد از پایین به سمت راست فرم بعد بالای فرم بعد چپ فرم بعد پایین بخوره ممنونDim j As Integer
Private Sub Form_Load()
j = 0
End Sub
Private Sub Timer1_Timer()
If j = 1 Then
If Shape1.Left + Shape1.Width < Form1.Width Then
Shape1.Left = Shape1.Left + 100
Else
j = 0
End If
End If
If j = 0 Then
If Shape1.Left > 0 Then
Shape1.Left = Shape1.Left - 100
Else
j = 1
End If
End If
End Sub
Private Sub Form_Load()
j = 0
End Sub
Private Sub Timer1_Timer()
If j = 1 Then
If Shape1.Left + Shape1.Width < Form1.Width Then
Shape1.Left = Shape1.Left + 100
Else
j = 0
End If
End If
If j = 0 Then
If Shape1.Left > 0 Then
Shape1.Left = Shape1.Left - 100
Else
j = 1
End If
End If
End Sub