[سمير جمال]

اريد ترقيم الداتا جريد فيو 

[rmnr]

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   DataGridView1.RowHeadersWidth = 50

End Sub

Private Sub DataGridView1_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
   Dim x = 14
   If sender.RightToLeft = Windows.Forms.RightToLeft.Yes Then x = e.RowBounds.Width - x
   e.Graphics.DrawString(e.RowIndex + 1, sender.Font, Brushes.Black, New Point(x, e.RowBounds.Top + 2))
End Sub

[سمير جمال]

(15-11-18, 11:21 AM)rmnr كتب :

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   DataGridView1.RowHeadersWidth = 50

End Sub

Private Sub DataGridView1_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
   Dim x = 14
   If sender.RightToLeft = Windows.Forms.RightToLeft.Yes Then x = e.RowBounds.Width - x
   e.Graphics.DrawString(e.RowIndex + 1, sender.Font, Brushes.Black, New Point(x, e.RowBounds.Top + 2))
End Sub

مشكور اخى فين اضع Private Sub DataGridView1_RowPostPaint ويوجد حظا عندى فى كلمة Windows.Forms

[salah mansour]

كود
 Public Sub dgv_serial()                                        'اجراء لترقيم صفوف الداتا جريد
        For i As Integer = 0 To dgvdata.Rows.Count - 1
            If dgvdata.Rows.Count > 0 Then
                dgvdata.Rows(i).Cells(0).Value = i.ToString + 1
            End If
        Next
    End Sub

    Private Sub dgvdata_RowsAdded(sender As Object, e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles dgvdata.RowsAdded
        dgv_serial()
    End Sub

    Private Sub dgvdata_RowsRemoved(sender As Object, e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) Handles dgvdata.RowsRemoved
        dgv_serial()
    End Sub

[سمير جمال]

(15-11-18, 11:59 AM)salah mansour كتب :

الترقيم ظهر فى خانة المدين انا عايز فى اول خانة

[salah mansour]

(15-11-18, 12:18 PM)سمير جمال كتب : هتضيف عامود للداتا جريد باسم المسلسل
الترقيم ظهر فى خانة المدين انا عايز فى اول خانة

[عبدالله الدوسري]

كود :

   Private WithEvents DGV_AutoNumber As DataGridViewTextBoxColumn
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' DGV_AutoNumber
       Me.DGV_AutoNumber = New System.Windows.Forms.DataGridViewTextBoxColumn()
       Me.DGV_AutoNumber.HeaderText = "م"
       Me.DGV_AutoNumber.Name = "DGV_AutoNumber"
       Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DGV_AutoNumber})
       Me.DGV_AutoNumber.DisplayIndex = 0
   End Sub

   Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
       If e.ColumnIndex = Me.DGV_AutoNumber.Index Then
           e.Value = e.RowIndex + 1
       End If
   End Sub

[أبو خالد الشكري]

(15-11-18, 01:32 PM)عبدالله الدوسري كتب :

كود :

   Private WithEvents DGV_AutoNumber As DataGridViewTextBoxColumn
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' DGV_AutoNumber
       Me.DGV_AutoNumber = New System.Windows.Forms.DataGridViewTextBoxColumn()
       Me.DGV_AutoNumber.HeaderText = "م"
       Me.DGV_AutoNumber.Name = "DGV_AutoNumber"
       Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DGV_AutoNumber})
       Me.DGV_AutoNumber.DisplayIndex = 0
   End Sub

   Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
       If e.ColumnIndex = Me.DGV_AutoNumber.Index Then
           e.Value = e.RowIndex + 1
       End If
   End Sub

رائع جدًا !
الكود شغال 100%
شكرا جزيلا لك .

[aljzazy]

كود :

dgv.RowHeadersVisible = True
dgv.RowHeadersWidth = 60
If dgv IsNot Nothing Then
Dim i As Integer ' = 0
While (i <= (dgv.Rows.Count - 1))
dgv.Rows(i).HeaderCell.Value = String.Format((i + 1), "0")
i += 1
End While
End If

[أبو خالد الشكري]

(27-04-23, 08:36 PM)aljzazy كتب :

كود :

dgv.RowHeadersVisible = True
dgv.RowHeadersWidth = 60
If dgv IsNot Nothing Then
Dim i As Integer ' = 0
While (i <= (dgv.Rows.Count - 1))
dgv.Rows(i).HeaderCell.Value = String.Format((i + 1), "0")
i += 1
End While
End If

أيضًا هذا الكود ممتاز
وشغال 100%
يعطيك الصحة العافية

بس ينقصه تسمية العمود كأن يكون مثلا : الرقم ، أو مسلسل ...