[VB.NET]VB.net中如何直接把Combobox下拉项拖放到另一个Combobox

VB.net中如何直接把ComboBox下拉项拖放到另一个ComboBox 虽然.net提供的ComboBox控件都已支持拖放动作,以下代码是参照MSDN写的 Private Sub ComboBox1_MouseDown(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseDown If e.Button = Windows.Forms.MouseButtons.Left And ComboBox1.DroppedDown Then ComboBox1.DoDragDrop(ComboBox1.SelectedText,DragDropEffects.copy Or DragDropEffects.Move) End If End Sub 调试结果很让人失望,干脆下拉框都弹不出来. 请求高手的帮忙 __________________________________________________________________________ 根避免弹不出来的问题,需要多加一个判断条件 引用MSDN的原文: 当拖动动作启动时，该示例调用 DoDragDrop 方法。在 MouseDown 事件期间，如果从鼠标位置起鼠标移动的距离大于 Systeminformation.DragSize，则启动拖动动作。IndexFromPoint 方法用于在 MouseDown 事件期间确定要拖动的项的索引。 调试ing...希望这个问题能自己搞定 __________________________________________________________________________