تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شريط متحرك String Animation
#1
في المرفقات مثال بسيط لكيفية بناء شريط متحرك
الكود مكتوب بنسخة الفيحوال استوديو 2015

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

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

PHP كود :
Public Class Form1

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        Dim 
list As String() = New String() {"visual basic""visual C#""visual C++"}
 
       Dim indent As String "    "
 
       Dim func As Func(Of StringString) = Function(sindent indent
        Dim textToAnimate 
As String String.Empty
 
       Dim i As Integer 0
        While i 
< list.Length
            Dim toIndnet 
As String = list(i)
 
           If TryIndent(funcThen
                textToAnimate 
+= func(toIndnet)
 
           End If
 
           i += 1
        End 
While

 
       Me.StringAnimator1.Text textToAnimate
    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Me
.StringAnimator1.StartAnimaion()
 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        Me
.StringAnimator1.StopAnimaion()
 
   End Sub

    Private 
Function TryIndent(func As Func(Of StringString)) As Boolean
        Dim source 
As String Nothing
        Return TryIndent
(sourcefunc)
 
   End Function

 
   Private Function TryIndent(ByRef source As Stringfunc As Func(Of StringString)) 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 

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


الملفات المرفقة
.rar   Test_StringAnimator.rar (الحجم : 72.04 ك ب / التحميلات : 240)
Retired
الرد
#2
هندسسسسه يا silverlight

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


الملفات المرفقة
.rar   شريط متحرك.rar (الحجم : 116.46 ك ب / التحميلات : 178)
الرد
تم الشكر بواسطة: Amir_Alzubidy
#3
شكرا جزيلا يا استاذ
                                             
                                                        
         
  اكسب قلوب الناس .......... تكسب احترامهم .
                ........تستطيع قطف كل الازهار.... و لكن لا تسطيع منع قدوم الربيع ....
الرد
تم الشكر بواسطة:
#4
جزاك الله خير الجزاء اخي
واليك ايضا شرح
لمثال بسيط


الملفات المرفقة
.pdf   كيفية عمل برنامج النص المتحرك.pdf (الحجم : 100.06 ك ب / التحميلات : 39)
الرد
تم الشكر بواسطة:
#5
(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 ObjectAs EventArgsHandles MyBase.Load
        Dim 
list As String() = New String() {"visual basic""visual C#""visual C++"}
 
       Dim indent As String "    "
 
       Dim func As Func(Of StringString) = Function(sindent indent
        Dim textToAnimate 
As String String.Empty
 
       Dim i As Integer 0
        While i 
< list.Length
            Dim toIndnet 
As String = list(i)
 
           If TryIndent(funcThen
                textToAnimate 
+= func(toIndnet)
 
           End If
 
           i += 1
        End 
While

 
       Me.StringAnimator1.Text textToAnimate
    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Me
.StringAnimator1.StartAnimaion()
 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        Me
.StringAnimator1.StopAnimaion()
 
   End Sub

    Private 
Function TryIndent(func As Func(Of StringString)) As Boolean
        Dim source 
As String Nothing
        Return TryIndent
(sourcefunc)
 
   End Function

 
   Private Function TryIndent(ByRef source As Stringfunc As Func(Of StringString)) 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 

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

تسلم يدك

الله الصحة والعافية
الرد
تم الشكر بواسطة:
#6
شكراااااااااااااااااااااااااااااااااااا
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [اقتراح] عمل نص متحرك اسامه الهرماوي 0 313 17-10-18, 08:46 PM
آخر رد: اسامه الهرماوي
  [كود] تحويل ال string الى date time mohamed haroon 0 713 26-01-16, 01:26 PM
آخر رد: mohamed haroon

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم