一个朋友问到的,现公布出来,希望能有更好的方法。
要运行本实例,请在窗口上添加一个 ListView 和一个 Command。其中,ListView.View 设置为 Report,并添加一列。本程序将会定位Text为 "29" 的项出现在 ListView 的顶端。
Private Sub Command1_Click()
ListView1.Visible = False
For i = ListView1.ListItems.Count - 1 To 0 Step -1
ListView1.ListItems.Item(i).EnsureVisible
If ListView1.FindItem("29") = ListView1.GetFirstVisible Then
Set ListView1.SelectedItem = ListView1.ListItems(i)
Exit For
End If
Next
ListView1.Visible = True
ListView1.SetFocus
End Sub
Private Sub Form_Load()
For i = 1 To 100
ListView1.ListItems.Add , , i
Next
End Sub