问一个Label控件的问题
就是当鼠标放在这个Label控件的时候,他的BoardStyle是1
当鼠标移开以后,他的BoardStyle又变回0
请问这段代码怎么写呢?谢谢了
[解决办法]
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 0
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 1
End Sub
[解决办法]
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label1.BorderStyle = 0
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label1.BorderStyle = 1
End Sub
只用LABEL1一个控件,不知道你要做什么,===鼠标放在这个Label,必定能产生MOVE