数据窗口有一个字段是dddw风格,如何通过代码显示下拉列表?

[njuptzhb]

就是使用代码实现点击下拉箭头的效果.
不要使用Modify修改showlist属性(这样下拉箭头就看不到了,而且要在n个事件中Modify回去).


另一个问题：如何判断当前下拉列表是否正在显示？

[永生天地]

看看下面的对你 有没有 帮助

在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自动滚动的代码我没有写，你自己完成吧！

[sunfor]

[Quote=引用 1 楼 xys_777 的回复:]
看看下面的对你 有没有 帮助

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

1、声明实例变量：

boolean ib_show

2、声明外部函数：

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

3、新建自定义事件：p……
[/Quote]
学习...

[njuptzhb]

非常感谢。

我原打算模拟F4键的，但是F4是常用的快捷键，有冲突。

你这个是模拟Alt + DownArrow键，比较可行。