POPUPMENU ET PERTE DE FOCUS

Signaler
Messages postés
1403
Date d'inscription
lundi 23 février 2004
Statut
Membre
Dernière intervention
11 janvier 2009
-
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/26106-popupmenu-et-perte-de-focus

Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
2
Merci beaucoup
J'ai eu un peu de mal également a trouver la solution.
pourtant, ça n'est pas le nombre de sources sur ce site pour afficher un popupmenu qui manquent...
mais très peu indiquent comment faire pour l'effacer si on ne clique pas dessus.
et une solution efficace qui tiens en 2 lignes en plus :)

merci encore
Messages postés
8
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
25 octobre 2009

un simple petit merci de plus...
je cherchais cette fonction depuis plusieurs jours...
Messages postés
5
Date d'inscription
dimanche 3 novembre 2002
Statut
Membre
Dernière intervention
4 mars 2007

Super !!!!!

je cherchais depuis un petit moment.

Dans mon cad j'ai juste fais ceci :

# private Const DOUBLE_CLICK_GAUCHE = &H203
# private Const BOUTON_GAUCHE_POUSSE = &H201
# private Const BOUTON_GAUCHE_LEVE = &H202
# private Const DOUBLE_CLICK_DROIT = &H206
# private Const BOUTON_DROIT_POUSSE = &H204
# private Const BOUTON_DROIT_LEVE = &H205
# Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
#

#Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
#Static rec As Boolean, msg As Long

#msg = X / Screen.TwipsPerPixelX
#If rec = False Then
# rec = True
# Select Case msg
# Case DOUBLE_CLICK_GAUCHE:
# Quit_Click
# Case BOUTON_DROIT_LEVE:
# PopupMenu Menu
# End Select
# rec = False
#End If

#SetForegroundWindow Me.hwnd

#End Sub
Messages postés
226
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
1 décembre 2010

Merci énormément, c'était un truc que je cherche depuis très longtemps, le trouvé enfin c'est super sa mérite bien une petite note sa
Afficher les 8 commentaires