Question

VB 中如何给listview控件定义或设置垂直滚动条(水平滚动条不要)

VB 中如何给listview控件定义或设置垂直滚动条(水平滚动条不要),以便把listview.subitems的所有数据都能通过拉动鼠标滚轮翻阅

Answer 1

VB自身好象没有办法,除非使用API,但很麻烦.
还是装个鼠标驱动就可以了,我用的是罗技的无线光电鼠,开始也不能这些控件,后来装一个它的驱动后,连VB的代码页也能翻阅了

Answer 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_VSCROLL = &H115
Private Sub Command1_Click()
Call ItemToTop(ListView1.hwnd, 30)
End Sub

Private Sub Form_Load()
Dim i As Long

For i = 1 To 100
ListView1.AddItem "List Item Of Line:" & i
Next i
End Sub

Private Sub ItemToTop(ByVal hwnd As Long, ByVal LineNum As Long)
'本子程序使LineNum行滚到第一行
Dim i As Long
SendMessage hwnd, WM_VSCROLL, 6, 0 '复原
For i = 1 To LineNum - 1
SendMessage hwnd, WM_VSCROLL, 1, 0 '下滚一行
Next i
End Sub

Answer 3

这个listview控件本身不就有吗，注意别吧“平面滚动条”选上，也就是flatscrollbar必须是false。 至于水平的滚动条，伱列数不超出范围它自然不会出现。