USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página