[VB] Systray Popup menu

[me1299]

Ik ben bezig met een applicatie die op de systray werkt.

IPV irritante API calls om dat op te lossen heb ik een handig OCX filetje gebruikt.

Dat gaat allemaal goed, ik roep mijn popmenu op dmv een gemaakt menu in de menu editor. Het probleem is alleen dat mijn popup menu niet weggaat voordat ik een optie heb aangeklikt.

FF een voorbeeld:

Ik klik rechts op mijn icoontje in de systray, ik kies vervolgens geen optie uit het menu, maar klik daarintegen op de startbalk. Het menutje verdwijnt niet maar blijft gewoon staan.

Weet iemand misschien hoe ik dat op zou kunnen lossen?

[me1299]

Hele avond aan het zoeken. En na het posten van dit topic vind ik natuurlijk zelf weer een oplossing

Mocht iemand het nog nodig hebben:

Deze moet je in je declarations bovenaan:

code:

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

Gevolgd door dit voordat je het popupmenu laat zien:

code:

SetForegroundWindow Me.hWnd

[Nexopheus]

Waar staat dat mooie ocx-je van je. Kunnen we ook meegenieten :-)

[Verwijderd]

Bedankt DeathKnight!!
Dit probleem heb ik al jaren en heb me er eigenlijk nooit druk over gemaakt. (stom eigenlijk he...)
Maar goed - je oplossing werkt perfect!!