Visual Basic.NET - AUMENTAR ANCHO DE LAS COLUMNAS DE UN DATAGRID

 
Vista:

AUMENTAR ANCHO DE LAS COLUMNAS DE UN DATAGRID

Publicado por Miguel (88 intervenciones) el 11/07/2005 18:10:07
Hola, quisiera saber si alguien sabe como aumentar el tamaño de las columnas de un datagrid que lo tengo enlazado a una tabla de mi base de datos.
Por favor, si alguien sabe como hacerlo, les pido que me ayuden.

Salu2.
Miguel.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:AUMENTAR ANCHO DE LAS COLUMNAS DE UN DATAGRID

Publicado por sagma (45 intervenciones) el 12/07/2005 18:32:05
espero que sea lo que buscas

Sub ConfigurarGrilla()

dgac352.CaptionText = "Ingreso de Datos para los Certificados Valorados"
dgac352.CaptionForeColor = Color.Cyan

'crenado un estilo personalizado y una columna personlizada
Dim myEstiloGrid As DataGridTableStyle = New DataGridTableStyle

With myEstiloGrid
.MappingName = "acprt"
.BackColor = System.Drawing.Color.White
.ForeColor = System.Drawing.Color.DarkSlateBlue
.GridLineColor = System.Drawing.Color.MediumSlateBlue
.HeaderBackColor = System.Drawing.Color.Lavender
.HeaderForeColor = System.Drawing.Color.MediumSlateBlue
.AlternatingBackColor = Color.LightGray
.RowHeaderWidth = 10
End With

'aginando la tabla al que asocia el estilo
myEstiloGrid.MappingName = "acprt"

'agregando caracteristica a una columna
Dim myEstiloCol As New DataGridTextBoxColumn
myEstiloCol.MappingName = "codigo"
myEstiloCol.HeaderText = "Registro"
myEstiloCol.Width = 60
myEstiloCol.NullText = "0"

'Para Otro Campo
Dim myEstiloCol2 As New DataGridTextBoxColumn
myEstiloCol2.MappingName = "nombre"
myEstiloCol2.HeaderText = "Nombre"
myEstiloCol2.Width = 425
myEstiloCol2.NullText = " "

Dim myEstiloCol3 As New DataGridTextBoxColumn
myEstiloCol3.MappingName = "sem"
myEstiloCol3.HeaderText = "Semestre"
myEstiloCol3.Width = 55
myEstiloCol3.NullText = ""

Dim myEstiloCol4 As New DataGridTextBoxColumn
myEstiloCol4.MappingName = "anio"
myEstiloCol4.HeaderText = "Gestion"
myEstiloCol4.Width = 50
myEstiloCol4.NullText = "0"

'agregando el primer estilo
myEstiloGrid.GridColumnStyles.Add(myEstiloCol)
'agrengando el segundo estilo
myEstiloGrid.GridColumnStyles.Add(myEstiloCol2)
myEstiloGrid.GridColumnStyles.Add(myEstiloCol3)
myEstiloGrid.GridColumnStyles.Add(myEstiloCol4)

'agrengando el estilo a la grilla
dgac352.TableStyles.Add(myEstiloGrid)

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar