listbox'ta kolon genişliğini ayarlama

[microaim]

Merhaba arkadaşlar;

Listbox'ta kolonlar var. kolon genişliğini nasıl ayarlayabiliriz. mesela "aoutosize" gibi bir özellik var mı? ya da 1. kolonun genişliği 10, 2. kolonun genişliği 20 gibi ayarlayabilir miyiz?

Şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodu aşağıdaki şekilde değiştirip denermisiniz. Kırmızı renkli satır ile kolon genişlik ayarı yapılmıştır.

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 3
[COLOR=red]    ListBox1.ColumnWidths = "50,50,100"
[/COLOR]    For i = 1 To [a65536].End(3).Row
    If Cells(i, 1) <> "" Then
    c = c + 1
    With ListBox1
    .AddItem
    .List(c - 1, 0) = Cells(i, 1)
    .List(c - 1, 1) = Cells(i, 3)
    .List(c - 1, 2) = Cells(i, 5)
    End With
    End If
    Next
End Sub

 

[microaim]

çok teşekkür ederim.
iyi çalışmalar...