在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自動滾動的代碼我沒有寫，你自己完成吧！