منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ProgressBar من فظلكم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ProgressBar من فظلكم (/showthread.php?tid=32669)

ProgressBar من فظلكم - sofiane-phy - 24-12-19

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

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


RE: ProgressBar من فظلكم - asemshahen5 - 24-12-19

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

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 


RE: ProgressBar من فظلكم - sofiane-phy - 24-12-19

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