Multipage mouseover event to open "sub" multipages

[rjchristensen]

Hello, I am trying to use multipage controls on a userform. I have created a series of multipages that go 3 to 4 levels down. I am trying to create a nested menu structure. When I run the form the multipages open the "sub" pages as when clicked. I want them to open using a mouseover event or something similar. Has anyone done this before? And, if so, how? Thanks!

 

[DanteAmor]

Hi @rjchristensen
Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.

Something like this is what you want?

Review the following code.
There may be some adjustments to be made, but now you have something to start with and play with for a while.

Sub setColor(lbl As MSForms.Label, mlt As Long, vle As Long)
  Dim ctrl As Object
  For Each ctrl In Controls
    If Left(ctrl.Name, 4) = "Page" Then
      ctrl.BackColor = &H8000000F
    End If
  Next
  Controls("MultiPage" & mlt).Value = vle
  lbl.BackColor = &HFF00&
End Sub

'***** Page 1 *****
Private Sub Page1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page1, 1, 0)
End Sub
Private Sub Page1_1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page1_1, 2, 0)
End Sub
Private Sub Page1_2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page1_2, 2, 1)
End Sub
Private Sub Page1_1_1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page1_1_1, 3, 0)
End Sub
Private Sub Page1_1_2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page1_1_2, 3, 1)
End Sub

'***** Page 2 *****
Private Sub Page2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page2, 1, 1)
End Sub
Private Sub Page2_1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page2_1, 4, 0)
End Sub
Private Sub Page2_2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page2_2, 4, 1)
End Sub
Private Sub Page2_1_1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page2_1_1, 5, 0)
End Sub
Private Sub Page2_1_2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Call setColor(Page2_1_2, 5, 1)
End Sub

I share my test file.

multipage mouseover.xlsm

drive.google.com

--------------
Cordially
Dante Amor
--------------​

 

[rjchristensen]

Thank you! I will see if this can do what I need it to do.