在access窗体上添加的列表框,如果数据太多,在其上下翻动会有些麻烦。这里提供一个让其自动翻滚的例子,供爱好者参考。
第一步:新建数据库,并新建一个表,填上你准备让其在窗体的列表框中显示的数据,备用。
第二步:新建窗体,并在窗体上添加列表框,根据向导让列表框引用第一步建立的表里的信息,将这个列表框命名为“list”(当然可以是其他名字)。
第三步:在窗体的适当位置添加一个具有三个选项的选项组,根据其向导,将其命名为“前移”、“后移”、“停止”。并将这个选项组命名为“frame”。
第四步:在窗体的计时器触发事件里写如下代码--
Select Case Me.Frame.Value
Case 1
SendKeys "{UP}" '光标UP
Case 2
SendKeys "{DOWN}" '光标DOWN
Case 3
Me.TimerInterval = 0
End Select
(这段代码的意思是:如果选项组为1,则光标前移;如果是2,则光标后移;如果是3,则光标停止。)
第五步:在选项组的“更新后”事件里写以下代码--
Me.List.SetFocus
Me.TimerInterval = 100
设计完成后保存。再打开窗体,当你在选项组选择某项时,列表框就会自动在已有信息里前后翻滚。
(小提示:因为在我们打开窗体时,肯定不希望列表框的信息处于翻滚状态,所以,应该将选项组的黑夜值设为“3”,即停止状态。)