Question

vb中，如何实现鼠标指针移到label1上时，Label1.BorderStyle=1；移开时Label1.BorderStyle=0

Answer 1

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

Answer 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < Label1.Left Or Y < Label1.Top Or X > Label1.Left + Label1.Width Or Y > Label1.Top + Label1.Height Then
Label1.BorderStyle = 0
End If
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 1
End Sub

Answer 3

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Label1.BackStyle = 1 Then Me.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

分可以给我了!