在DDDW中敲入字母时DDDW始终下拉状态

1、声明实例变量：

boolean ib_show

 2、声明外部函数：

Subroutine keybd_event(int bVk,int bScan,ulong dwFlags,ulong dwExtraInfo) LIBRARY "user32.dll"

 3、新建自定义事件：pbm_dwnkey代码如下：

if Describe(GetColumnName() + ".Edit.Style" ) = 'dddw' or Describe(GetColumnName() + ".Edit.Style" ) = 'ddlb' then

    if not ib_show then

        keybd_event(18,0,0,0)

        keybd_event(40,0,0,0)

        keybd_event(40,0,2,0)

        keybd_event(18,0,2,0)

        ib_show = true

    end if

else

    ib_show = false

end if

4、在DW的clicked和doubleclicked事件中分别写入：

ib_show = false

5、测试一下吧，这样即可弹出下拉DDDW，但是DDDW自动滚动的代码我没有写，你自己完成吧！

 

本文来自优快云博客，转载请标明出处：http://blog.youkuaiyun.com/zm1313/archive/2006/04/04/650381.aspx