Sección vb.net

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones empresariales sobre base de datos

56 - Alternar color de filas en un dataGridView

Ejemplo para alternar mediante la propiedad backColor del objeto AlternatingRowsDefaultCellStyle , el color de filas en un control Datagridview

Formulario

Controles

Un DataGridview ( DataGridView1 )
un CheckBox

Código fuente

Option Explicit On Option Strict On Public Class Form1 Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load CheckBox1.Text = "Alternar color de fila" ' Agregar 3 headers With DataGridView1 .Columns.Add("Id Factura", "Id Factura") .Columns.Add("Fecha", "Fecha") .Columns.Add("Vencimiento", "Vencimiento") ' Cargar algunos items en el DataGridView ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' .RowCount = 100 For Fila As Integer = 0 To .RowCount - 1 .Item(0, Fila).Value = Fila .Item(1, Fila).Value = Date.Now.AddDays(Fila).ToShortDateString .Item(2, Fila).Value = Date.Now.AddDays(Fila + 10).ToShortDateString Next ' Establecer el RowsDefaultCellStyle - color de fondo de las celdas .RowsDefaultCellStyle.BackColor = Color.White ' alineación para la columna 1 .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter End With End Sub Private Sub CheckBox1_CheckedChanged( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged With DataGridView1 ' alternar colores If CheckBox1.Checked Then .RowsDefaultCellStyle.BackColor = Color.White .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue Else ' Sin alternar .AlternatingRowsDefaultCellStyle.BackColor = .RowsDefaultCellStyle.BackColor End If End With End Sub End Class

Recursos Visual basic 6.0 - Enlaces relacionados

Alternar color de filas y columnas en MsFlexGrid

Buscar en Recursos vb