鼠标拖动(移动、拖曳)控件

最新推荐文章于 2021-05-31 11:13:10 发布

十豆三

最新推荐文章于 2021-05-31 11:13:10 发布

阅读量3.2k

点赞数

分类专栏： VFP - 编程技巧文章标签：拖动控件拖曳控件移动控件

本文链接：https://blog.csdn.net/apple_8180/article/details/8148998

版权

VFP - 编程技巧专栏收录该内容

14 篇文章 4 订阅

订阅专栏

*!*     作者：十豆三
*!*     日期：2012-11-05
*!* vfp版本：vfp9.0(SP2 7423)
*!* 操作系统：Windows XP(SP3)
*!*     功能：鼠标拖动(移动、拖曳)控件

方法一：
*!*控件的MouseDown事件
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If nButton=1&& 只允许鼠标左键移动
Thisform.CurrentX=nXCoord
Thisform.CurrentY=nYCoord
Endif

*!*控件的MouseMove事件
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If (nButton=1 AndThisform.CurrentX#0) And Not (Thisform.CurrentX=nXCoord And Thisform.CurrentY=nYCoord)&& nButton=1 只允许鼠标左键移动
    This.Move(This.Left+(nXCoord-Thisform.CurrentX),This.Top+(nYCoord-Thisform.CurrentY))
    Thisform.CurrentX=nXCoord
    Thisform.CurrentY=nYCoord
Endif
*!*如果不想让控件移出表单，控件的MouseMove事件改为
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If (nButton=1 AndThisform.CurrentX#0) And Not (Thisform.CurrentX=nXCoord And Thisform.CurrentY=nYCoord)&& nButton=1 只允许鼠标左键移动
    lnNewLeft=Min(Max(This.Left+(nXCoord-Thisform.CurrentX),0),Thisform.Width-This.Width)
   lnNewTop=Min(Max(This.Top+(nYCoord-Thisform.CurrentY),0),Thisform.Height-This.Height)
    This.Move(lnNewLeft,lnNewTop)
    Thisform.CurrentX=nXCoord
    Thisform.CurrentY=nYCoord
Endif
　
方法二：效果不如方法一好
*!*控件的MouseMove事件：
Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码
If nButton=1&& 只允许鼠标左键移动
    This.Drag(1)
    This.Move(This.Left+(Mcol(Thisform.Name,3)-nXCoord),This.Top+(Mrow(Thisform.Name,3)-nYCoord))
Endif