AccessTr.neT

Tam Versiyon: Datagridin her satırına otomatik sayı ekleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhabalar datagridin her satırına otomatik sayıyı nasıl ekleyebilirim şimdiden teşekkür ederim...
daha açıklayıcı anlatır mısınız.

access veritabanında otomatik sayı bölümü oluşturabilirsin.
(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 Class

Ben 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 Img-grin

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