关于列表框自动翻滚的问题

来源:www.accessoft.com 点击数:7493 　 | 收藏 | 复制

时　间:2011-05-18 00:00:00
作　者:不详 ID：304 城市：哈尔滨
摘　要:在access窗体上添加的列表框，如果数据太多，在其上下翻动会有些麻烦。这里提供一个让其自动翻滚的例子，供爱好者参考。

正　文:

在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”，即停止状态。）

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】