如何在LISTVIEW 中实现全选

LISTVIEW中的全部选项都显示被选中

解决方案 »

  1.   

    最笨的是：
    For i=1 to ListView1.ListItems.Count
        ListView1.ListItems(i).Select=True
    Next i
      

  2.   

    一定要加上listview1.setfocus
    否则焦点不在listview1上的时候是看不出来变化的
      

  3.   

    Dim slist As ListItem
        For Each slist In listview1.ListItems
            
            slist.Checked = True
            slist.Selected = True
        Next
        listview1.SetFocus
    也可以！
      

  4.   

    to 顶楼：如果itemindex不是连续的怎么办？我楼上的比顶楼的好，代码易于理解，而且不会出问题
    不过  slist.Checked = True多余