Question

我有一个在表单上有一个列表框的Access数据库。这个列表可以滚动，但我需要知道列表滚动后的顶级项目是什么。

我想要创建一个类似于Gantt视图的同步视图，该视图将位于列表旁边（我已经有了代码可以做）但我可以做到能够找出顶级项目是什么我知道在同步视图中哪个项目需要位于顶部。

非常感谢任何帮助。

由于

Answer 1

您可以使用列表方法，后跟索引。例如，要在MsgBox中显示，您可以使用：

MsgBox ComboBox1.List(0)

其中0是列表中的第1项 1是第二个等等

希望有所帮助

编辑：

以下是我尝试作为测试的代码，它工作正常。

Private Sub UserForm_Click
MsgBox ListBox1.List(0)
End Sub



Private Sub UserForm_Initialize()
UserForm1.ListBox1.AddItem "a"
UserForm1.ListBox1.AddItem "b"
UserForm1.ListBox1.AddItem "c"
UserForm1.ListBox1.AddItem "d"
UserForm1.ListBox1.AddItem "e"
End Sub

这显示了一个内部带有字母“a”的消息框，因为这是添加到ListBox的第一个项目（包含填充的代码以显示它是先添加的）。如果你想在字面上显示ListBox中的第一个项目，那么这将有效。如果您希望在列表中显示顶部（根据用户是否滚动），请告诉我，我会尝试解决此问题

获取滚动列表框VBA中的热门项目

1 个答案: