20/06/2006, 17:31
|
 | | | Fecha de Ingreso: febrero-2006 Ubicación: Entre cuatro paredes
Mensajes: 693
Antigüedad: 18 años, 3 meses Puntos: 7 | |
Cita:
Private sub Define_Grid()
with Grid
.clear
.rows=1
.col=8
.Row = 0
.Col = 0
.Text = ""
.ColWidth(0) = 0
.CellAlignment = 4
.Col = 1
.Text = "Campo"
.ColWidth(1) = 2000
.CellAlignment = 4
.Col = 2
.Text = "Campo"
.ColWidth(2) = 2000
.CellAlignment = 4
.
.
.
.
.Col = 8
.Text = "Campo"
.ColWidth(8) = 2000
.CellAlignment = 4
end with
end sub
__________________
Sí tienes alguna duda.... puedo ayudar a ampliarla.:-D |