[hglogtd]

يعطيكم العافيه جميعا وبارك الله فيكم . سامحوني غلبتكم معاي بس كان شاغلني لو فتره . واستفدت منكم والله . بجرب . وبنحاول ندخل على كل سجل تاريخ انتهاء يعني بعض السجلات نضع لها تاريخ انتهاء بحيث انها تنحذف بالتاريخ المحدد لها . يعطيكم العافيه

[hglogtd]

تم التجربة ومحاولات ممتازه وناجحه فعلا

لكن ليش ما نخليها في عمود بحيث ان العدد غير محدد بدلا من صف

افرض ان الشريط يتكون من 10 او 20 خانه مجرد محاوله

هل هذا ممكن وفقكم الله

[silverlight]

راجع الموضوع التالي لمزيد من الفائدة
شريط متخرك

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

(14-10-17, 08:13 PM)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 لكي تبني شريط اخباري
قكرتك كلها ممكن تنفيذها بكونترول واحط

للأسف لم أستطع إستخدام الدالة بالشكل الصحيح

إسم العمود هو name_txt

وأعتذر لتغليبك و أخذ البعض من وقتكك , بارك الله فيك

[silverlight]

الدالة :

PHP كود :

   Private 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 = table.Rows(i)(columnName).ToString
                values.Add(value)
            Next
            Return values
        End SyncLock
    End Function 


الإستخدام من خلال الكود الخاص بك

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim da As New OleDbDataAdapter("Select * from ms", con)
        Dim dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
        DataGridView1.Columns(0).Visible = False
        DataGridView1.Columns(1).HeaderText = "الخبر الأول"
        DataGridView1.Columns(2).HeaderText = "الخبر الثاني"
        DataGridView1.Columns(3).HeaderText = "الخبر الثالث"
        DataGridView1.Columns(4).HeaderText = "الخبر الرابع"
        DataGridView1.Columns(5).HeaderText = "الخبر الخامس"
        DataGridView1.Columns(6).HeaderText = "الخبر السادس"
        DataGridView1.Columns(7).HeaderText = "الخبر السابع"

        Label2.Text = DataGridView1(1, DataGridView1.SelectedRows(0).Index).Value
        Label3.Text = DataGridView1(2, DataGridView1.SelectedRows(0).Index).Value
        Label4.Text = DataGridView1(3, DataGridView1.SelectedRows(0).Index).Value
        Label5.Text = DataGridView1(4, DataGridView1.SelectedRows(0).Index).Value
        Label6.Text = DataGridView1(5, DataGridView1.SelectedRows(0).Index).Value
        Label7.Text = DataGridView1(6, DataGridView1.SelectedRows(0).Index).Value
        Label8.Text = DataGridView1(7, DataGridView1.SelectedRows(0).Index).Value
        Timer1.Start()

        Dim list As String() = New String() {Label2.Text, Label3.Text, Label4.Text, Label5.Text, Label6.Text, Label7.Text, Label8.Text}
        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
        Label9.Text = textToAnimate

        Dim datalist As List(Of String) = Me.DataTableToValueList(dt, "name_txt")

    End Sub 


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

للأسف لا يتم قراءة محتويات العمود في الليبل

[hglogtd]

وانا لم يتم قراءة العمود

[silverlight]

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

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

ممتاز أخوي silverlight

انت جعلت الليبل يقراً الصف بأكمله

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

مثال :

عندما نقرا بيانات العمود عن طريق الكومبوكس
أنا اريد قراءة بيانات العمود عن طريق الليبل

هل نستطيع ذالك ؟

[سعود]

هل تقصد مثل هذا

انظر لاعلى الفورم

كود :

       If lblmarquee.Left >= Me.Panel1.Width Then lblmarquee.Left = 0 - lblmarquee.Width
       lblmarquee.Left += 1



        For g As Integer = 0 To dt.Rows.Count - 1
        lblmarquee.Text &= "@^@" & dt(g)("tn")
        Next