Visual Basic突出显示标签

Question

我是一个Visual Basic 6.0程序员，我想知道是否有可能在Label中制作高亮条件，如果它鼠标指向或鼠标悬停在标签上，并且突出显示将删除（如果不是鼠标指向或鼠标悬停在标签上）？ ？

Answer 1

将ToolTipText属性设置为您希望在悬停时显示的文本。我相信那就是你以后的:)。

Answer 2

您可以使用标签的MouseMove事件将其突出显示，并使用周围区域的MouseMove事件（例如表单本身）来移除突出显示。

'1 form with 
' 1 label: name=Label1 
Option Explicit 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    HighlightLabel False 
End Sub 

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    HighlightLabel True 
End Sub 

Private Sub HighlightLabel(blnHighlight As Boolean) 
    Label1.FontBold = blnHighlight 
    Label1.FontItalic = blnHighlight 
End Sub