Question

我创建了一个访问数据库表单，该表单在列表框中显示用户列表及其生产率。但是，当我的用户数超过20个时，列表框将无法滚动显示其余部分。

有没有一种方法可以使列表框自动滚动到底部，然后像循环播放的电影中的片尾字幕一样重置到顶部？

Answer 1

要执行您似乎要问的事情，我认为您需要构建自己的滚动条！我会用这些东西来实现这一目标：

设置为多行的文本框
一个数组，每行文本显示在单独的单元格中（如果您很勇敢，则显示在记录集中）
用于更新文本框的计时器功能
一个全局计数器，用于跟踪正在显示的文本的当前第一行数字

伪代码：

Init:
    clear the text box
    load the array with the text & append each line to the text box as you go.
    set the pointer to 1

UpdateText (timer event):  
' get length of current string
    iLength = array(counter).text.length
    ' chop the first row off the text
    textbox.text  = right(textbox.text, len(textbox.text) - iLength)
    ' add the text back on to the end
    textbox.text.appendtext( array(counter).text)
    increment counter
    if counter > array-num-items, set counter to 1   ' scroll over

玩得开心！

MS-访问列表框上的自动滚动。

1 个答案: