VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB中鼠标冲突问题
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9152, 日期:2001-06-16
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的学习会有很大的帮助。