تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحريك ليبل
#1
السلام عليكم اخواني 
اريد طريقة تحريك ليبل داخل الفورم 
اريد ان يكون مستمر يعني مو عندما ينتهي الليبل يظهر من جديد اريد يكون مستر 
يعني يكون على طول الفورم ويضل يتحرك 
وشكرا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

هل تقصد أنك تريد تحريكه داخل إطار النافذة جيئة وذهابا
الرد }}}
تم الشكر بواسطة:
#3
جرب هذا المثال

كود :
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
الرد }}}
تم الشكر بواسطة: sooriaty03
#4
جرب البرنامج هذا حيساعدك ان شاء الله مع العلم هذا البرنامج منقول من موضوع في المنتدى


الملفات المرفقة
.zip   News_Label_v01.zip (الحجم : 65.08 ك ب / التحميلات : 105)
الرد }}}
تم الشكر بواسطة:
#5
(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 كتب : جرب البرنامج هذا حيساعدك ان شاء الله مع العلم هذا البرنامج منقول من موضوع في المنتدى

اني جدا اشكرك بارك الله فيك هذا هو المطلوب
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في تحريك التحديد في datagrideview maher_haddaf 3 435 23-10-23, 08:27 AM
آخر رد: أبو خالد الشكري
  كود تحريك الادوات داخل الفورم مع حفظ الترتيب حماده ممدوح البحيرى 0 293 17-12-22, 02:11 PM
آخر رد: حماده ممدوح البحيرى
  تحريك الأدوات على التقرير فى وقت التشغيل ! dr.programming 5 971 11-07-22, 05:08 PM
آخر رد: asemshahen5
  تحريك البكتربوكس kebboud 0 625 03-12-21, 10:11 PM
آخر رد: kebboud
  [سؤال] عندي سؤال في ليبل حسن الجلب 1 1,228 05-10-21, 11:59 PM
آخر رد: asmarsou
  [سؤال] كود تحريك الفورم من اي نقطه حسن الجلب 1 871 26-08-21, 05:44 PM
آخر رد: asemshahen5
  الرجوع للفورم الرئيسيةعند عدم تحريك الماوس لمدة معينة جيولوجي مبتدئ 7 1,768 25-07-21, 07:33 PM
آخر رد: ابراهيم ايبو
  السلام عليكم ممكن سؤال في اضافه اكثر من ليبل اليوم السابع 4 1,794 31-12-20, 02:33 PM
آخر رد: اليوم السابع
  [سؤال] طباعة الباركود ليبل Moham 7 3,123 30-11-20, 10:38 PM
آخر رد: ibra9009
  اريد تحريك الجمل أو الشرائح واحدة تلو الاخرى hamed.34552 0 1,140 25-05-20, 03:16 PM
آخر رد: hamed.34552

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم