15-10-17, 08:50 AM
في المرفقات مثال بسيط لكيفية بناء شريط متحرك
الكود مكتوب بنسخة الفيحوال استوديو 2015
و لمن يملكون نسخة أقل حداثة من نسخة 2015
يمكنهم تنفيذ التالي
1- انسخ الكلاس StringAnimator إلي مشروعك وهذا الكلاس عبارة عن كونترول يستخدم في تحريك و ايقاف التكست
2- قم بعمل Build و بعدها ستجد الكونترول موجودا في Toolbox الخاصة بالفيجوال استوديو
3- أضف الكونترول الي الفورم
4- أضف الي الفورم عدد 2 باتون
5- اكتب الكود بالشكل التالي
أتمني أن يكون الكود مفيدا للبعض منكم
تقبلوا تحياتي
الكود مكتوب بنسخة الفيحوال استوديو 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
أتمني أن يكون الكود مفيدا للبعض منكم
تقبلوا تحياتي
Retired