Auto size column listview

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal
wParamAs Long, lParam As Any) As Long
 

Public Const LVM_FIRST As Long = &H1000
Public Const LVM_SETCOLUMNWIDTH As Long = (LVM_FIRST + 30)
Public Const LVSCW_AUTOSIZE As Long = -1
Public Const LVSCW_AUTOSIZE_USEHEADER As Long = -2 'Note: On last column, its width fills remaining width
                                            'of list-view according to Micro$oft. This does not
                                            'appear to be the case when I do it.


'Auto Size Column
Public Sub AutoSizeColumnLv(lv As ListView)
Dim ii As Integer
Dim szKey As String
Dim objItem As ListItem
    
    With lv
        szKey = CStr(Now)
        'frank_lupo add new element title in listview
        Set objItem = .ListItems.Add(1, szKey, .ColumnHeaders(1).Text & "  ")



  SendMessage .hWnd, LVM_SETCOLUMNWIDTH, 0, LVSCW_AUTOSIZE
        For ii = 1 To .ColumnHeaders.Count - 1
            objItem.SubItems(ii) = .ColumnHeaders(ii + 1).Text & "  "
            SendMessage .hWnd, LVM_SETCOLUMNWIDTH, ii, LVSCW_AUTOSIZE
        Next
        'frank_lupo drop element title in listview
        .ListItems.Remove szKey
    End With
End Sub


Bye !!
Frank Lupo (Wolf) !!

       /\_ _/\
       \ o o /
--ooo-----ooo---





--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f

Sponsor:
Tariffe promozionali per viaggiare in tutto il mondo, clicca e scopri dove prenotare
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=1258&d=10-2