|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Arquivos/Diretórios)
|
|
 |
Título da Dica: Ajustar os campos da MSFlexGrid de acordo com seu conteúdo
|
 |
|
|
|
Postada em 14/7/2004 por Leonardo
lirazoqui@bol.com.br
Private Sub AjustaTamanho(FG As MSFlexGrid)
'--------------------------------------------------------------------------------------------------
'Objetivo...: Ajustar o tamanho dos campos da Flex Grid
'Programador: Flávio Paganini
'Data.......: 28/04/2004
'--------------------------------------------------------------------------------------------------
Dim L As Integer
Dim C As Integer
Dim MT As Long
Dim TP As Long
For C = 0 To FG.Cols - 1
MT = 0
TP = 0
For L = 0 To FG.Rows - 1
TP = frmRel.TextWidth(FG.TextMatrix(L, C))
If TP > MT Then MT = TP
Next
FG.ColWidth(C) = MT + 128
Next
End Sub
|
|
|
|
|
