تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تحريك نص داخل Label
#1
السلام عليكم

أريد تحريك نص داخل Label عملت محاولة اشتغل لكن مرة واحدة فقط حيت يتحرك النص وعند اختفائه لايظهر مرة اخرى .. أريد ان يتكرر الأمر

الكود في Timer

كود :
Form1.Label1.Left -= 5


جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
نضيف المكون المرفق  StringAnimator  للمشروع  ثم نبني المشروع Build
تظهر الاداة الهدف في اعلى صندوق الادوات نضيفها للنموذج و نغيير خصائصها مثل النص و الخلفية ... الخ
نكتب الدوال الوظيفية التالية في محرر الشفرات:
--------------------------
ننتقل للمحرر ونكتب شفرة الوظيفة التالية: في وسط الفئة (الكلاس)

Private Function TryIndent(ByVal func As Func(Of String, String)) As Boolean
       Dim source As String = Nothing
       Return TryIndent(source, func)
   End Function
--------------------------------
ثم شفرة الدالة الوظيفية
 
 Private Function TryIndent(ByRef source As String, ByVal func As Func(Of String, String)) As Boolean
       While func IsNot Nothing
           Dim src As String = source
           Dim dest As String = func(src)
           If src = dest Then
               Exit While
           End If
           If src <> dest Then
               Return True
           End If
       End While
       Return False
   End Function
----------------------------------------------------------
 في الزر المنفرد اذا اردنا نكتب الشفرة التالية   :يمكننا جعل زر للبداية و اخر للتوقيف.
Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles BtnStart.Click
If BtnStart.Text = "Start Animation" Then
StringAnimator1.StartAnimaion()
BtnStart.Text = "Stop"
Else
Me.StringAnimator1.StopAnimaion()
BtnStart.Text = "Start Animation"
End If

-------------------------------
المكون و التفاصيل و الشفرات مرفقة مع الشرح


الملفات المرفقة
.rar   textAnimator.rar (الحجم : 394.57 ك ب / التحميلات : 186)
.pdf   نص متحرك احترافي.pdf (الحجم : 413.37 ك ب / التحميلات : 94)
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
الرد }}}
تم الشكر بواسطة: Simo1991
#3
اضافه الى ماذكره الاخوان

https://youtu.be/rzPR3qLtgE0
الرد }}}
تم الشكر بواسطة: Simo1991 , Simo1991
#4
PHP كود :
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        Timer1
.Start()
 
   End Sub

    Private Sub Timer1_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
        Label1
.Left -= 5
        If Label1
.Left <= -Width Then
            Label1
.Left Width
        End 
If
 
   End Sub 
الرد }}}
تم الشكر بواسطة: Simo1991


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 461 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  سؤال في تحريك التحديد في datagrideview maher_haddaf 3 435 23-10-23, 08:27 AM
آخر رد: أبو خالد الشكري
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 350 05-08-23, 02:29 PM
آخر رد: moh61
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 696 26-07-23, 05:47 AM
آخر رد: Taha Okla
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم
  مساعدة كتابة التاريخ داخل داتا جريد فيو كريم عبودي 2 523 22-06-23, 12:28 AM
آخر رد: كريم عبودي
  يرجي التعديل على المثال - تعبءة الكمبوبوكس داخل الجريد بانواع الوحدات new_programer 3 800 14-04-23, 05:31 PM
آخر رد: new_programer

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


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