使用ListView如何将当前行设为上次选中的行，如第400行，并移到该行,thank

Question

 
SelectedItem 属性（ActiveX 控件）
      返回对所选 ListItem、Node 或 Tab 对象的引用。语法object.SelectedItemobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。 说明SelectedItem 属性返回对于一个对象的引用，该对象能用来在选定的对象上设置属性和调用方法。这一属性被典型地用于返回对 ListItem、Node、Tab 或用户已单击或选定的对象的引用。用此引用，可以在允许任何下一步操作之前验证对象，就象下面的代码中演示的那样：Command1_Click()
   '如果所选对象不是根，则删除此节点。
   If TreeView1.SelectedItem.Index <> 1 Then
      Treeview1.Nodes.Remove TreeView1.SelectedItem.Index
   End If
End Sub
为编程选择 ListItem 对象，用使用带有 SelectedItem 属性的 Set 语句，如下所示：Set ListView1.SelectedItem = ListView1.ListItems(1)

Answer 1

Set ListView1.SelectedItem = ListView1.ListItems(400)

Answer 2

Set x = Lvw.ListItems(400)
Lvw.SelectedItem = x

Answer 3

lvXXX.ListItems(400).selected= True
lvXXX.ListItems(400).EnsureVisible

Answer 4

lvXXX.ListItems(400).Selected=True
lvXXX.SelectedItem.EnsureVisible

Answer 5

但是行却变了，就是说本身选中的是LISTVIEW当前显示中第10行，
但使用EnsureVisible选中的行变为当前显示最后一行显示

Answer 6

最笨的方法：设置一个变量，每次选中一行将行数存入。然后在LISTVIEW的GOTFOCUS事件中设置当前行为那个变量的值。

Answer 7

listview点了之后就已经选中了啊，只是当其它控件得到焦点的时候，listview还是选中的那一行啊，不过只是不被加亮显示了

Answer 8

因为ListView要定时刷新，所以要保存上次选中的记录或行数。

Answer 9

dim strPrevKey as String
把你要选中的行的Key存在这个变量里。Private Sub SelectPrev()
    dim itXXX as ListItem
    for each itXXX in lvXXXX.ListItems
         if itXXX.Key=strPrevKey then
              itXXX.Selected=True
              itXXX.EnsureVisible
              exit for
         endif
    Next
    Set itXXX=Nothing
End Sub