鼠标拖动(移动、拖曳)控件
来源:互联网 发布:小猪cms创始人 编辑:程序博客网 时间:2024/05/14 17:30
*!* 作者:十豆三
*!* 日期: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 AndThisform.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 AndThisform.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
- 鼠标拖动(移动、拖曳)控件
- web鼠标拖曳控件
- 鼠标、手指拖曳物体移动
- 鼠标移动div效果:鼠标拖曳效果
- Winform鼠标拖动改变控件大小、移动控件位置
- 在运行时通过鼠标拖动移动控件位置(c#)
- 在运行时通过鼠标拖动移动控件位置(c#)
- 在运行时通过鼠标拖动移动控件位置(c#)
- [VB.net][WinForm]Panel控件移动\鼠标拖动
- 鼠标拖动层移动
- 鼠标拖动层移动
- 鼠标拖动层移动
- 鼠标拖动div移动
- 鼠标拖动控件
- 鼠标拖动控件
- 用鼠标拖动图片移动
- unity 鼠标拖动物体移动
- 用鼠标拖动图片移动
- 不同浏览器下word-wrap和word-break强制换行
- ASIHTTPRequest类库简介和使用说明
- 拿到offer之后
- busybox 基本根文件系统
- Spannable
- 鼠标拖动(移动、拖曳)控件
- OPENGL ES资料
- mysql 索引
- jmx 远程监控 jvm及weblogic
- Amf3+socket开发网络游戏或应用的一点研究心得
- [转] 为什么要进行傅立叶变换
- 轻松得到C# ADO.NET的各种数据库连接字符串
- Git学习教程
- (Android) Low Memory Killer