ListView Spaltenbreite
17.05.2005 11:38:28
Heiko
ich probiere gerade mit dem ListView Steuerelement rum. Dazu habe ich folgenden
Test Code.
Private Sub UserForm_Initialize()
Dim intI%
With ListView1
.Width = 260
.ColumnHeaders.Add , , "Test 1", 80
.ColumnHeaders.Add , , "Test 2", 80
.ColumnHeaders.Add , , "Test 3", 80
.View = 3
For intI = 1 To 10
.ListItems.Add , , "Name " & CStr(intI)
.ListItems(intI).SubItems(1) = CStr(ActiveSheet.Range("A" & intI))
.ListItems(intI).SubItems(2) = CStr(ActiveSheet.Range("B" & intI))
Next intI
End With
End Sub
Klappt auch alles wunderbar, nur eine Frage habe ich dazu.
Kann man Listview irgendwie so einstellen, das per Maus die Spaltenbreite am Header NICHT verändert werden kann?
Danke für eure Bemühnungen und Tipps.
Gruß Heiko