Question

VB中图片跟随鼠标

我想用VB实现这样的功能，在VB的窗体中，有一个图片控件，当鼠标坐键按下该控件时，鼠标的指针变成图片控件里的图片，移动鼠标时，该图片也能移动，类似于WindowSpy的探针。
要求该图片能拖出 父窗体 外

Answer 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
with screen
.mousepointer=99
.mouseicon=Picture1.Picture
end with
end if
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then screen.mousepointer=0
End Sub

就是改变光标嘛，没问题的啊

Answer 2

可以考虑一种变通的方法，当鼠标移出父窗体时，加载一新窗体，同时将鼠标图片的父容器设为该窗体，让这个窗体随鼠标的移动而移动。

Answer 3

'这个仅对图片为ico、cur等图标格式有效
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.DragIcon = Picture1.Picture
Picture1.Drag 1
End Sub

Answer 4

O

Answer 5

去搜索下啊