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的学习会有很大的帮助。

原文转自：http://www.ltesting.net