POPUPMENU ET PERTE DE FOCUS
yoyo269
Messages postés
1403
Date d'inscription
lundi 23 février 2004
Statut
Membre
Dernière intervention
11 janvier 2009
-
12 sept. 2004 à 09:34
aieeeuuuuu Messages postés 698 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 20 mai 2011 - 31 janv. 2008 à 10:35
aieeeuuuuu Messages postés 698 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 20 mai 2011 - 31 janv. 2008 à 10:35
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
https://codes-sources.commentcamarche.net/source/26106-popupmenu-et-perte-de-focus
31 janv. 2008 à 10:35
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
8 févr. 2007 à 16:45
je cherchais cette fonction depuis plusieurs jours...
9 sept. 2005 à 08:53
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
24 févr. 2005 à 01:27
12 sept. 2004 à 11:22
merci
++
12 sept. 2004 à 10:50
12 sept. 2004 à 10:12
@ ++
12 sept. 2004 à 09:34
c'est exactement se que je cherchais depuis longtemps.
Par contre je pense que tu as dû oublier qq chose pour fixer la valeur lngMsg avec un truc dans le genre :
lngMsg = X / Screen.TwipsPerPixelX
Et de plus il a fallu que je déclare la fonction SetForeGround en Private parce que ça passait pas en public, mais bon on se débrouille facilement avec ça.
Donc je te mets 8 et pas 10 parce que c'est une source qui n'est pas de toi et pour le petit oubli d'affectation à la variable.
YOYO, @+.