(15-10-17, 08:50 AM)silverlight كتب : في المرفقات مثال بسيط لكيفية بناء شريط متحرك
الكود مكتوب بنسخة الفيحوال استوديو 2015

و لمن يملكون نسخة أقل حداثة من نسخة 2015
يمكنهم تنفيذ التالي

1- انسخ الكلاس StringAnimator إلي مشروعك وهذا الكلاس عبارة عن كونترول يستخدم في تحريك و ايقاف التكست
2- قم بعمل Build و بعدها ستجد الكونترول موجودا في Toolbox الخاصة بالفيجوال استوديو
3- أضف الكونترول الي الفورم
4- أضف الي الفورم عدد 2 باتون
5- اكتب الكود بالشكل التالي

PHP كود :

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim list As String() = New String() {"visual basic", "visual C#", "visual C++"}
        Dim indent As String = "    "
        Dim func As Func(Of String, String) = Function(s) indent + s + indent
        Dim textToAnimate As String = String.Empty
        Dim i As Integer = 0
        While i < list.Length
            Dim toIndnet As String = list(i)
            If TryIndent(func) Then
                textToAnimate += func(toIndnet)
            End If
            i += 1
        End While

        Me.StringAnimator1.Text = textToAnimate
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.StringAnimator1.StartAnimaion()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.StringAnimator1.StopAnimaion()
    End Sub

    Private Function TryIndent(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, 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


End Class 


أتمني أن يكون الكود مفيدا للبعض منكم

تقبلوا تحياتي