求教：我想用滚动条控件替换掉listview自带的滚动条该如何做？

Question

请指教，给出代码，谢谢

Answer 1

没有用API……不是很好用……Private Sub Form_Load()
    Dim i As Integer
    
    For i = 1 To 30
        List1.AddItem i
    Next
    VScroll1.Max = List1.ListCount - 1
End SubPrivate Sub VScroll1_Change()
    List1.TopIndex = VScroll1.Value
End SubPrivate Sub VScroll1_Scroll()
    VScroll1_Change
End Sub

Answer 2

好像有点难度，AprilSong(X)的是listbox的用法，不能用于listview

Answer 3

- -b怎么给看成listbox了……

Answer 4

得用这里面得API一个个做～http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/scrollbars/scrollbars.asp

Answer 5

谢谢
可是不知道这样做行不行！因为我用了activeskin，里面不支持listview的滚动条，不得不自己做了一个

Answer 6

你看他的分类：
Win32 and COM Development >  User Interface >  Windows Shell >  Windows Controls >所有标准控件上的滚动条都是这么做出来的……
行是肯定的
麻烦也是肯定的～

Answer 7

大师在阿，tooltips又有问题了
您有qq吗？请告诉我一下谢谢