Formun initialize olayında listbox a önce satırları yazdırmak

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar formun açılış olayında ilkin
aşağıdaki listeyi ListBox1'in ilk sütununa yazdırma istiyorum. Daha sonra yapacağım bazı işlemlere göre 2.sütunları işleyeceğim. Fakat açılışta listeyi listbax a ekleyemiyorum. RunTime error 381 alıyorum. Değişik bir kaç kod bloğu denememe rağmen beceremedim. Şimdi böyle bir özellik mi yok , ben mi kodları beceremedim muallakta kaldım. İlgilenen arkadaşlara şimdiden teşekkürler.



Private Sub UserForm_Initialize()
With ListBox1

ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "80;35"

.AddItem
.List(0, 0) = "Denizli"
.List(1, 0) = "Antalya"
.List(2, 0) = "Ankara"
.List(3, 0) = "Isparta"

End With

End Sub

 

[Korhan Ayhan]

Merhaba,

Foruma kod eklerken mesajı yazdığınız alandaki code tagına yani # işaretine basıp eklerseniz daha şık görünür.

Kullandığınız kodda mantık hatası var.

List(X, Y) yöntemi genellikle döngülerde kullanılır. Siz ADDITEM yöntemini kullanmalısınız.

Private Sub UserForm_Initialize()
    With ListBox1
        .ColumnCount = 2
        .ColumnWidths = "80;35"
        .AddItem "Denizli"
        .AddItem "Antalya"
        .AddItem "Ankara"
        .AddItem "Isparta"
    End With
End Sub

 

[halit3]

Alternatif kod
not:kotları eklerken CODE tagı içine ekleyin

CODE][/CODE

Private Sub UserForm_Initialize()

ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "80;35"

With ListBox1
.AddItem
.List(0, 0) = "Denizli"
.AddItem
.List(1, 0) = "Antalya"
.AddItem
.List(2, 0) = "Ankara"
.AddItem
.List(3, 0) = "Isparta"
End With

End Sub

 

[excellcan]

Korhan hocam , Halit hocam teşekkürler.