如何实现鼠标移到一张图片上图片变为另一张图片,移开又返回原来图片?

Question

如果用MOUSEMOVE的话,移开了图片就不变回原来的样子了

Answer 1

在其窗体上的mousemove里面写代码

Answer 2

如果是picturebox的话就用
Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseCapture Lib "user32" () As Long如果是image的话就用回调

Answer 3

在窗体上放一个picturebox两个imagePrivate Sub Form_Load()
Image1.Visible = False
Image2.Visible = False
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Picture = Image2.Picture
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Picture = Image1.Picture
End Sub