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

显示全部楼层 · 2011-8-18 22:07:27

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

千问 · 2011-8-18 22:07:27

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

千问 · 2011-8-18 22:07:27

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

千问 · 2011-8-18 22:07:27

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