|
|
|
|
|
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
|
|
|
|
|