ListView中怎么才能用代码往下翻页?

Question

我的LISTVIEW显示许多行记录,当要选择后面的记录时须往下点击滚动条许多次,我希望在一个文本框中输入行号后,LISTVIEW即自动滚动到此行处,怎么做呢?

Answer 1

ListView1.ListItems(100).EnsureVisible

Answer 2

private sub command1_click()
  ListView1.ListItems(val(text1.text)).EnsureVisible
end sub

Answer 3

ListView1.ListItems(i).Selected   =True   
          ListView1.SelectedItem.EnsureVisible     
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码) 
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html