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

2024-11-30 19:54:22
推荐回答(1个)
回答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