各位老兄,向listview中新增一条记录后,怎样使焦点聚在最后一条记录上,小弟急用,先谢啦!!

Question

   Dim itmX As ListItem
  
   ListView1.View = lvwReport
   Set itmX = ListView1.ListItems.Add()
   itmX.SmallIcon = 1
   itmX.Text = "ListItem " & 1
   itmX.Icon = 1
   itmX.SubItems(1) = "Subitem 1"
   itmX.SubItems(2) = "Subitem 2"
   'listView1 要从新获得焦点
   ListView1.SetFocus
   itmX.Selected = True
这样不就搞定了

Answer 1

yarao的方法是错误的！没有那么复杂：其实：Private Sub Command1_Click()
    List1.AddItem "ahsgj"
    'List1.SetFocus
    List1.ListIndex = List1.ListCount - 1
End Sub就可以了，而且List1.SetFocus一句还可要可不要，要的话就可以把焦点转移到上面，不要也一样的。简单吧，听我的没错。

Answer 2

不知道yarao从哪搞来的代码，VB有ListItem这一控件吗？是ListBox吧：）