[silverlight]

الهدف من الموضوع تحريك تكست باستخدام تايمر
الفكرة تنحصر في أننا نأخذ أي تكست و نقوم بتحويله الي مصفوفة

مثلا لو التكست عبارة عن الكلمة Visual فإن المصفوفة الخاصة به ستكون عبارة عن V, Vi, Vis, Visu, Visua, Visual
ثم ومن خلال تايمر نقوم بقراءة المصفوفة فيظهر التكست متحركا

لتنفيذ الفكرة
افتح مشروع جديد
أضف Label الي الفورم
أضف تايمر Timer

اكتب الكود بالشكل التالي

PHP كود :

Public Class Form1

    Private source As String = "visual basic dot net ...."
    Private values As String() = Nothing
    Private x As Integer = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dest As Char() = source.ToCharArray
        values = New String(dest.Length - 1) {}
        Dim i As Integer = 0
        Dim s As String = String.Empty
        While i < dest.Length
            Dim c As Char = dest(i)
            s += c.ToString
            values(i) = s
            s = values(i) + " "c
            i += 1

        End While
        Me.Label1.Text = ""
        Me.Text = ""
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim s As String = values(Me.x Mod values.Length)
        Me.x += 1
        Me.Label1.Text = s
        Me.Text = s
    End Sub
End Class 


الكود التالي يقوم بتنفيذ نفس الفكرة بأسلوب أخر

PHP كود :

Public Class Form1

    Private source As String = "visual basic dot net ...."
    Private values As String() = Nothing
    Private x As Integer = 0

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim s As String = values(Me.x Mod values.Length)
        Me.x += 1

        Me.Text = s
        Me.Label1.Text = s
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dest As String() = source.Split(" "c)
        values = New String(dest.Length - 1) {}
        Dim i As Integer = 0
        Dim s As String = String.Empty
        While i < dest.Length
            s += dest(i)
            values(i) = s
            s = values(i) + " "c
            i += 1
        End While
        Me.Text = ""
        Me.Label1.Text = ""
        Timer1.Enabled = True
        Timer1.Start()
    End Sub

End Class 


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

[sendbad100]

بارك الله فيك