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

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

举报该文章

相关建议 2011-08-18

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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/8q77fm244.html

其他看法

第1个回答推荐于2018-04-13

Private Sub List1_Click()
List1.ListIndex = List1.ListCount - 1
End Sub本回答被提问者和网友采纳

第2个回答 2011-08-18

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

相似回答

大家正在搜