Событие при наведении курсора мыши НЕ запускается повторно после выбора элемента - PullRequest
1 голос
/ 17 апреля 2020

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

У меня затем событие onClick, которое меняет границу на ЗЕЛЕНУЮ, если выбрано это изображение / кнопка, это указывает на то, что это активно, когда щелчок открывает многостраничный, этот бит также, кажется, работает нормально, так как я должен был вставьте событие перекраски, так как оно не будет работать без него. UserForm1.Repaint.

Проблема, с которой я столкнулся

После выбора изображения / кнопки и отмены выбора события мыши на изображении больше не будет работать с изображением / Кнопка, которая была ранее выбрана.

Пример. Если я прокручу мышь над двумя кнопками ниже, их границы станут зелеными при наведении курсора. Если я выбрал кнопку WebBrowser, ее граница изменится на зеленый, указывая что это активно. После отмены выбора мыши больше не будет работать на нем. Отмена выбора осуществляется путем выбора другой кнопки.

Images Used as Buttons

Это моя мышь над кодом

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 , то цвет границы изображения изменится, не удалось получить его работа.
  • Я убрал опцию поворота границ на Серый при наведении, что не решило проблему.

На многостраничных страницах вкладки не будут видны.

Пожалуйста, кто-нибудь может посоветовать, что делать.

Как всегда, спасибо заранее.

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