Question

vb当鼠标经过时图片变化

我想要当鼠标指向picture1时变成另外一张图片，移开时又变为原图片。帮帮忙啊

Answer 1

移入 很好做 就是 mousemove 事件中添加代码
picture1.image=“路径 或者 image列表中的图片”
移出 稍微麻烦一点，我之前的做法是 添加一个定时器，10秒一判断，（时间可以自己定义）鼠标的位置，如果不在picture1上 就把图片更换回来！
还有一种方法，是在form的mousemove事件中 添加 更换图片的代码！
第一种 可能 比较占用资源，因为使用timer控件，要不停的做检测！
第二种 有个弊端就是form的mousemove事件可能会影响到 picture1的mousemove事件

Answer 2

用以下三个事件即可。
Private Sub Form_Load()
Picture1.Picture = LoadPicture("D:\My Documents\1.bmp")
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadPicture("D:\My Documents\1.bmp")
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadPicture("D:\My Documents\2.bmp")
End Sub

追问

你好，你的指向图片时更换是对的，但是移出时却不行，必须要移出窗体才能更换。
麻烦你检查下行吗。我是新手，还不会搞

Answer 3

创建两个image控件，image1为原图片，image2为鼠标指向时的图片
Private Sub Form_Load()
Picture1.Picture = Image1.Picture
End Sub

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

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = Image2.Picture
End Sub

追问

不对吧，这个样子在上面的控件不就把下面的控件给遮住了吗？

追答

对了，两个image控件的visible都设为false