Question

VB 鼠标经过PictureBox 时更换为另一个图像 怎么写

我想要用VB实现    鼠标进入PictureBox 时更换为另一个图像离开是又返回原来的图像就是要实现PictureBox的鼠标悬停效果高手速度。。。在线等。。。。

Answer 1

为了避免连续触发：
dim HasChanged as boolean
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if HasChanged then
Picture1.Picture = LoadPicture(App.Path & "\2.jpg")
HasChanged=false
end if
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if not HasChanged then
HasChanged=true
Picture1.Picture = LoadPicture(App.Path & "\1.jpg")
end if
End Sub

Answer 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadPicture(App.Path & "\2.jpg")
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadPicture(App.Path & "\1.jpg")
End Sub