Auto size column listview

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As 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