[sofiane-phy]

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

من فضلكم اريد عمل 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

[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 


[sofiane-phy]

(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 بارك الله فيك