Я боролся с этим уже несколько дней и, похоже, не могу решить это. Я использую изображения в качестве кнопок, которые имеют эффект наведения мыши, который меняет границу на ЗЕЛЕНЫЙ, когда на них наведена мышь, кроме того, что они мигают при наведении курсора, это прекрасно работает, кроме случаев, когда проблема возникает, см. Ниже проблему.
У меня затем событие onClick, которое меняет границу на ЗЕЛЕНУЮ, если выбрано это изображение / кнопка, это указывает на то, что это активно, когда щелчок открывает многостраничный, этот бит также, кажется, работает нормально, так как я должен был вставьте событие перекраски, так как оно не будет работать без него. UserForm1.Repaint
.
Проблема, с которой я столкнулся
После выбора изображения / кнопки и отмены выбора события мыши на изображении больше не будет работать с изображением / Кнопка, которая была ранее выбрана.
Пример. Если я прокручу мышь над двумя кнопками ниже, их границы станут зелеными при наведении курсора. Если я выбрал кнопку WebBrowser, ее граница изменится на зеленый, указывая что это активно. После отмены выбора мыши больше не будет работать на нем. Отмена выбора осуществляется путем выбора другой кнопки.
Это моя мышь над кодом
Private Sub WebBrowserNewButt_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
''Set WebBrowserNewButt Border Colour Green
If WebBrowserNewButt.BorderColor <> 8435998 Then
Me.WebBrowserNewButt.BorderColor = 8435998
''Grey Borders
Me.MainMenuButton.BorderColor = -2147483627
Me.SecondMenuButton.BorderColor = -2147483627
Me.EmailButton.BorderColor = -2147483627
Me.SearchButton.BorderColor = -2147483627
Me.SaveNewButton.BorderColor = -2147483627
End If
End Sub
Код Onclick
Private Sub WebBrowserNewButt_click()
Me.WebBrowserNewButt.BorderColor = 8435998 'GREEN BORDER
'GREY BORDERS, for all other images(buttons)
Me.MainMenuButton.BorderColor = -2147483627
Me.SecondMenuButton.BorderColor = -2147483627
Me.EmailButton.BorderColor = -2147483627
Me.SearchButton.BorderColor = -2147483627
Me.SaveNewButton.BorderColor = -2147483627
UserForm1.Repaint
'MULTIPAGES
Me.MultiPage1.Pages(0).Visible = True
MultiPage1.Value = 0
Me.MultiPage1.Pages(1).Visible = False
Me.MultiPage1.Pages(2).Visible = False
Me.MultiPage1.Pages(3).Visible = False
Me.MultiPage1.Pages(4).Visible = False
End Sub
То, что я пробовал до сих пор.
- Я пробовал это со мной и без Меня. (Я оставил это на себе.)
- Я попытался найти ответ в Google
- Я попробовал это без перерисовки, не работал без перекраски, перерисовка заставляет изображения всплывать sh ,
- Я попытался разместить цвет границы изменения на многостраничной странице, поэтому, если эта многостраничная активная visible = true , то цвет границы изображения изменится, не удалось получить его работа.
- Я убрал опцию поворота границ на Серый при наведении, что не решило проблему.
На многостраничных страницах вкладки не будут видны.
Пожалуйста, кто-нибудь может посоветовать, что делать.
Как всегда, спасибо заранее.