Question

I’ve got a timer set up to detect if the mouse is over a certain area on my form, which you can imagine to be a rectangle starting at 50,50 (pixels) and ending at 1000,500. If the mouse is inside that rectangle, a second window pops up that acts somewhat like a tooltip, following the mouse around. The problem is that the menus at the top drape over this rectangle, and if you try to use a menu, the second window pops up (the timer sets its visible property to true) as soon as you move down the menu, which ends up closing the menu (I guess due to a loss of focus or something.)

If I can detect when one of the menus is open, I can disable the showing of the tooltip window with an if statement, but I don’t know how to do that.

Answer 1

I think I’ve figured out how to do this by searching WIN32API.txt for “menu” and a little bit of googling, but I’m not really sure. Perhaps this solution only works on my machine.

Putting this code…

Dim hMenu As Long
hMenu = GetMenu(Form1.hwnd)
MsgBox GetMenuState(hMenu, 0, MF_BYPOSITION)

on a timer with an interval of 5000 allows you to the view the menu’s state. In a closed state, the number appears to be random (1552, 1296, etc.,) but when the menu is opened, it is offset by 128 from this base value. A menu whose state is 1552 when closed is 1680 when open.

I’m not sure why it’s offset by 128 or if this works on all machines (just to be safe, I will program it to check for inequality, not offset by 128), but it appears to be working for me.

If there is a problem with this solution or if there is a better way, please respond with another answer, and I’ll be glad to give you credit for the answer instead.