منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

في المرفقات مثال بسيط لكيفية بناء شريط متحرك
الكود مكتوب بنسخة الفيحوال استوديو 2015

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

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


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

هندسسسسه يا silverlight

تم التطبيق بنجاح على فيجوال بيسك 2010

شكرا جزيلا يا استاذ

جزاك الله خير الجزاء اخي
واليك ايضا شرح
لمثال بسيط

(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 


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

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

شكراااااااااااااااااااااااااااااااااااا