(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

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

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

(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

(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