Question

VB6.0里鼠标箭头仅在按钮上划过时显悬停效果图怎么作？

是这样吗
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If x < image4.Width And x > 0 Then
image4.Picture = image2.Picture
Else
image4.Picture = image1.Picture
End If
End Sub
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image3.Picture
End Sub
Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image1.Picture
End Sub
Private Sub Image4_Click()
MsgBox "Image"
End Sub
为什么我鼠标悬停时不点击 移开image4后还显示着image2.picture？？？

Answer 1

鼠标悬停可以理解成鼠标在控件上时控件的鼠标图标吧?试着找一找这个控件本身的属性中看有没有mouse相关的 MousePointer 或 MouseIcon吧.也许能适用.
另:你的Image4_MouseMove事件中的Else部分能执行到?