Question

VB如何通过鼠标移动来改变图片样式?

当鼠标移动到image1上的时候,image2.Visible = True ,当鼠标移动离开image1的时候,image2.Visible = Flase ?

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X >= Image1.Left) And (X <= Image1.Left + Image1.Width) And _
(Y >= Image1.Top) And (Y <= Image1.Top + Image1.Height) Then _
Image1.Visible = True

End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False
End Sub

Answer 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = False
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = True
End Sub
注意：使用上面方法时，image1控件应与其他控件没有重叠。如果有重叠的话，应在该重叠控件的MouseMove语句中添加Imge2.Visible=false