在 vb6 中热制作鼠标在图像上离开事件

Question

我有一张图像，我在 MouseMove 中编写了代码来突出显示它。这是我想要的，当鼠标离开图像时，高光消失，但我似乎找不到任何可以做到这一点的事件。我正在使用 Visual Basic 6.0。我尝试过 mouseup 和 down 事件，但它们与我的要求不符。

谢谢

Answer 1

VB6 中没有类似的事件（尽管 VB.Net 有 鼠标离开）。您将需要在窗体（或许还有任何容器控件）的 MouseMove 事件中执行某些操作。

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ' Unhighlight the image'
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ' Highlight the image'
End Sub

Answer 2

Marco Bellinaso 专门为此目的编写了一个很棒的小 ocx 控件，Marco Bellinaso 是一位受人尊敬的作者，也是当时 VB 社区优秀内容的重要贡献者。

该控件称为“MB MouseHelper”。您可以从 devx.com 下载它，网址为 http://www.devx.com/vb2themax/CodeDownload /19735。

替代文本 http://img25.imageshack.us/img25/3985/screencap20100809110523.jpg< /a>

使用 VB 内置的 MouseMove 事件使该控件变得有用，有两个问题：

• 您必须捕获用户在鼠标离开图像时可以放置鼠标的所有位置，例如表单或其他控件或附近的标签
• 用户仍然可以非常快速地移动鼠标，跳过窗口的任何部分，从而触发 MouseMove 事件，从而取消突出显示图像

Answer 3

您还可以将要模拟 mouseleave 事件的图像放在更大的图片中。这样，当您离开内部图片（较小）时，您将触发外部图片的 mousemove 事件。此外，如果您使用框架或标签而不是另一张图片，这也有效

Answer 4

您始终可以对控件进行子类化。 这里有一篇文章介绍了如何执行此操作。

Answer 5

如果您使用 mouseMove 事件，需要注意的一件事是，当您处于要突出显示的控件中时，要升起一个标志，而当您处于 OUT 时，要升起另一个标志，以免在每次鼠标 xy 更改时重复相同的操作

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ' if imageIsHighlighted = true then
  '    Unhighlight the image'
  '    imageIsHighlighted = false
  ' end if 
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ' if imageIsHighlighted = false then
  '       Highlight the image'
  '       imageIsHighlighted = True
  ' end if 
End Sub