当我将鼠标悬停在用户窗体上时,我的闪烁标签出现问题。一些标签被分组。我已经将它们取消分组,但是仍然有闪烁的问题。对于每个按钮,我使用了3个标签,其中1个用于背景,1个用于图标,以及1个用于文本,因为没有任何东西可以按我的意愿放置图标和文本。 查看图片
除了闪烁外,它们还可以正常工作。我将标签用作按钮,因为它看起来比vba用户窗体按钮更好,并且因为当我尝试将图像用作按钮时,图片会不能正确显示,质量会降低,但在标签中可以使用。
当我将鼠标移到标签上时,标签开始闪烁,我一直在寻找这些可能的解决方案,Mr Excel Forum和My Original Thread on Mr Excel(此线程底部有一个代码) ,但我不确定100%如何更改我的标签。在我发布的第二个线程中,有一个指向另一个成员提出的原始问题的链接,在这个线程中,他们谈论标签组“ LabelGroup.Parent.Parent.Controls”。我不知道这是什么以及怎么做。请有人建议我如何在我的代码,useform中实现这些代码之一,或指导我使用另一种解决方案。
我的代码是一个简单的IF语句,可将鼠标悬停在事件上
Private Sub MainMenuPageButton_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'MainMenuPageButton border change green on mouse over
MainMenuPageButton.BorderColor = 8435998 'change boarder to green
'Grey Borders for all other labels
SearchButton.BorderColor = -2147483627
WebBrowserButton.BorderColor = -2147483627
SaveFileButton.BorderColor = -2147483627
EmailButton.BorderColor = -2147483627
LoadFileButton.BorderColor = -2147483627
Sheet2Button.BorderColor = -2147483627
Sheet3Button.BorderColor = -2147483627
Sheet12Button.BorderColor = -2147483627
End Sub
预先感谢