AJUSTAR O CONTEUDO DE UMA FLEXGRID
Amigos,
Minha flexgrid esta carregada de dados mas tem campo que não aparecem inteiros, pelo fato da coluna ser pequena na flexgrid, como faço para ajustar as colunas de tamanho com o texto digitado?
Minha flexgrid esta carregada de dados mas tem campo que não aparecem inteiros, pelo fato da coluna ser pequena na flexgrid, como faço para ajustar as colunas de tamanho com o texto digitado?
bem... particularmente eu coloco a fonte para courier... e conto o número de caracteres do maior dado inserido... e coloco a largura da coluna para este número de caracteres * 135
pode não ser a opção mais correta, mas com certeza funciona...
pode não ser a opção mais correta, mas com certeza funciona...
Fiz um evento no meu projeto e funciona muito bem..
Faz um comando de nome organizar por exemplo e cole o código abaixo:
onde grade, vai ser o nome da sua flexgrid.
Private Sub CmdAjustar_Click()
Dim Max_Wid As Single
Dim Wid As Single
Dim Max_Row As Integer
Dim R As Integer
Dim C As Integer
Screen.MousePointer = vbHourglass
'Ajusta as colunas do grid para o tamanho do texto contido nas celulas
Max_Row = GRADE.Rows - 1
For C = 0 To GRADE.Cols - 1
Max_Wid = 0
For R = 0 To Max_Row
Wid = TextWidth(GRADE.TextMatrix(R, C))
If Max_Wid < Wid Then Max_Wid = Wid
Next R
GRADE.ColWidth(C) = Max_Wid + 240
Next C
Screen.MousePointer = vbDefault
End Sub
espero ter ajudado
Faz um comando de nome organizar por exemplo e cole o código abaixo:
onde grade, vai ser o nome da sua flexgrid.
Private Sub CmdAjustar_Click()
Dim Max_Wid As Single
Dim Wid As Single
Dim Max_Row As Integer
Dim R As Integer
Dim C As Integer
Screen.MousePointer = vbHourglass
'Ajusta as colunas do grid para o tamanho do texto contido nas celulas
Max_Row = GRADE.Rows - 1
For C = 0 To GRADE.Cols - 1
Max_Wid = 0
For R = 0 To Max_Row
Wid = TextWidth(GRADE.TextMatrix(R, C))
If Max_Wid < Wid Then Max_Wid = Wid
Next R
GRADE.ColWidth(C) = Max_Wid + 240
Next C
Screen.MousePointer = vbDefault
End Sub
espero ter ajudado
Tópico encerrado , respostas não são mais permitidas