当我将鼠标悬停在UserFor上时,标签闪烁

时间:2020-04-15 09:06:00

标签: excel vba

当我将鼠标悬停在用户窗体上时,我的闪烁标签出现问题。一些标签被分组。我已经将它们取消分组,但是仍然有闪烁的问题。对于每个按钮,我使用了3个标签,其中1个用于背景,1个用于图标,以及1个用于文本,因为没有任何东西可以按我的意愿放置图标和文本。 查看图片

enter image description here

除了闪烁外,它们还可以正常工作。我将标签用作按钮,因为它看起来比vba用户窗体按钮更好,并且因为当我尝试将图像用作按钮时,图片会不能正确显示,质量会降低,但在标签中可以使用。

当我将鼠标移到标签上时,标签开始闪烁,我一直在寻找这些可能的解决方案,Mr Excel ForumMy 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

预先感谢

0 个答案:

没有答案