منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخواني 
اريد طريقة تحريك ليبل داخل الفورم 
اريد ان يكون مستمر يعني مو عندما ينتهي الليبل يظهر من جديد اريد يكون مستر 
يعني يكون على طول الفورم ويضل يتحرك 
وشكرا

السلام عليكم

هل تقصد أنك تريد تحريكه داخل إطار النافذة جيئة وذهابا

جرب هذا المثال

جرب البرنامج هذا حيساعدك ان شاء الله مع العلم هذا البرنامج منقول من موضوع في المنتدى

(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 كتب : [ -> ]جرب البرنامج هذا حيساعدك ان شاء الله مع العلم هذا البرنامج منقول من موضوع في المنتدى

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