السلام عليكم
عندي فكرة وهي عمل شريط اخباري متحرك
لكن النصوص ابيها جميعها من قاعدة البيانات
نفترض ان عندنا جدول مكون من عمود id والاخر name_txt
وعليكم السلام ورحمة الله وبركاته
تفضل المشروع بعد التعديل
لكن خلية واحدة فقط اللتي تتحرك وهي ( بسم الله الرحمن الرحيم )
سأحاول الوصول إلى طريقة إظهار جميع الخلايا ( عند إختفاء الأولى تظهر الثانية إلخ....)
يعطيك العافيه اخوي سعود وانتظرك
يهمني هالمشروع واحتاجه مثل التعاميم ومع الوقت نغير ونضيف تاريخ نهاية للتعميم .. وفق الله
الله يعافيك يالغالي
قمت بعمل مشروع جديد
لكن للأسف ليس كما كنت اريد وهو ( ظهور الخليه الاولى ثم عند وصولها نهاية الفورم الإختفاء وظهور الخلبة الأخرى )
المثال في المرفقات
أخد الخلول لتنفيذ ما تريده هو الفكرة التالية:
أفترض أنك تستطيع أن تقرأ جميع التكست من الداتا بيز و تستطيع تحويلها الي مصفوفة 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 )
لأنني لم استوعبها و لم تضبط معي
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
الموضوع جداً مهم وينطبق على ( شريط إخباري - شريط إهداءات - شريط إعلانات )
أهنئك ع السؤوال يا hglogtd
حاولت في مشاركتك رقم 7 لكن لم اوفق