AUTO SIZE EM UM MSFLEXGRID
Galera, tava precisando colocar um msflexgrid com a opção de redimensionar a célula de acordo com o texto, para não ficar cortado o conteúdo e nem precisar ficar redimensionando toda vez que abrir...
se alguém puder me ajudar..
Vlw.
se alguém puder me ajudar..
Vlw.
cara, acredito que dá pr fazer coma função TextHeight, e pegar o valor retornado e atribuir na altura das células ... é na base da gambiarra, deve funcionar, mas acho que vai dá uma certa lentidão dr forem muitos registros.
Boa tarde amigo!
Testa ai... uma gambiarra...
msflexgrid.ColWidth(0) = Len(campo com o texto) * 100
Vais ter que fazer pra todas as colunas do Flex, mas se for só uma coluna é barbada!
Abraço
Testa ai... uma gambiarra...
msflexgrid.ColWidth(0) = Len(campo com o texto) * 100
Vais ter que fazer pra todas as colunas do Flex, mas se for só uma coluna é barbada!
Abraço
[ô]Ajusta as colunas do grid para o tamanho do texto contido nas celulas
Max_Row = MSFlexGrid1.Rows - 1
For C = 0 To MSFlexGrid1.Cols - 1
Max_Wid = 0
For R = 0 To Max_Row
Wid = TextWidth(MSFlexGrid1.TextMatrix(R, C))
If Max_Wid < Wid Then Max_Wid = Wid
Next R
MSFlexGrid1.ColWidth(C) = Max_Wid + 240
Next C
cara coloca esse trecho de código logo apos vc povoar seu grid.......
isso é [Ô]Mágico[Ô] ....
espero que te ajude....
Max_Row = MSFlexGrid1.Rows - 1
For C = 0 To MSFlexGrid1.Cols - 1
Max_Wid = 0
For R = 0 To Max_Row
Wid = TextWidth(MSFlexGrid1.TextMatrix(R, C))
If Max_Wid < Wid Then Max_Wid = Wid
Next R
MSFlexGrid1.ColWidth(C) = Max_Wid + 240
Next C
cara coloca esse trecho de código logo apos vc povoar seu grid.......
isso é [Ô]Mágico[Ô] ....
espero que te ajude....
Vlw galera, deu certo aki....
Tópico encerrado , respostas não são mais permitidas