AccessTr.neTVisual Basic 6Visual Basic 6 Cevaplanmış Soruları

Datagridin her satırına otomatik sayı ekleme

28/04/2013, 11:40

sngl07

Merhabalar datagridin her satırına otomatik sayıyı nasıl ekleyebilirim şimdiden teşekkür ederim...
28/04/2013, 20:56

mcmaho

daha açıklayıcı anlatır mısınız.
access veritabanında otomatik sayı bölümü oluşturabilirsin.
29/04/2013, 02:25

drummers

(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
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