如何实现把微信图片拖到VFP表单中，并保存 - 编程论坛

#2

shenlancwz2023-10-13 16:56

回复楼主 hshcib

表单的OLEDragDrop
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord
Local laFiles(1)
oDataObject.GetData(15,@laFiles)
Thisform.Picture=laFiles(1)

表单的OLEDragOver
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
If nState=0 And oDataObject.GetFormat(15)
   This.OLEDropHasData=1
ENDIF

[此贴子已经被作者于2023-10-13 17:00编辑过]

#3

kangss2023-10-15 11:37

回复楼主 hshcib

*!*     作者：十豆三
*!*     日期：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
————————————————
版权声明：本文为CSDN博主「十豆三」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.

#4

schtg2023-10-15 16:48

回复 3楼 kangss

谢谢分享！

#5

hshcib2023-10-17 14:47

回复 2楼 shenlancwz

感谢