如何使下拉框自动下拉?

bbamy

我希望实现的功能和下面描述的一样

http://www.office-cn.net/Soft/Class3/Class27/200202/448.html

只要你的下拉框获得焦点，如果下拉框还没有输入内容，则下拉框自动下拉，无需再用快捷键或鼠标先下拉后再进行内容选择，大大提高输入速度和效率。此例程调用非常简单，只要在下拉框的获得焦点事件或ENTER事件中添加以下代码, 无需针对具体的下拉框名称而编写不同的代码：



cboautoexpand me.activecontrol

可是我试用,报错为cboautoexpand未定义,我使用的是access2003,求解决办法

cg1

为什么搞那么复杂？你直接 CONTROLANME.DROPDOWN 不就可以了？

nxjswt

啊，又学习了一招

还有楼主忘记了模块

Public Function cboAutoExpand(myCbo As Control)

On Error Resume Next

Dim myFrm As Form

Dim pFrm As Form

Set myFrm = Screen.ActiveForm

Dim sRowSrc As String

Dim i As Double

    If TypeOf myCbo Is ComboBox Then

        myCbo.AutoExpand = True

    If IsNull(myCbo.Value) Or Trim(myCbo.Value) = "" Then

      myCbo.Dropdown

    End If

    End If

End Function



当然那个简单用那个！

也就是直接在下拉筐的获得焦点的事件过程中输入

［下拉筐名称］.Dropdown

[此贴子已经被作者于2005-10-9 21:22:41编辑过]

bbamy

多谢!

shenyao_jx

学习学习。。。。。。

shenyao_jx

学习学习。。。。。。

thor5566

学习下