ListView控件,如何自动向下滚动?
waitu 2000-10-09 03:37:00 代码如下,程序自动向控件NewsList中Add数据,但是,如何保证增加的数据项是在
当前视野内呢?它是自动跑到了最下面一行,但是控件的滚动条不向下走动! 所以,我看到的是最上面一部分.如何自动看到最下面的一页呢?现在必须手工的把滚动条往下拉.
帮帮我!!! 谢谢!!!
Dim itmX As ListItem
If (frmMain.NewsList.ListItems.Count > NEWSLIST_MAX_LINES) Then
frmMain.NewsList.ListItems.Remove (1)
End If
Set itmX = frmMain.NewsList.ListItems.Add(, , Format(Time, "hh:mm:ss"))
itmX.SubItems(1) = mResult
itmX.SubItems(2) = mContent
frmMain.NewsList.ListItems(frmMain.NewsList.ListItems.Count).Selected = True '选中最后一个