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

[sxh_song]

[yarao]

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
这样不就搞定了

[shines77]

yarao的方法是错误的！没有那么复杂：

其实：

Private Sub Command1_Click()
List1.AddItem "ahsgj"
'List1.SetFocus
List1.ListIndex = List1.ListCount - 1
End Sub

就可以了，而且List1.SetFocus一句还可要可不要，要的话就可以把焦点转移到上面，不要也一样的。

简单吧，听我的没错。

[shines77]

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

[shines77]

胡乱给分！

[shines77]

是我搞错了，对不起 ：）