在 ListView 中设置第一个可见的项目（原创）

一个朋友问到的，现公布出来，希望能有更好的方法。

要运行本实例，请在窗口上添加一个 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