读书人

问一个Label控件的有关问题

发布时间: 2012-02-16 21:30:36 作者: rapoo

问一个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

读书人网 >VB

热点推荐