预算使用申请窗口的keypress代码:
Dim drp As WinForm.DropDownBox = e.SenderIf drp.DroppedDown = False '如果下拉窗口没有打开 drp.OpenDropDown() '打开下拉窗口End If
下拉窗口的keypress没有写代码