这段代码有问题,删除,或者改变判断逻辑。
Dim drp As WinForm.DropDownBox = e.SenderIf drp.DroppedDown = False '如果下拉窗口没有打开 drp.OpenDropDown() '打开下拉窗口End If