+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عمل شريط متحرك من قاعدة البيانات (/showthread.php?tid=22108)
عمل شريط متحرك من قاعدة البيانات - hglogtd - 14-10-17
السلام عليكم
عندي فكرة وهي عمل شريط اخباري متحرك
لكن النصوص ابيها جميعها من قاعدة البيانات
نفترض ان عندنا جدول مكون من عمود id والاخر name_txt
RE: عمل شريط متحرك من قاعدة البيانات - سعود الشامان - 14-10-17
وعليكم السلام ورحمة الله وبركاته
تفضل المشروع بعد التعديل
لكن خلية واحدة فقط اللتي تتحرك وهي ( بسم الله الرحمن الرحيم )
سأحاول الوصول إلى طريقة إظهار جميع الخلايا ( عند إختفاء الأولى تظهر الثانية إلخ....)
RE: عمل شريط متحرك من قاعدة البيانات - hglogtd - 14-10-17
يعطيك العافيه اخوي سعود وانتظرك
يهمني هالمشروع واحتاجه مثل التعاميم ومع الوقت نغير ونضيف تاريخ نهاية للتعميم .. وفق الله
RE: عمل شريط متحرك من قاعدة البيانات - سعود الشامان - 14-10-17
الله يعافيك يالغالي
قمت بعمل مشروع جديد
لكن للأسف ليس كما كنت اريد وهو ( ظهور الخليه الاولى ثم عند وصولها نهاية الفورم الإختفاء وظهور الخلبة الأخرى )
المثال في المرفقات
RE: عمل شريط متحرك من قاعدة البيانات - silverlight - 14-10-17
أخد الخلول لتنفيذ ما تريده هو الفكرة التالية:
أفترض أنك تستطيع أن تقرأ جميع التكست من الداتا بيز و تستطيع تحويلها الي مصفوفة 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 يمثل التكست الذي يجب عرضه في شريط الأخبار
RE: عمل شريط متحرك من قاعدة البيانات - سعود الشامان - 14-10-17
أهلاً بالعمده ممكن أغلبك معي وتطبقها ع مثالي السابق ( شريط اخباري.rar )
لأنني لم استوعبها و لم تضبط معي
RE: عمل شريط متحرك من قاعدة البيانات - silverlight - 14-10-17
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 لكي تبني شريط اخباري
قكرتك كلها ممكن تنفيذها بكونترول واحط
RE: عمل شريط متحرك من قاعدة البيانات - سعود الشامان - 14-10-17
ضبطت معي يالغالي
ممكن تشوف المشروع بعد التعديل
RE: عمل شريط متحرك من قاعدة البيانات - silverlight - 14-10-17
مبروووك انه ظبط معاك
الداتا بيزي لا يحتاج كل هذه الصفوف
ممكن كتابة البيانات في عمود واحد فقط
RE: عمل شريط متحرك من قاعدة البيانات - سعود الشامان - 14-10-17
يباركك بعمرك حبيبي silverlight
الموضوع جداً مهم وينطبق على ( شريط إخباري - شريط إهداءات - شريط إعلانات )
أهنئك ع السؤوال يا hglogtd
حاولت في مشاركتك رقم 7 لكن لم اوفق