AccessTr.neT
Datagridin her satırına otomatik sayı ekleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Datagridin her satırına otomatik sayı ekleme (/konu-datagridin-her-satirina-otomatik-sayi-ekleme.html)



Datagridin her satırına otomatik sayı ekleme - sngl07 - 28/04/2013

Merhabalar datagridin her satırına otomatik sayıyı nasıl ekleyebilirim şimdiden teşekkür ederim...


Cvp: Datagridin her satırına otomatik sayı ekleme - mcmaho - 28/04/2013

daha açıklayıcı anlatır mısınız.

access veritabanında otomatik sayı bölümü oluşturabilirsin.


Cvp: Datagridin her satırına otomatik sayı ekleme - drummers - 29/04/2013

(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