首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

问一个Label控件的有关问题

2012-02-16 
问一个Label控件的问题就是当鼠标放在这个Label控件的时候,他的BoardStyle是1当鼠标移开以后,他的BoardSty

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

热点排行