
08/09/2005, 08:14
|
 | | | 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: |