您如何将 MS 访问列表框的默认滚动设置为顶部答案

【问题标题】：How do you set the default scroll of an MS access listbox to be top您如何将 MS 访问列表框的默认滚动设置为顶部
【发布时间】：2013-09-24 02:08:14
【问题描述】：

我在 MS 访问表单 2010 上有一个多选列表框，我有一个例程可以选择像这样的默认值

 For i = 0 To CategoriesList.ListCount - 1
If InStr(1, ",2,3,17,6,22,13,10,48,39,18,", ("," & CategoriesList.ItemData(i) & ",")) Then
CategoriesList.Selected(i) = True
End If
Next i

完美运行，现在的问题是列表框只有三个项目的高度，总共有 48 个 iems，一旦我执行上述例程，列表框默认显示最后三个项目（滚动到底部）

如何让列表框默认滚动到顶部？

【问题讨论】：

标签： ms-access listbox default

【解决方案1】：

为此，无需将焦点设置到列表框，反向循环遍历列表项。由于代码将在第一项结束，因此列表框将滚动到顶部：

    For i =  (CategoriesList.ListCount - 1) to 0 Step -1
    If InStr(1, ",2,3,17,6,22,13,10,48,39,18,", ("," & CategoriesList.ItemData(i) & ",")) Then
    CategoriesList.Selected(i) = True
    End If
    Next

【讨论】：

【解决方案2】：

您可以通过将ListIndex 设置为 1（第一项）来做到这一点，但它需要列表框具有焦点：

Me.List6.Selected(8) = True
Me.List6.Selected(9) = True
Me.List6.SetFocus
Me.List6.ListIndex = 1

如果您将 ListIndex 设置为第一个找到的项目 (i)，那么它将使其成为列表中的顶部（显示）项目。

【讨论】：