Hoover effect, is it possible ?

[smig]

Hover effect, is it possible ?

is it possible to have Hover effect in Access ?
I can use the OnMouseMove event to know when the mouse is over a control but not when the mouse leave.

are there any 3rd. party apps that can be used ?

 

[stopher]

There may be better ideas but one idea is to place a rectangle around the object and set the On Mouse Move for the rectangle. In other words, use the rectangle to detect when the mouse moves outside the object.

hth
Chris

 

[smig]

thanks
I thought about that option, but this will be a lot of work to know exactly where the object is.
and will require placing a rectangle around all objects

 

[stopher]

A single very large label seems to work.
Chris

 

[vbaInet]

thanks
I thought about that option, but this will be a lot of work to know exactly where the object is.

Access is a database, not a flash object, hence, you do need to put in some work.

and will require placing a rectangle around all objects

You can move the rectangle to the object's position by setting its top and left properties to the object's top/left properties. You can also set the height and width too. You can only move within a section.

 

[smig]

Access is a database, not a flash object, hence, you do need to put in some work.

yes, I know LOL

You can move the rectangle to the object's position by setting its top and left properties to the object's top/left properties. You can also set the height and width too. You can only move within a section.

I guess the easiest way is to set a rectanle around the entire form and use each control Top, Left, Hight, Width properties

I just hoped there is a way to make a real hoover effect, even using 3rd. pary object.

 

[vbaInet]

There muxt be some sample code or sample database on this forum re this. Have a search and also look in the Sample Databases and Code Repository sections of the forum.

By the way, when you say entire form, you mean each section of the form?

 

[smig]

By the way, when you say entire form, you mean each section of the form?

I mean the section that hold the controls I want to create the effect for.

 

[vbaInet]

Cool. You do that.

 

[SOS]

By the way, I had to laugh - HOOVER effect? (using a vacuum cleaner?)

Aren't you meaning HOVER effect?

 

[georgedwilkinson]

By the way, I had to laugh - HOOVER effect? (using a vacuum cleaner?)

Aren't you meaning HOVER effect?

Man, I've been wracking my brain over this. I had no idea what a "hoover" effect was. I did all kinds of googles and just couldn't grok the concept.

I assumed it was an April Fools type joke to capture a person's pointer on a control and not allow it to get very far away (similar to the old "Ico Fright" April Fools joke on Windows 3.1).

Thanks for clearing it up for me SOS.

 

[smig]

yes, Hover effect
LOL

 

[Khalid_Afridi]

By the way, I had to laugh - HOOVER effect? (using a vacuum cleaner?)

Aren't you meaning HOVER effect?

LOL!
I was searching google for it.

 

[dkinley]

If you use the mouse over event for the details section that might be what you want. Keep in mind that if you have a control (label, text, tab, etc.) that the section even wont fire when the mouse is over these controls as they seem to supercede the section's mouse over event.

-dK

 

[speakers_86]

You can try this. I never tried it because it seemed like too much trouble then it was worth.

 

[ChrisO]

What exactly do we want to do with this 'hover' effect?

 

[smig]

Thanks Speakers

Chris - I'm not yet sure exactly. depand what I can get.
too bad I can't change the button background color. this will be the best I think. maybe changing the text color from dark gray to black. I'll have to do some tests and see what I liek most.

 

[ChrisO]

This sort of thing????

 

[smig]

yes, exactly
thanks

 

[smig]

Thanks Chris
your example was great and I'm making a good use of it.
I'll probably post some nice examples using your code in the Code Repository soon.

I only have one question left -
I want to put the functions in the public modules.
how do I send a full control stracture using a function ?
for example:
forms(MyForm).Form(MySubForm).Control(MyControl)

I tried a code similar to this but I get an error:

private sub MySub()
 
  Dim ControlName as string
  ControlName = "forms(MyForm).Form(MySubForm).Control(MyControl)"
  call MyFunction(ControlName)
 
end sub
 
 
Function MyFunction(ControlName)
 
  ControlName.Visible = false
 
end Function