鼠标跨窗体拖动图片如何实现？

Question

Form1中有一个Image图片，需要跨窗体拖到Form2中去显示，在Image图片上点击鼠标时，是否能够在鼠标移动时,Image图片伴随移动呢？

Answer 1

拖动图片,把这个自己改改吧:http://www.m5home.com/blog/article.asp?id=286

Answer 2

拖动没问题,我试了,Image图片伴随移动就麻烦了

Answer 3

很简单啊 骗一下不就得了?截屏桌面当成是你的Form的背景图片 完事后再处理一下不就行了吗?

Answer 4

'Form1
Option ExplicitPublic dx As Single
Public dy As SinglePrivate Sub Form_Load()
    Form2.Show
End SubPrivate Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        dx = X
        dy = Y
        Image1.Drag vbBeginDrag
        Set Image1.DragIcon = Image1.Picture
    End If
End Sub
'Form2
Option ExplicitPrivate Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is Form1.Image1 Then
        Set Image1.Picture = Form1.Image1.Picture
        Image1.Move X - Form1.dx, Y - Form1.dy
        Image1.Visible = True
        Form1.Image1.Visible = False
    End If
End SubPrivate Sub Form_Load()
    Image1.Visible = False
End Sub

Answer 5

我也曾经这样试过，但是只能支持Icon图标，图片就不行了。