Largura da coluna do listview

[delley 0]

olá para todos!Como deixar uma coluna do listview com largura fixa, ou seja, quando o listview for preenchido a coluna tem que ficar da largura do maior item, sem ter que redimensionar manualmente.obs.: vb 6.0[delley]

[Graymalkin 0]

A função GetTextExtentPoint32 da GDI32 pode te fornecer o tamanho (em pixels) do maior texto da listview (percorrendo todos eles e determinando o maior, é claro). Bastaria então converter para twips (a medida padrão do VB) e ajustar o tamanho da coluna, não? ;) Abraços,Graymalkin

[delley 0]

A função GetTextExtentPoint32 da GDI32 pode te fornecer o tamanho (em pixels) do maior texto da listview (percorrendo todos eles e determinando o maior, é claro). Bastaria então converter para twips (a medida padrão do VB) e ajustar o tamanho da coluna, não? ;)

 

Abraços,

 

Graymalkin

<{POST_SNAPBACK}>

Valeu, mas fui meio burro em pergutar isso, acabei de descobrir que bastava aumentar o valor de width em collumn headers! http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

há, da uma olhada nessa solução que encontrei.

 

Dim text As String    text = "Foi adicionada uma frase muito grande ao ListView"    ' Adicione também uns espaços no fim para um bom tamanho:    Label1.Caption = text & "  "    ' Compare o tamhanho da coluna com o tamanho do label:    If ListView1.ColumnHeaders(1).Width < Label1.Width Then        ' Aumente a largura se necessário        ListView1.ColumnHeaders(1).Width = Label1.Width    End If        ListView1.ListItems.Add , , text

Agora é só dá uma implementada que acho que fica bom http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

até mais

 

[delley]

[Graymalkin 0]

A função GetTextExtentPoint32 da GDI32 pode te fornecer o tamanho (em pixels) do maior texto da listview (percorrendo todos eles e determinando o maior, é claro). Bastaria então converter para twips (a medida padrão do VB) e ajustar o tamanho da coluna, não? ;)

 

Abraços,

 

Graymalkin

<{POST_SNAPBACK}>

Valeu, mas fui meio burro em pergutar isso, acabei de descobrir que bastava aumentar o valor de width em collumn headers! http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

há, da uma olhada nessa solução que encontrei.

 

Dim text As String    text = "Foi adicionada uma frase muito grande ao ListView"    ' Adicione também uns espaços no fim para um bom tamanho:    Label1.Caption = text & "  "    ' Compare o tamhanho da coluna com o tamanho do label:    If ListView1.ColumnHeaders(1).Width < Label1.Width Then        ' Aumente a largura se necessário        ListView1.ColumnHeaders(1).Width = Label1.Width    End If        ListView1.ListItems.Add , , text

Agora é só dá uma implementada que acho que fica bom http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

até mais

 

[delley]

<{POST_SNAPBACK}>

É, uma solução legal essa de utilizar uma label (já que ela pode se redimensionar sozinha). :D

 

Abraços,

 

Graymalkin