主题：如何用鼠标拖拽标签或者图片

见附件  ， 需要把 一个label 从 来源panel 用鼠标 拖到 目的地 panel  不知道如何实现

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49697&skin=0

 

这个有点不一样， 我希望 不是 点击 在 另外 一个 PANEL 里面生产， 是希望从一个panel  drag 到 另外一个panel 过去， 好像 需要用到  DragEnter  ,ItemDrag, dragdrop  但是不知道如何来处理 

如下

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:dragdrop.foxdb

多谢，移过去后相当于完全使用了原来控件的 LEFT, TOP ， 能否移动到 鼠标 点的 坐标 。     这个 事件，发生在mouseup 之前， 获取不了 E.X, EY， 请问如何实现。

代码

 

Dim sender = args(0)
Dim e = args(1)
Dim item = e.Data.GetData(e.Data.GetFormats()(0))
Dim dp As Point = sender.PointToClient(Windows.Forms.Cursor.Position)
item.basecontrol.left = dp.X
item.basecontrol.Top = dp.Y
sender.controls.add(item.basecontrol)

多谢