منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

من فضلكم اريد عمل ProgressBar فى وضع متزامن مع تغير Sheet

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dgv1.DataSource = Nothing

        If Ds.Tables.Count > 0 Then

            Dgv1.DataSource = Ds

            If Ds.Tables.Contains(Cmb_SheetName.Text) Then

                Dgv1.DataMember = Cmb_SheetName.Text

            End If

        End If

    End Sub

تفضل أخي العزيز :

PHP كود :

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dgv1.DataSource = Nothing
        If DS.Tables.Count > 0 Then
            progras.Maximum = DS.Tables(Cmb_SheetName.Text).Rows.Count - 1
            progras.Value = 0
            Dgv1.Columns.Clear()
            For i As Integer = 0 To DS.Tables(Cmb_SheetName.Text).Columns.Count - 1
                Dgv1.Columns.Add(DS.Tables(Cmb_SheetName.Text).Columns(i).ColumnName.ToString, DS.Tables(Cmb_SheetName.Text).Columns(i).Caption)
            Next
            Dim x As Integer = 0
            Dgv1.Rows.Clear()
            If DS.Tables(Cmb_SheetName.Text).Rows.Count > 0 Then
                For Each row As DataRow In DS.Tables(Cmb_SheetName.Text).Rows
                    Dgv1.Rows.Add(row.ItemArray)
                    x += 1
                    progras.Value = x
                Next
            End If
        End If
    End Sub 

(24-12-19, 05:43 PM)asemshahen5 كتب : [ -> ]تفضل أخي العزيز :

PHP كود :

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dgv1.DataSource = Nothing If DS.Tables.Count > 0 Then progras.Maximum = DS.Tables(Cmb_SheetName.Text).Rows.Count - 1 progras.Value = 0 Dgv1.Columns.Clear() For i As Integer = 0 To DS.Tables(Cmb_SheetName.Text).Columns.Count - 1 Dgv1.Columns.Add(DS.Tables(Cmb_SheetName.Text).Columns(i).ColumnName.ToString, DS.Tables(Cmb_SheetName.Text).Columns(i).Caption) Next Dim x As Integer = 0 Dgv1.Rows.Clear() If DS.Tables(Cmb_SheetName.Text).Rows.Count > 0 Then For Each row As DataRow In DS.Tables(Cmb_SheetName.Text).Rows Dgv1.Rows.Add(row.ItemArray) x += 1 progras.Value = x Next End If End If End Sub

شغال أخي 10 / 10 بارك الله فيك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

sofiane-phy

asemshahen5

sofiane-phy