怎么样在mousmove事件中改变imag的图片

来源:百度知道 编辑:UC知道 时间:2024/05/17 09:17:01
我想在鼠标移到imag1时让imag1显示imag2的图片我是这样写的
Private Sub imag1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imag1.Picture = imag2.Picture
end sub
在鼠标移到imag1时图片换了 但在移走鼠标后还是imag2的图片没有换回来 请问这代码该怎么写?

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imag1.Picture = imag3.Picture
End Sub

在imag3里面放着和imag1一样的图片,然后鼠标在窗体上move的时候,让image1的图片还原