[عمار عيثاوي]

(14-12-14, 11:07 AM)سعود كتب : جرب هذا المثال

كود :

Public Class Form1
   Dim ok As Boolean = False
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       If ok = False Then
           lbl.Left += 1
       Else
           lbl.Left -= 1
       End If
   End Sub

 

   Private Sub lbl_Move(sender As Object, e As EventArgs) Handles lbl.Move
       If lbl.Right = Me.Width Then
           ok = True
       ElseIf lbl.Left = 0 Then
           ok = False
       End If
   End Sub

   Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
       lbl2.Left += 1
   End Sub

   Private Sub lbl2_Click(sender As Object, e As EventArgs) Handles lbl2.Click

   End Sub

   Private Sub lbl2_Move(sender As Object, e As EventArgs) Handles lbl2.Move
       If lbl2.Left = Me.Width Then
           lbl2.Left = 0 - lbl2.Width
       End If
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       lbl2.Left = 0 - lbl2.Width
   End Sub
End Class

         اني اشكرك وبارك الله فيك 
         

---

(14-12-14, 01:05 PM)shwehdi4pc كتب : جرب البرنامج هذا حيساعدك ان شاء الله مع العلم هذا البرنامج منقول من موضوع في المنتدى

اني جدا اشكرك بارك الله فيك هذا هو المطلوب