+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : Text Animation (/showthread.php?tid=22256)
Text Animation - silverlight - 26-10-17
الهدف من الموضوع تحريك تكست باستخدام تايمر
الفكرة تنحصر في أننا نأخذ أي تكست و نقوم بتحويله الي مصفوفة
مثلا لو التكست عبارة عن الكلمة 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
تقبلوا تحياتي
RE: Text Animation - sendbad100 - 26-10-17
بارك الله فيك