求一段代码,作用是:当鼠标移到image,换图像
来源:百度知道 编辑:UC知道 时间:2024/05/23 20:36:54
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("c:\a.jpg")
End Sub
楼上正解,只是移开后就不行了,想要移开后还原图像的代码吗 kovb@qq.com
UC知道是一部内容开放、自由的互动网络百科全书
客观、专业、权威的知识性百科全书
来源:百度知道 编辑:UC知道 时间:2024/05/23 20:36:54
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("c:\a.jpg")
End Sub
楼上正解,只是移开后就不行了,想要移开后还原图像的代码吗 kovb@qq.com