标题: 关于列表框下拉的实现。 [打印本页] 作者: jacken 时间: 2002-10-26 02:45 标题: 关于列表框下拉的实现。 不知道谁能解决这一问题，我没有找到相关旧贴：如何实现一个数据库中列表框的下拉问题，就是当光标移到当前列表框时，列表框自动打开，打开后只能用鼠标或上下键来选择。谢谢作者: sdlhlsd 时间: 2002-10-26 03:18
dropdown作者: jacken 时间: 2002-10-26 03:41
你能够说具体点吗？我是一个菜鸟，最好能够附个例子。谢谢。作者: jacken 时间: 2002-10-26 03:43
你能够说具体点吗？我是一个菜鸟，最好能够附个例子。谢谢。作者: aban 时间: 2002-10-26 06:05
Private Sub ControlName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
controlname.SetFocus
controlname.Dropdown
End Sub 作者: swo 时间: 2002-10-26 17:40
Private Sub 组合框名_GotFocus()
Me.Combo10.Dropdown
End Sub作者: jacken 时间: 2002-10-26 21:05
不知道Combo10这个是什么意思？
还有就是我的程序怎么老是碰到Me.就卡了呢？作者: gnoy 时间: 2002-10-26 21:26
有意思，全是答案老兄却犯迷糊 详细解答如下：请严格按如下方法作
新建一窗体 名称为Frmjacken
在窗体中新建一组合框 名称为Combo
在组合框的鼠标移动事件中写下如下代码：
Private Sub Combo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Combo.Dropdown
End Sub 作者: jacken 时间: 2002-10-26 21:33
其实我刚发现了一个最简单的办法，是通过获得焦点实现的，获得焦点执行事件过程：
Private Sub 列表框名_GotFocus()
列表框名.Dropdown
End Sub