Ярлыки на пользователе, когда я делаю мышь - PullRequest
0 голосов
/ 15 апреля 2020

У меня проблема с мерцающими надписями на моей пользовательской форме, когда я наводю курсор мыши. Некоторые ярлыки сгруппированы. Я разгруппировал их, но у меня все еще есть мерцающая проблема. Для каждой кнопки я использовал 3 метки, 1 для фона, 1 для значка и 1 для текста, поскольку ничто не поместило бы значок и текст так, как я хотел. См. Изображение

enter image description here

Помимо мерцания они работают нормально. Я использую метки в качестве кнопок они выглядят лучше, чем кнопки пользовательской формы vba, и потому, что, когда я пытался использовать изображение в качестве кнопки, изображение не отображалось правильно, качество ухудшалось, но на этикетке это нормально.

Ярлыки начинаю мерцать при наведении на них мышью, я смотрю на них как на возможное решение, Mr Excel Forum & Моя оригинальная тема на Mr Excel (код на дно этой темы), но я не уверен на 100%, как изменить его для моих ярлыков. Во второй теме, которую я разместил, есть ссылка на исходный вопрос, который был задан другим участником, в рамках этой темы они говорят о группах меток "LabelGroup.Parent.Parent.Controls". Я понятия не имею, что это такое и как это сделать. Пожалуйста, кто-нибудь может посоветовать, как я могу реализовать один из этих кодов с моим кодом, использовать форму или направить меня к другому решению.

Мой код - это простое выражение 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

Заранее спасибо

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...