Question

vb中如何实现image里的图片跟鼠标一起动

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Move X, Y
End Sub

追问

vb中两个image图片接触：其中一个移动到另一个IMAGE图片那弹出窗口提示,怎么设计。麻烦你在给我解答下

追答

这和你的问题是两回事吧？
也有个人问过这个问题，不会也是你吧？
把以下代码放到你的图片移动事件中;

dim w as long,h as long,
dim w2 as long,h2 as long
w=image1.left+image1.width
h=image1.top+image1.height
h2=image2.top+image2.height
w2=image2.left+image2.width
with image2
' 1 左右碰撞：
if (w>=.left) and (h>=.top and image1.top=.top) and (w>=.left and image1.left<=w2) then end
end with