AJUSTAR COLUNAS DO LIST VIEW

SACOFRITO 16/02/2011 15:06:55
#365637
Bom dia pessoal,
Acho que poode ser de inteeresse de muitos minha duvida.
é um saco ficar mexendo nas propriedades do List View para ajustar as colunas conforme o tamanho do seu objeto no form.
Existe algum meio mais simples/pratico de fazer isso?

Obrigado!
MARCELO.TREZE 16/02/2011 16:19:22
#365670
No general do form


[ô]
Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function LockWindowUpdate Lib [Ô]user32[Ô] (ByVal hwndLock As Long) As Long
[ô]
Const LVM_Min As Long = &H1000
Const LVM_SETCOLUMNWIDTH As Long = (LVM_Min + 30)
Const LVSCW_AUTOSIZE As Long = -1
Const LVSCW_AUTOSIZE_USEHEADER As Long = -2


Sub AutoAjust(Lst As ListView)
    LockWindowUpdate Lst.hWnd
    Dim i As Integer
    For i = 0 To Lst.ColumnHeaders.Count
    SendMessage Lst.hWnd, LVM_SETCOLUMNWIDTH, i, LVSCW_AUTOSIZE_USEHEADER
    LockWindowUpdate 0
    Next
End Sub


no Load basta chamar

AutoAjust ListView1
Tópico encerrado , respostas não são mais permitidas
Voltar