Listbox.List özelliği

[sosyopat]

Herkese iyi yıllar,

Belki bir çoğunuz için kolay bir soru olacak ama bir türlü nasıl yapacağımı bulamadığım bir şey soracağım sizlere.

ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "125"
ListBox1.AddItem
ListBox1.List(0, 0) = "Ürün"
ListBox1.List(0, 1) = "Adet"
ListBox1.List(0, 2) = "Tarih"

Şeklinde bir kod parçam var.

İstediğim şey Listbox1'de Userforminitialize altında bulunan bu kodda "ürün, adet ve tarih" kısımlarının altı çizili (underline) olması. Daha sonrasında bu Listbox'a bir combobox'tan veri çekiyorum onun için sadece bu üç kolon başlığının altının çizili olmasını ancak diğer eklenen verilerin altının çizili olmamasını istiyorum.

Yardımlar için şimdiden teşekkür ederim.

 

[vardar07]

Kod alıntıdır . Uygulamaya çalışınız.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
son = [a65536].End(3).Row - 1
For i = 0 To son
c = c + 1
    ListBox1.AddItem
    ListBox1.List(c - 1, 0) = Cells(i + 1, 1)
    ListBox1.List(c - 1, 1) = Cells(i + 1, 2)
c = c + 1
    ListBox1.AddItem
    ListBox1.List(c - 1, 0) = "-----"
    ListBox1.List(c - 1, 1) = "-----"
Next
End Sub

 

[Korhan Ayhan]

Merhaba,

Bence Listbox nesnesi üzerine 3 adet Label ekleyin. Bu nesnelere başlıklarınızı yazın ve dilediğiniz gibi biçimlendirin.

Sizin istediğiniz işlem bahsettiğiniz yöntemle yapılamaz. En uygun yöntem önermiş olduğum yöntemdir. Hem daha kullanışlıdır.

 

[Orion1]

Listboxta kolon başlıkları olması,sadece listbox'ın rowsource yöntemi ile verileri almakla olur.

 

[sosyopat]

Sayın Vardar07 Korhan Ayhan'ın verdiği öneriyi izleyeceğim.

Sayın Orion1 Listbox başka Listbox'tan veri çektiği için maalesef rowsource tanımlayamıyorum.

Destek için teşekkür ederim.