Question

vb6 listbox如何始终显示最后一项

list1中内容很多，如何在运行时显示最后一项？或者让滚动条到最下面？
vb6中list没有ListItems方法

Answer 1

'使最后一行可见
listCount = list1.ListItems.count
If listCount > 0 Then
list1.SetFocus
list1.ListItems(listCount).Selected = True
list1.ListItems(listCount).EnsureVisible
End If
上面代码的执行流程是先判断列表是否有内容，若有内容则取到最后一行编号，让最后一行选中，并显示之

Answer 2

Private Sub List1_Click()
List1.ListIndex = List1.ListCount - 1
End Sub

Answer 3

Form_load里面
List1.Listindex=List1.ListCount-1