Usar Set col1 = frmc_depto.DataGrid2.Columns(1), para cambiar el tamaño del campo.

isela
01 de Marzo del 2004
hola, amigos del foro, si por ahi alguien puede ayudarme envio un codigo, en donde mando a poner los nombres de los campos desde codigo...pero ahora quisiera poder ponerle un tamaño... se que con width pero no me ha funcionado, tal vez tengo mal la sintaxis...que puedo hacer


Private Sub DataGrid1_DblClick()
Dim Col0, col1, Col2, Col3, col4, Col5, Col6, Col7, col8, Col9, Col10, col11, Col12, Col13, col14, Col15, Col16, col17 As Column
Dim cvarea As String
Text2.Text = DataGrid1.Columns(0).Text
cvarea = Trim(Text2.Text)
tabla = UCase(Text1.Text)
If tabla = "AREA" Then
busca_a = "select * from departamento where departamento.dpcvae='" & cvarea & "'" 'ORDER BY departamento.dpcvae"
frmc_depto.Adodc1.RecordSource = busca_a
frmc_depto.Adodc1.Refresh
Set Col0 = frmc_depto.DataGrid2.Columns(0)
Set col1 = frmc_depto.DataGrid2.Columns(1)
Col0.Caption = "CLAVE DEL DEPARTAMENTO"
col1.Caption = "NOMBRE DEL DEPARTAMENTO"
'frmconsultas.Text1 = "area"
frmc_depto.Show
ENDIF
ENSUB

sdemingo
01 de Marzo del 2004
For i = 0 To Me.DataGrid1.Columns.Count - 1
Me.DataGrid1.Columns(i).Width = Me.DataGrid1.Width / 3
Next i