Ver Mensaje Individual
  #3 (permalink)  
Antiguo 08/09/2005, 08:14
Avatar de sagma
sagma
 
Fecha de Ingreso: septiembre-2004
Ubicación: Santa Cruz de la Sierra - Bolivia
Mensajes: 136
Antigüedad: 20 años, 5 meses
Puntos: 1
Este código puede orientarte un poco, aunque no es exactamente lo que tu quieres hacer:

Sub Confi_Grid()
'####################
'Configurar el Grid #
'####################

'Cabecera Grid
Grid.CaptionText = "Diligencias"
Grid.CaptionBackColor = Color.CadetBlue
Grid.CaptionForeColor = Color.MidnightBlue

'Crear un objeto para el estilo del Grid
Dim oestiloGrid As New DataGridTableStyle
With oestiloGrid
.MappingName = "DILIGENCIAS"
.BackColor = Color.FromArgb(192, 252, 192)
.AlternatingBackColor = Color.FromArgb(255, 255, 192)
.ForeColor = Color.Red
.GridLineColor = Color.White
.HeaderBackColor = Color.LightSeaGreen
.HeaderForeColor = Color.White
End With

'Crear las columnas que queremos mostrar.
Dim oColGrid As DataGridTextBoxColumn

'Configuramos 1ª Columna --------------0000000000000----------------
oColGrid = New DataGridTextBoxColumn
oColGrid.TextBox.Enabled = False
oColGrid.Alignment = HorizontalAlignment.Center
oColGrid.HeaderText = "Dilig"

'Nombre de la columna del Dataset que se mapea
oColGrid.MappingName = "Nº DILIGEN"
oColGrid.Width = 40

'añadimos los estilos
oestiloGrid.GridColumnStyles.Add(oColGrid)
oColGrid = Nothing

'Configuramos 2ª Columna --------------0000000000000----------------
oColGrid = New DataGridTextBoxColumn
oColGrid.TextBox.Enabled = False
oColGrid.Alignment = HorizontalAlignment.Center
oColGrid.HeaderText = "Fecha"

'Nombre de la columna del Dataset que se mapea
oColGrid.MappingName = "Fecha"
oColGrid.Width = 80

'añadimos los estilos
oestiloGrid.GridColumnStyles.Add(oColGrid)
oColGrid = Nothing

'Configuramos 3ª Columna --------------0000000000000----------------
oColGrid = New DataGridTextBoxColumn
oColGrid.TextBox.Enabled = False
oColGrid.Alignment = HorizontalAlignment.Left
oColGrid.HeaderText = "Concepto"

'Nombre de la columna del Dataset que se mapea
oColGrid.MappingName = "Concepto"
oColGrid.Width = 300

'añadimos los estilos
oestiloGrid.GridColumnStyles.Add(oColGrid)
oColGrid = Nothing

'Configuramos 4ª Columna --------------0000000000000----------------
oColGrid = New DataGridTextBoxColumn
oColGrid.TextBox.Enabled = False
oColGrid.Alignment = HorizontalAlignment.Left
oColGrid.HeaderText = "Juzgado"

'Nombre de la columna del Dataset que se mapea
oColGrid.MappingName = "Juzgado"
oColGrid.Width = 100

'añadimos los estilos
oestiloGrid.GridColumnStyles.Add(oColGrid)
oColGrid = Nothing

Me.Grid.TableStyles.Add(oestiloGrid)

'########################
'FIN Configurar el Grid #
'########################

Suerte
__________________
Sagma -- :arriba: