你窗口高度设置太高了,要设置小一点。
或者 DropDownOpening 事件写代码
e.form.autoscroll = True
Dim point As Point = e.form.DropDownBox.Form.Panel.PointToScreen(e.form.DropDownBox.BaseControl.Bounds.Location)
'e.Form.baseform.width = SysInfo.WorkingAreawidth-point.x
e.Form.baseform.height = SysInfo.WorkingAreaHeight-point.y - 30