listbox başlık

[igultekin2000]

iyi günler; listvew' de kullandığımız

With Me.listbox1.ColumnHeaders
        .Add , , "S.No", 115
        .Add , , "Adı Soyadı", 130
        .Add , , "Okul Numarası", 65
        .Add , , "Cinsiyeti", 250
        .Add , , "Cinsiyeti", 60
        .Add , , "Cinsiyeti", 5
End With

şeklindeki başlık belirlemeyi Listbox' da da uygulama imkanımız var mı? denedim hata verdi.

 

[Ömer BARAN]

Merhaba.

Kullandığınız userformda, Properties kısmından, ListBox'un ColumnHeads özelliğini True yaparak denediniz mi acaba?
Tabi bu özellik ListBox'un kaynak sütunun başlığını ListBox'a almanızı sağlar, Listview'daki gibi olmuyor sanırım.
.

 

[igultekin2000]

olmuyor

Merhaba.

Kullandığınız userformda, Properties kısmından, ListBox'un ColumnHeads özelliğini True yaparak denediniz mi acaba?
Tabi bu özellik ListBox'un kaynak sütunun başlığını ListBox'a almanızı sağlar, Listview'daki gibi olmuyor sanırım.
.

denedim hata veriyor.

 

[Orion1]

Bu özellik sadece rowsource metodu ile veri aldığınızda olur.
bunun dışında yöntemlerde listboxın üzerine,yani userforma labeller koyarak başlık yapabilirsiniz.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "115;130;65;250;60;5"
ListBox1.RowSource = "A2:F10"
End Sub

 

[igultekin2000]

denendi

Bu özellik sadece rowsource metodu ile veri aldığınızda olur.
bunun dışında yöntemlerde listboxın üzerine,yani userforma labeller koyarak başlık yapabilirsiniz.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "115;130;65;250;60;5"
ListBox1.RowSource = "A2:F10"
End Sub

evet bu şekilde oldu, ancak dediğiniz gibi labeller daha düzgün durdu, teşekkürler.

 

[Orion1]

evet bu şekilde oldu, ancak dediğiniz gibi labeller daha düzgün durdu, teşekkürler.

Rica ederim.
İyi çalışmalar.

 

[hlojan]

Bu özellik sadece rowsource metodu ile veri aldığınızda olur.
bunun dışında yöntemlerde listboxın üzerine,yani userforma labeller koyarak başlık yapabilirsiniz.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "115;130;65;250;60;5"
ListBox1.RowSource = "A2:F10"
End Sub

orion ado ile yaptığımızda nasıl yaparız

Call baglan
sorgu = "select * from cihazstok where kod='" & firmasirala & "' and durum='" & tstok & "' "
kyt.Open sorgu, bgln, 1, 1
If kyt.RecordCount = 0 Then
kyt.Close
 bgln.Close
Set kyt = Nothing: Set bgln = Nothing
Exit Sub
Else
Do Until kyt.EOF
With ListBox2
    .ColumnCount = 78
    .ColumnHeads = True
    .ColumnWidths = "30;30;60;60;60;60;60;60"
    .AddItem
    .List(0, 0) = kyt("id")
    .List(i, 0) = kyt("id")
    .List(i, 1) = kyt("kod")
    .List(i, 2) = kyt("sira")
    .List(i, 3) = kyt("seg1")
    .List(i, 4) = kyt("seg2")
    .List(i, 5) = kyt("seg3")
    .List(i, 6) = kyt("labtar")
    .List(i, 7) = kyt("durum")

    
i = i + 1
End With
kyt.MoveNext
Loop
kyt.Close
bgln.Close
Set kyt = Nothing: Set bgln = Nothing
End If

 

[Orion1]

ADO ilede sütun başlığı olmaz.Sadece rowsource metodu ile veri alırsanız sütun başlığı olur.