Pop up text when hover on subform (1 Viewer)
- Thread starter jaryszek
- Start date
- Local time
- Today, 22:30
- Joined
- Feb 19, 2013
- Messages
- 16,649
not from the subform control but you could perhaps from the section - basically identify the 'hole' where the subform is and include a small margin
perhaps something like this on the relevant section (detail/header/footer) mousemove event (not tested and probably needs more work)
perhaps something like this on the relevant section (detail/header/footer) mousemove event (not tested and probably needs more work)
Code:
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if x>=me.subform.left-60 and x<=me.subform.left+me.subform.width +60 and y>=me.subform.top-60 and y<=me.subform.top+me.subform.height+60 then
msgbox "Howdy"
end if
End Sub- Local time
- Today, 22:30
- Joined
- Feb 19, 2013
- Messages
- 16,649
worked for me.
the section mousemove event won't trigger when mouse is over a control. If you have lots of subforms and not much section whitespace and move the mouse too quickly then perhaps it won't trigger.
only other alternative would be to have some code on the mouse move events on controls on your subform, tho not sure if that would work for a datasheet. In which case you might as well use controltip text
If your subform controls have labels, you could use the controltip text there
the section mousemove event won't trigger when mouse is over a control. If you have lots of subforms and not much section whitespace and move the mouse too quickly then perhaps it won't trigger.
only other alternative would be to have some code on the mouse move events on controls on your subform, tho not sure if that would work for a datasheet. In which case you might as well use controltip text
If your subform controls have labels, you could use the controltip text there
Last edited:
- Local time
- Today, 22:30
- Joined
- Feb 19, 2013
- Messages
- 16,649
you know because you know the top, left of each subform control, so can work it out from that. Code becomes more complex to determine that - loop through the controls, check for left within 60 of X and if a match, check top against Y.
or create an array or dictionary of the relevant controls when the form is opened.
isladogs
MVP / VIP
- Local time
- Today, 22:30
- Joined
- Jan 14, 2017
- Messages
- 18,255
Hi
I don't use control tip text as:
a) it doesn't fire unless the control is 'at the top'
b) there is a slight delay before it triggers
c) its not that obvious anyway
However it can be done quite easily using a label on the main form whose caption is updated by mouse move events.
Attached is a form & datasheet subform with mouse move events on all parts of the form & subform.
The main form includes a label in large magenta text which shows the required information
It isn't necessary to know the position of each control for this to work.
In the screenshot the mouse is over the Address line field in the subform
IMPORTANT:
1. Add a mouse move event to the detail section of the main form to hide the label & its caption. If necessary do the same on the form header/footer
2. Do NOT use this idea if your form includes a timer event otherwise you may get very irritating flashing and issues with controlling the mouse
NOTE:
The main purpose of this example was originally to hide/show the subform and adjust the form height / control position at the click of a button
I don't use control tip text as:
a) it doesn't fire unless the control is 'at the top'
b) there is a slight delay before it triggers
c) its not that obvious anyway
However it can be done quite easily using a label on the main form whose caption is updated by mouse move events.
Attached is a form & datasheet subform with mouse move events on all parts of the form & subform.
The main form includes a label in large magenta text which shows the required information
It isn't necessary to know the position of each control for this to work.
In the screenshot the mouse is over the Address line field in the subform
IMPORTANT:
1. Add a mouse move event to the detail section of the main form to hide the label & its caption. If necessary do the same on the form header/footer
2. Do NOT use this idea if your form includes a timer event otherwise you may get very irritating flashing and issues with controlling the mouse
NOTE:
The main purpose of this example was originally to hide/show the subform and adjust the form height / control position at the click of a button
Attachments
Last edited:
- Local time
- Today, 22:30
- Joined
- Feb 19, 2013
- Messages
- 16,649
how about changing this code where it appears from
to
which will prevent lblInfo being refreshed unnecessarily
Code:
Me.lblInfo.Visible = True
Me.lblInfo.Caption = "Postcode"
Code:
if Me.lblInfo.Caption <> "Postcode" then
Me.lblInfo.Visible = True
Me.lblInfo.Caption = "Postcode"
end ifwhich will prevent lblInfo being refreshed unnecessarily
