Question

想在VB中做一个鼠标悬停效果，就是当鼠标悬停在按钮上空时，按钮的caption属性变为“悬停效果”，

想在VB中做一个鼠标悬停效果，就是当鼠标悬停在按钮上空时，按钮的caption属性变为“悬停效果”，应该怎么弄？给个源码谢谢~~~~

Answer 1

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Caption = "悬停效果"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Caption = "正常效果"
End Sub