Private Sub Command1_Click()
Dim selectitennum As Long
selectitennum = 30'假设要选定第30行
'下面几句是关键
Me.ListView1.ListItems(selectitennum).Selected = True
Me.ListView1.SetFocus
Me.ListView1.ListItems(selectitennum).EnsureVisible
End Sub
Private Sub Form_Load()
Me.ListView1.ColumnHeaders.Add , , "test1"
Me.ListView1.ColumnHeaders.Add , , "test2"
Me.ListView1.ColumnHeaders.Add , , "test3"
Me.ListView1.View = lvwReport
Dim i As Long
Dim mitem As ListItem
Me.ListView1.FullRowSelect = True
'Me.ListView1.HideColumnHeaders = True
For i = 1 To 100
Set mitem = Me.ListView1.ListItems.Add(, , "line" + CStr(i) + " sub 1")
mitem.SubItems(1) = "line" + CStr(i) + " sub 2"
mitem.SubItems(2) = "line" + CStr(i) + " sub 3"
Next
End Sub