VB中鼠标冲突问题
作者：解春燕
VB中几乎所有的控件都有DragMode属性，该属性确定该控件能否用鼠标拖动。DragMode属性的设置包括如下：
0-Manual 拖动操作必须在程序中启动
1-Automatic 用户可以用鼠标拖动控件
当将该控件的DragMode属性被设为Automatic时，他就不再响应通常的鼠标事件，只能进行拖动。如果控件是个标题框，则不必担心编辑问题，将DragMode设置为Automatic不会有什么大问题，但如果需要标题栏的Click事件，则不能将DragMode的属性值设为Automatic。更糟的是，如果窗体上加入一个文本框控件，将其属性设置为Automatic，然后运行，这时虽然能通过键盘向控件中输入文本并移动此控件，但鼠标的编辑操作的功能就消失了。
为解决此冲突，可以用手动实现拖动特性，调用控件的Drag方法。
调用控件的Drag方法等于将控件的DragMode属性设置为0-Manual，但控件也可以被拖动。
什么时候可以调用控件的Drag方法呢？首先，要确定应用程序如何区分普通鼠标编辑操作和拖动操作。可靠的方法是：用Ctrl或Alt键与鼠标组合操作来拖动控件，所有鼠标功能和平常一样用，但如果按住Ctrl键再按鼠标键，则程序启动拖动操作，调用控件的Drag方法。
下面我们通过一个例子来更加清楚的理解和使用Drag方法：
两个文本框的DragMode属性分别设为Automatic和Manual。如图：
标题框控件的DragDrop事件代码为:
Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
Label1.Caption = Source.Name & " was dropped "
End Sub
这个子程序显示放置到标题框上的控件名消息。
因为第二个文本框的DragMode设置为Manual，所以第二个文本框可以像平常一样编辑，但不能进行拖动操作。在第二个文本框的
MouseDown事件加入代码为：
Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 2 Then
Text2.Drag
End If
End Sub
第一个文本控件可以自动放置，即只可以用键盘编辑第一个文本框的内容。要选择这个控件上的文本，需要按住shift+箭头键。如果在第一个文本框上拖动鼠标，则会移动文本框，将它放置到标题框控件上，标题框中的标题变成所放置的控件名。要拖动第二个文本框，则按住ctrl，在单击该控件，然后开始拖动，控件的Drag方法在按住ctrl键时，从MouseDown事件中调用。
大家可以试试，一试就会明白。拖动控件到窗体的某个地方后，控件的DragDrop属性复位，控件的DragDrop属性并不改变，只是像DragMode属性暂时设置为1-Automatic一样地工作。运行结果分别为：
采用Drag方法能更好地控制操作。例如，如果源文件是空的，则不能启动拖动操作。其实，Drag方法还可以用于需要相应鼠标事件的不可编辑控件，如标题框或命令钮。
总之，Drag方法是vb功能实现的一种常用方法，大家如果掌握了这种方法，对VB的学习会有很大的帮助。
