السلام عليكم
أريد تحريك نص داخل Label عملت محاولة اشتغل لكن مرة واحدة فقط حيت يتحرك النص وعند اختفائه لايظهر مرة اخرى .. أريد ان يتكرر الأمر
الكود في Timer
كود :
Form1.Label1.Left -= 5
جزاكم الله خيرا
نضيف المكون المرفق 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
-------------------------------
المكون و التفاصيل و الشفرات مرفقة مع الشرح