Question

关于vb Image控件问题

如何实现当鼠标没放在image1时加载App.path的close.jpg这张图片，当鼠标经过Image1时加载App.Path的close_x.jpg这张图片，

Answer 1

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

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path & "\close_x.jpg")
End Sub

Answer 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = "鼠标离开 IAMGE1"
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = "鼠标进入 IAMGE1"
End Sub

追问

谢谢