أخد الخلول لتنفيذ ما تريده هو الفكرة التالية:
أفترض أنك تستطيع أن تقرأ جميع التكست من الداتا بيز و تستطيع تحويلها الي مصفوفة 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 يمثل التكست الذي يجب عرضه في شريط الأخبار
14-10-17, 08:13 PM (آخر تعديل لهذه المشاركة : 14-10-17, 08:15 PM {2} بواسطة 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 لكي تبني شريط اخباري
قكرتك كلها ممكن تنفيذها بكونترول واحط