Rob_1983的专栏

方法1:ListView.MultiSelect = TrueDim lstItem     As MSComctlLib.ListItem  For Each lstItem In ListView.ListItems    If lstItem.Selected Then            ...do   yourself    End IfNext方法2:Dim nCount

ListView似乎没有专门提供翻页的功能。我们可以使用EnsureVisible方法来模拟翻页效果。EnsureVisible，原本是用来确保某一行被正常显示。如listview1.ListItems(50).EnsureVisible,这句话的意思是，将第50行显示到第一行，50行之前的上移。所以我们可以每次给行数一个增量可以模拟翻页效果。