[RaggiTech]

كيف نحرك التكست في الدوت نت

من الأشياء الطريفة في الدوت نت هي عملية تحريك Text أو بمعني أدق Scrolling Text بحيث تجعل المستخدم يشعر أن التكسب يتحرك

كلنا شاهدنا في Windows Media Player كيف يتم عرض بيانات الملف وامتداده في صورة متحركة كيف فعلوا ذلك في واقع الأمر الكود ليس بجديد علي الكثيرين لكن بما أننا نتحدث عن Animation بشكل عام أحببت أن انوه عن الأمر ليس إلا و أيضا لن أتوقف كثيرا في شرح هذا الكود لأنه ليس أمرا صعبا علي الإطلاق

المثال الرابع:

عموما الفكرة تعتمد علي استخدام الكلاس MicroSoft.VisualBasic Strings Class
وهناك الكثير من الأفكار لتحريك التكست ولكن الفكرة التالية أبسطهم علي الإطلاق

لتنفيذ ذلك نفتح مشروعا جديدا ونطلق عليه AnimatedText مثلا
نضيف للمشروع Timer و Label فقط لا غير ثم نكتب الكود كالتالي

كود :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Do While Label1.Text.Length < 20
Label1.Text = Label1.Text & " "
Loop
End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = Microsoft.VisualBasic.Right(Label1.Text, 1) & Microsoft.VisualBasic.Left(Label1.Text, Label1.Text.Length - 1)

End Sub

End Class