Optimální šířka sloupce v ListView
Postup:
Na formulář přidejte prvek ListView a jmenovku, které dejte
vlastnosti Visible=False a Autosize=True.
Dim
text As String
text = "Velice dlouhý text, který přidáme do
prvku ListView"
Label1.Caption = text & " "
If ListView1.ColumnHeaders(1).Width < Label1.Width
Then
ListView1.ColumnHeaders(1).Width
= Label1.Width
End If
ListView1.ListItems.Add , , text