LLAMAR FUNCIONES
Publicado por PABLO (9 intervenciones) el 29/09/2004 06:56:41
Tengo la siguiente funcion.....en un modulo bas cuando la llamo de un form....de esta forma....call Ajusta_Flex(Msflexgrid1,Form1) me tira el error "No se ha definido el tipo definido por el usuario" porke?
Public Sub Ajusta_Flex(ByVal flx As MSFlexGrid, frm As Form)
Dim r As Long
Dim C As Long
Dim cell_wid As Single
Dim col_wid As Single
For C = 0 To flx.Cols - 1
col_wid = 0
For r = 0 To flx.Rows - 1
cell_wid = frm.TextWidth(flx.TextMatrix(r, C))
If col_wid < cell_wid Then col_wid = cell_wid
Next r
flx.ColWidth(C) = col_wid + 120
Next C
End Sub
Valora esta pregunta


0