如何使列表框像Access中的组合框一样下拉

Question

访问2007中的

如何使列表框像组合框一样下拉而不将其更改为组合框类型，因为它具有多选属性，我需要在我的表单上节省一些空间是可能的吗？

Answer 1

如果ListBox下有足够的空间，请尝试格式化 - ＆gt;带到前面并分配事件

Private Sub MutantListbox_GotFocus()

    MutantListbox.Height = MutantListbox.Height * 10 ' it waz 1 line become 10

End Sub 

Private Sub MutantListbox_LostFocus() 

    MutantListbox.Height = MutantListbox.Height / 10 ' it waz 10 line become 1

End Sub