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