VBA, MultiPage with UserForm. Syntax issue. mousemove event.

[rain4u]

Hi
I wonder if someone knows the correct syntax.

Quite often I use some text boxes on my userforms to act as similar way as ControlTipText.
E.g. If user hovers over labels they will see some tips so they can understand what they need to do (text boxes appear once user hovers on particular label - see code below).

Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox2.Text = "Choose end date:" & vbCrLf & vbCrLf & "" _
& "Tip:" & vbCrLf & "" _
& "Please ensure that the date selected genuinely exists within the calendar year." & vbCrLf & vbCrLf & "" _
& "E.g. 31st April 2012 does not exist." & vbCrLf & ""
Me.TextBox2.Visible = True
End Sub

I normally use userform mouse movement to hide/remove these text boxes again after user has moved away from the label using code below:

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox1.Text = ""
Me.TextBox1.Visible = False 
Me.TextBox2.Text = ""
Me.TextBox2.Visible = False
End Sub

How can I do the same thing but still be using multipage feature?
I did try below (simply changing UserForm to MultiPage1) which does not work and errors out, lol.

Private Sub MultiPage1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

I would appreciate if someone can share the secret of correct syntax as I quite like the multipage feature.

Any ideas?

[royUK]

Why not just use the ControlTipText Property?

[rain4u]

ControlTipText does not support multiple lines. The tips or instructions that I have on the userform are bit more detailed so ControlTipText does not work in my circumstances (the one line it does allow would become very long). Also ControlTipText doesn't allow any formating, I like white text on dark blue background, so as soon as the TextBox appears, it really sticks out on the userform.

Any idea what the mousemove event sytnax for mulitpage could be?

[royUK]

I'm not sure what problems you are having. The first mouse move example you've posted works fine on a multipage control

[rain4u]

Hi
I think the easiest option is just to demonstrate it.
In the attached workbook there are two macro buttons which bring up two different userforms.
The example 1 (Usual userform example) is regular userform.
The example 2 (Userform Multipage example) is a userform with multi-page tab.

Check how example 1 works to see how the tipboxes disappear after you have moved away from the label and you move on the userform, this is because the code below:

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox1.Text = ""
Me.TextBox1.Visible = False 
Me.TextBox2.Text = ""
Me.TextBox2.Visible = False
End Sub

Now check example 2
How can I achieve the same thing that the Tipboxes disappear after you have moved away from the label and you move on the multi-page surface?



All help is much appreciated.

[rain4u]

***bump***

[royUK]

To be honest when I have this situation I find it more effective to have a small help icon for the user to click which would open a message box or small userform

[nilem]

maybe

Private Sub MultiPage1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TipBox1.Visible = False
Me.TipBox2.Visible = False
'or
'Me.Controls("TipBox" & MultiPage1.Value + 1).Visible = False
End Sub

[rain4u]

Thak you Nilem. I can confirma that this works like great.
Someone else might find this useful as far as I was able to Google, I couldn't find anything on the subject at least not in English.


Cheers