28/04/2013, 11:40
28/04/2013, 20:56
29/04/2013, 02:25
(28/04/2013, 11:40)sngl07 yazdı: [ -> ]Merhabalar datagridin her satırına otomatik sayıyı nasıl ekleyebilirim şimdiden teşekkür ederim...
Kod:
Public Class satirno
Shared Sub Datagrid_satır_no(ByVal dg As DataGridView)
Dim rowNumber As Integer = 1
For Each row As DataGridViewRow In dg.Rows
If row.IsNewRow Then
Continue For
End If
row.HeaderCell.Value = rowNumber.ToString()
rowNumber = rowNumber + 1
Next
dg.AutoResizeRowHeadersWidth(DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders)
dg.RowHeadersDefaultCellStyle.ForeColor = Color.SlateGray
dg.RowHeadersDefaultCellStyle.Font = New System.Drawing.Font("Verdana", 7.5, FontStyle.Bold)
End Sub
Shared Sub Datagrid_satır_rengi(ByVal dg As DataGridView)
For k As Integer = 0 To dg.Rows.Count - 1 Step 2
dg.Rows(k).DefaultCellStyle.BackColor = Color.LightCyan
Next
For c As Integer = 1 To dg.Rows.Count - 2 Step 2
dg.Rows(c).DefaultCellStyle.BackColor = Color.AliceBlue
Next
dg.RowHeadersDefaultCellStyle.BackColor = Color.AliceBlue
dg.ColumnHeadersDefaultCellStyle.BackColor = Color.AliceBlue
End Sub
End ClassBen kendime bir class oluşturdum ve bu şekilde kullanıyorum. Sorunun ardı renklendirme olacağı için o kodlarıda vereyim yeni konu açma bari dedim
Kod:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
DataGridView1.EnableHeadersVisualStyles = False
DataGridView1.ColumnHeadersDefaultCellStyle.ForeColor = Color.SlateGray ' başlık rengini değiştir
DataGridView1.ColumnHeadersDefaultCellStyle.Font = New System.Drawing.Font("Tahoma", 7.5, FontStyle.Bold) ' başlık font stili
satirno.Datagrid_satır_no(DataGridView1)
satirno.Datagrid_satır_rengi(DataGridView1)
End Sub