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