RedimColumns
Sub ResizeListView(ListView As ComctlLib.ListView) Dim head As ColumnHeader With ListView For Each head In .ColumnHeaders head.Width = .Width / .ColumnHeaders.Count Next End With End Sub
Sub ResizeListView(ListView As ComctlLib.ListView)
Dim head As ColumnHeader
With ListView
For Each head In .ColumnHeaders
head.Width = .Width / .ColumnHeaders.Count
Next
End With
End Sub
( redimcolumns.html )- by Paolo Puglisi
- Modifica del 17/12/2023