关于listview记录自动滚动

Question

请问listview怎样实现记录在显示范围内自动滚屏？急！！！

Answer 1

是不是记录很多时要查询的记录不在显示区的话让ListView滚动到该纪录我也想了解

Answer 2

Private Sub Command1_Click()
    Dim j As Long
    j = 200
    '使Item(j)可见
    ListView1.ListItems.Item(j).EnsureVisible
End SubPrivate Sub Form_Load()
    Dim i As Long
    For i = 1 To 1000
        ListView1.ListItems.Add , , CStr(i)
    Next
End Sub

Answer 3

使用GetFirstVisible得到第一个可见ListItem对象的索引，然后使用EnsureVisible方法，就可以滚动控件的内容让项目出现在可见区域。
例如：ListView可见行数为20，总行数为500。
Dim nFirstVisible As Integer
    nFirstVisible = ListView1.GetFirstVisible
    If nFirstVisible + 20 < 500 then
        ListView1.ListItems.Item(nFirstVisible + 20).EnsureVisible
    End If将以上代码放在按钮的Click事件中即可。