怎么实现image鼠标移过去变图片 移走还原 按下又一个图片

来源：百度知道 编辑：UC知道 时间：2024/06/02 11:19:44
如题
我是说vb中实现的
什么是 Dw 详细解释下
按照以下代码 鼠标移开图不变啊

再加一个事件,鼠标移开时还原图片
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("c:\1.gif")
End Sub

VB中的:
假设你的C盘有1.2.3,这3张图片,代码如下:

Private Sub Form_Load()
Image1.Picture = LoadPicture("c:\1.gif")
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("c:\3.gif")
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("c:\2.gif")
End Sub

建议使用DW中的“行为”可以达到你的要求。

妮可的是 原始是1 点下是3 移到是2 没说移开当然没有了