ListBox da sütun başlığını sabitleme

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarda sorun yok. Ta ki en sonuncu satırdaki koda (ListBox1.ColumnHeads = True) kadar. Derdim sayfa1 de A1:E1 aralığındaki sütun başlıklarını ListBoxa sabitlemek. İlgilenen arkadaşlara şimdiden teşekkürler.

For satir = 2 To son
If .Cells(satir, "B") > tar1 And .Cells(satir, "B") < tar2 Then

tutar = tutar + syf1.Cells(satir, "E")

ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = syf1.Range("A" & satir)
ListBox1.List(ListBox1.ListCount - 1, 1) = syf1.Range("B" & satir)
ListBox1.List(ListBox1.ListCount - 1, 2) = syf1.Range("C" & satir)
ListBox1.List(ListBox1.ListCount - 1, 3) = syf1.Range("D" & satir)
ListBox1.List(ListBox1.ListCount - 1, 4) = syf1.Range("E" & satir)

End If

Next

TextBox7.Value = tutar
TextBox8.Value = TextBox6.Value - tutar

ListBox1.ColumnHeads = True

 

[Korhan Ayhan]

Merhaba,

Listbox nesnesinin üst kısmına Label nesneleri ekleyerek sütun başlıklarınızı oluşturabilirsiniz.