[hglogtd]

السلام عليكم 


عندي فكرة وهي عمل شريط اخباري متحرك 

لكن النصوص ابيها جميعها من قاعدة البيانات 

نفترض ان عندنا جدول مكون من عمود  id والاخر name_txt

[سعود الشامان]

وعليكم السلام ورحمة الله وبركاته

تفضل المشروع بعد التعديل

لكن خلية واحدة فقط اللتي تتحرك وهي ( بسم الله الرحمن الرحيم )

سأحاول الوصول إلى طريقة إظهار جميع الخلايا ( عند إختفاء الأولى تظهر الثانية إلخ....)

[hglogtd]

يعطيك العافيه اخوي سعود وانتظرك

يهمني هالمشروع واحتاجه مثل التعاميم ومع الوقت نغير ونضيف تاريخ نهاية للتعميم .. وفق الله

[سعود الشامان]

الله يعافيك يالغالي

قمت بعمل مشروع جديد

لكن للأسف ليس كما كنت اريد وهو ( ظهور الخليه الاولى ثم عند وصولها نهاية الفورم الإختفاء وظهور الخلبة الأخرى )

المثال في المرفقات

[silverlight]

أخد الخلول لتنفيذ ما تريده هو الفكرة التالية:
أفترض أنك تستطيع أن تقرأ جميع التكست من الداتا بيز و تستطيع تحويلها الي مصفوفة String
هنا عليك ان تجمع حميع التكست في المصفوفة و تقوم بتحويلها الي تكست واحد كالتالي

PHP كود :

   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

    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 


المتغير textToAnimate يمثل التكست الذي يجب عرضه في شريط الأخبار

[سعود الشامان]

أهلاً بالعمده ممكن أغلبك معي وتطبقها ع مثالي السابق ( شريط اخباري.rar )

لأنني لم استوعبها و لم تضبط معي

[silverlight]

PHP كود :

   Friend Function DataTableToValueList(table As DataTable, columnName As String) As List(Of String)
        Dim values As List(Of String) = New List(Of String)()
        SyncLock table.GetType
            For i As Integer = 0 To table.Rows.Count - 1
                Dim value As String = CStr(table.Rows(i)(columnName))
                values.Add(value)
            Next
            Return values
        End SyncLock
    End Function 


ممكن تستخدم الدالة أعلاه في قراءة عمود معين من DataTable الذي تحصل عليه من قواعد البيانات

أو تعطيني اسم العمود الموجود به البيانات
ملاحظات علي الكود الخاص بك
أنت لا تحتاج الي كل هذا العدد من label لكي تبني شريط اخباري
قكرتك كلها ممكن تنفيذها بكونترول واحط

[سعود الشامان]

ضبطت معي يالغالي



ممكن تشوف المشروع بعد التعديل

[silverlight]

مبروووك انه ظبط معاك

الداتا بيزي لا يحتاج كل هذه الصفوف
ممكن كتابة البيانات في عمود واحد فقط

[سعود الشامان]

يباركك بعمرك حبيبي silverlight

الموضوع جداً مهم وينطبق على ( شريط إخباري - شريط إهداءات - شريط إعلانات )

أهنئك ع السؤوال يا hglogtd

حاولت في مشاركتك رقم 7 لكن لم اوفق