Skip to main content

AccessTr.neT


Datagridin her satırına otomatik sayı ekleme

Datagridin her satırına otomatik sayı ekleme

Çözüldü #1
Merhabalar datagridin her satırına otomatik sayıyı nasıl ekleyebilirim şimdiden teşekkür ederim...
Cevapla
Çözüldü #2
daha açıklayıcı anlatır mısınız.

access veritabanında otomatik sayı bölümü oluşturabilirsin.
<<< 10-HAGİ-10 >>>
Son Düzenleme: 28/04/2013, 20:57, Düzenleyen: mcmaho.
Cevapla
Çözüldü #3
(28/04/2013 11:40)sngl07 Adlı Kullanıcıdan Alıntı: 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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da