[VB6] Nascondere il Menu se "clicco fuori"

[Artemio]

ciao a tutti
ho un programmino con una notifyicon, e al click destro del mouse viene visualizzato un menu.
Quest'ultimo però scompare solo se clicco su una delle voci... esiste un API che nel caso in cui si clicchi fuori dal menu, faccia scomparire il menu? avevo pensato a qualcosa con hWnd... ma nn so da dove cominciare.
grazie

[MdE2005]

avevo pensato a qualcosa con hWnd... ma nn so da dove cominciare.

Che c'entra hWnd ?!?!? E' una proprietà di alcuni controlli (di sola lettura) che restituisce l'handle dell'oggetto stesso..

Comunque, se ho capito bene il problema si ha quando clicchi con il pulsante destro sulla notify_icon e ti appare il menù: se clicchi su di un menù va via il menù stesso, altrimenti no..

Se fosse così, penso proprio che dovresti ricorrere ad un Hook di sistema per intercettare il click del mouse e successivamente potresti ricavarti le coordinate e vedere se sono comprese tra quelle del menù..

ciao

[Artemio]

avevo pensato all'hWnd xkè l'avevo gia usato per un'altra OCX e dava l'effetto che desideravo applicare ( qualcosa del tipo: If ControlhWnd = Me.hWnd Then etc...).

quello che vorrei fare è:
cliccare con il destro sulla notifyicon e appare il menu(e fin qui lo so fare) e nel momento in cui clicco al di fuori dell'area del menu, il menu scompare

[MdE2005]

Allora avevo capito..e la risposta te l'ho già data.

Per quanto riguarda l'HWnd non significa niente quello che stai dicendo, è una proprietà come le altre e quindi è chiaro che viene usata anche in altre svariate occasioni..

ciao

[Artemio]

dovresti ricorrere ad un Hook di sistema per intercettare il click del mouse e successivamente potresti ricavarti le coordinate e vedere se sono comprese tra quelle del menù..

non è che magari potresti postartmi 1 piccolo esempio :master:

[MdE2005]

Sinceramente ora non ho tutto quel tempo per scrivere una cosa del genere, comunque se cerchi in rete troverai sicuramente qualche esempio per intercettare le azioni del mouse: chiaramente a te interessa l'evento Click..

ciao

[mgmg]

Prova a leggere questo articolo e vedere se è l'esempio che cerchi:

http://www.vbitalia.it/static/tray.htm

oppure vedi se puoi adattare questo piccolo esempio che determina dov'è il puntatore del mouse:

Type POINTAPI 
 x As Long 
 y As Long 
End Type 

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 


Dim z As POINTAPI 


Private Sub Timer1_Timer() 
  GetCursorPos z 
  Label1  "x: " & z.x 
  Label2  "y: " & z.y 
End Sub