关于列表框下拉的实现。

jacken

不知道谁能解决这一问题，我没有找到相关旧贴：如何实现一个数据库中列表框的下拉问题，就是当光标移到当前列表框时，列表框自动打开，打开后只能用鼠标或上下键来选择。谢谢

qdoffcie

学习学习

cg1

这个代码可以运行，但我一般不这样写，虽然简单了，但是输入员不小心按了上下键从其他控件经过这个控件他也会 dropdown ，而操作员又不仔细的话，很容易造成输入错误

jacken

其实我刚发现了一个最简单的办法，是通过获得焦点实现的，获得焦点执行事件过程：
Private Sub 列表框名_GotFocus()
  列表框名.Dropdown
End Sub

如果不是你的提醒，我还在不知道怎么办呢。

gnoy

有意思，全是答案老兄却犯迷糊  详细解答如下：请严格按如下方法作
新建一窗体 名称为Frmjacken
在窗体中新建一组合框  名称为Combo
在组合框的鼠标移动事件中写下如下代码：
Private Sub Combo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Combo.Dropdown
End Sub

jacken

不知道Combo10这个是什么意思？
还有就是我的程序怎么老是碰到Me.就卡了呢？

aban

Private Sub ControlName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
controlname.SetFocus
controlname.Dropdown
End Sub

jacken

你能够说具体点吗？我是一个菜鸟，最好能够附个例子。谢谢。