نضيف المكون المرفق 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
-------------------------------
المكون و التفاصيل و الشفرات مرفقة مع الشرح
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Left -= 5 If Label1.Left <= -Width Then Label1.Left = Width End If End Sub