Unidad 53. DataGrid (II)

  With DataGrid

   ' Forma de acople del objeto a su contenedor, el Form

   .Dock = DockStyle.None 

      ' DockStyle.None, respeta el formato del diseño

      ' DockStyle.Fill, genera espacio para cada columna y activa la barra

      '                 horizontal si es necesario.

      '                 los demás no generan pegas.

   ' Color de fondo de la zona no ocupada por el datagrid

   .BackgroundColor = Formulario.BackColor

 

   ' texto del datagrid

   .ForeColor = Color.Black

 

   ' Estilo del borde

   .BorderStyle = BorderStyle.None

 

   ' Estilo del objeto

   .CellBorderStyle = DataGridViewCellBorderStyle.Sunken

 

   ' color de las lineas entre celdas, el grid

   .GridColor = SystemColors.ActiveBorder

 

   ' Columna de cursor lateral

   .RowHeadersVisible = False

 

   ' Asignar color de fondo de la celda que toma el foco

   .DefaultCellStyle.SelectionBackColor = Color.White

 

   ' Asignar color de primer plano de la celda que toma el foco

   .DefaultCellStyle.SelectionForeColor = Color.Black

 

   ' Generar columnas automático

   .AutoGenerateColumns = False

 

   ' fila seleccionada

   .RowsDefaultCellStyle.SelectionBackColor = Color.LightGreen

 

   ' Asignar valores apropiados para solo lectura

   .AllowUserToAddRows = Estado

   .AllowUserToDeleteRows = Estado

   .AllowUserToOrderColumns = Estado

   .EditMode = DataGridViewEditMode.EditOnEnter

   .ReadOnly = False

    ' Sistema de selección de las celdas

    .SelectionMode = DataGridViewSelectionMode.FullRowSelect

    .MultiSelect = False

    ' Dimensionar las columnas del DataGrid para ajustarlas al contenido cargado

    .AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader)

    ' El formato de tamaño de las celdas, influye sobre las de

    '              AllowUserToResize...

   .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None

    ' El usuario puede o no cambiar el tamaño

    ' en alto o ancho de las filas o columnas

    .AllowUserToResizeColumns = True

    .AllowUserToResizeRows = False

  End With

 

  With DataGrid.ColumnHeadersDefaultCellStyle

    ' Asignar la fila y columna de estilo de cabecera

    .ForeColor = Color.Balck

    .BackColor = Color.Turquoise

    .Alignment = DataGridViewContentAlignment.MiddleCenter

    ' Color fila seleccionada

    .SelectionForeColor = Color.SpringGreen        

    .WrapMode = DataGridViewTriState.NotSet

  End With

 

  With DataGrid

   .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing

   .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.None

 

   ' Asignar estilo de selección de fila de cabecera por defecto de forma que

   ' el valor no se superponga a los valores de estilo de las celdas.

   .RowHeadersDefaultCellStyle.SelectionBackColor = Color.Tomato      

   .RowHeadersDefaultCellStyle.BackColor = Color.Blue

   .RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.AutoSizeToFirstHeader

 

    ' Asignar el color de fondo para todas las filas y para forma alternativa

    .AlternatingRowsDefaultCellStyle.BackColor = Color.SkyBlue

    .RowsDefaultCellStyle.BackColor = Color.White

  End With

  With DataGrid

   ' Ajuste de ubicación

   .Top = CInt(Me.Height * 0.05)

   .Left = CInt(Me.Width * 0.05)

   .Width = CInt(Me.Width * 0.9)

   .Height = CInt(Me.Height * 0.6)

 

   ' Forma de acople

   .Dock = DockStyle.None      

 

   ' Ajustarlo las columnas

   .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill

   .Columns.Item(0).Width = CInt(DataGrid.Width * 0.1)

   .Columns.Item(1).Width = CInt(DataGrid.Width * 0.3)

   .Columns.Item(2).Width = CInt(DataGrid.Width * 0.15)

   .Columns.Item(3).Width = CInt(DataGrid.Width * 0.2)

   .Columns.Item(4).Width = CInt(DataGrid.Width * 0.2)

 

   ' Asignación, o cambio del texto de cabecera

   .Columns(0).HeaderText = "Codigo"

   .Columns(1).HeaderText = "Denominación"

   .Columns(2).HeaderText = "Importe"

   ' Alineación de la columna, centrada verticalmente y a la derecha

   .Columns(2).DefaultCellStyle.Alignment=DataGridViewContentAlignment.MiddleRight

 End With