Listview'e kaydırma çubuğu

[seddur]

Merhabalar.Arkadaşlar listviewdeki değerleri kaydırma çubuğu veya oluyorsa spinbutton ile nasıl aşağı yukarı hareket ettirebilirim?Bilgisi olan varmı acaba.Teşekkür ederim.

 

[ekmekevi]

Merhabalar.Arkadaşlar listviewdeki değerleri kaydırma çubuğu veya oluyorsa spinbutton ile nasıl aşağı yukarı hareket ettirebilirim?Bilgisi olan varmı acaba.Teşekkür ederim.

listview özellikler bölümünden custom yazan bölümden active edebilirsin yada
listview1.FlatScrollBar = True

 

[seddur]

Maalesef olmadı.Özellikler bölümünden aktif etmek isteyince hata verdi.Kod olarak yazınca da bir değişiklik olmadı.

 

[Orion1]

Deneyiniz.

Private Sub UserForm_Initialize()
Dim x As Long
ListView1.View = lvwReport
ListView1.FlatScrollBar = False
ListView1.ColumnHeaders.Add , , "a"
ListView1.ColumnHeaders.Add , , "b"
For x = 1 To 30
ListView1.ListItems.Add , , x + 1
ListView1.ListItems(x).SubItems(1) = x - 1 & "e"
Next
End Sub