Prezados, bom dia..

 

        Como ajustar dinamicamente o tamanho das colunas no flex grid em função do conteudo da mesma ??

 

        A exemplo da seção de dicas e outro postado aqui precisa de mais detalhes.

        Neste exemplo, quem é a função  TextWidth ?? É api ??

    

 

    Dim Largura As Double, Linha As Integer
    Largura = 0: Linha = 0
    For Linha = 1 To grid1.Rows - 1
        If grid1.TextMatrix(Linha, 1) <> "" Then
            If TextWidth(grid1.TextMatrix(Linha, 1)) > Largura Then
                Largura = TextWidth(grid1.TextMatrix(Linha, 1))
            End If
        End If
    Next
    grid1.ColWidth(1) = Largura + 200
 

se vc quiser bloquear o redimensionamento das colunas por parte do usuário:

grid.AllowUserResizing = flexResizeNone

 

agora se quiser manter apenas um coluna, vc teria que usar

grid1.ColWidth(1) = tamanhofixo

dentro da sub form_resize

 

t+

 

Eu que passei essa rotina, não funcionou?

TextWidth pega o tamanho do texto acho que em pixel, sei la... rs

Peguei essa rotina no site de vb da microsoft....

Eu acho que é uma função do proprio vb, pois não precisei referenciar a nada e funcionou beleza pra mim.... T+

Elli, bom dia..

 

     Procurei a sua dica na pagina da microsoft, realmente o metodo esta lá, mas funciona somente no proprio form, se usar como função genérica (modulo ou public no form principal) ele não reconhece o metodo.

     De qualquer forma obrigado.

     Senão encontrar outro jeito, terei que utiliza-lo em cada form.

 

     Um abraço..