Private Sub DataGridView1_ColumnHeaderCellChanged(sender As Object, e As DataGridViewColumnEventArgs) Handles DataGridView1.ColumnHeaderCellChanged For Each Row As DataGridViewRow In DataGridView1.Rows If Row.IsNewRow Then Continue For Row.HeaderCell.Value = (Row.Index + 1).ToString Next End Sub
Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint Dim strRowNumber As String = (e.RowIndex + 1).ToString Dim size As SizeF = e.Graphics.MeasureString(strRowNumber, Me.Font)
DataGridView1.RowHeadersWidth = 60
Dim b As Brush = SystemBrushes.ControlText e.Graphics.DrawString(strRowNumber, Me.Font, b, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2)) End Sub
أستاذي الوادي
انا جربت جميع الاكواد اللي تخطر في بالك دون جدوى
انا ارفقت المشروع إذا ممكن لو تكرمت تتفضل وتعدله لانه حيرني جدا جدا
جزاك الله خيرا استاذي الكريم