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

Visual Basic突出显示标签

2 个答案: