vb6 - Visual Basic 突出显示标签

Question

我是一名 Visual Basic 6.0 程序员，我想知道如果鼠标指向或鼠标悬停在标签中是否可以在标签中进行高亮显示，如果鼠标未指向或鼠标悬停在标签中，高亮将删除？

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