Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 06:59:35

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par PCPT

+ de logiciels à télécharger

1 329 728 membres
74 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 800 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

POPUPMENU ET PERTE DE FOCUS

Information sur la source

Catégorie :Exécution Niveau : Initié Date de création : 12/09/2004 Date de mise à jour : 12/09/2004 10:45:51 Vu : 3 673

Auteur : tcari

Ecrire un message privé

Note :

8,75 / 10

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

Voilà, j'aime bien faire des applications qui se lancent depuis la barre des tâches.
Mais dès que je fais un popupmenu (on fait un clique droit sur l'icône de la barre des taches et un menu apparait), celui ci refuse de se désactiver si je coche ailleurs dans l'écran.

J'ai cherché ici, mais je n'ai rien trouvé qui corrige ce bug.

Je suis donc allé pêcher ce code sur un autre site, et vu que ca m'a été super utile, je vous le livre de ce pas.

A prioris, il faut donc passer le prog qui est dormant dans la barre des tâches au premier plan, pour qu'il puisse détecter la perte de focus et donc quitter le popupmenu si on clique ailleurs dans la fenêtre ==> donc "SetForegroundWindow Me.hwnd"

Source

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)
Dim Msg as long
Msg = X / Screen.TwipsPerPixelX
If Me.WindowState = vbMinimized then
Select Case Msg
Case BOUTON_DROIT_POUSSE 'on appuie sur le bouton droit
SetForegroundWindow Me.hwnd
Popupmenu Me.menu
end select
end if
end sub

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)
        Dim Msg as long
        Msg = X / Screen.TwipsPerPixelX
        If Me.WindowState = vbMinimized then
            Select Case Msg
                Case BOUTON_DROIT_POUSSE 'on appuie sur le bouton droit
                       SetForegroundWindow Me.hwnd
                       Popupmenu Me.menu
            end select
        end if
end sub

Historique

12 septembre 2004 08:36:50 :: Mise à jour du titre !
12 septembre 2004 10:45:51 :: Petits oublis.. Eh oui.. j'avais fait un mic mac entre l'endroit d'où j'ai tiré ce code et l'appli que je suis en train de développer.. D'où certaines incohérences. Lol ...

Sources du même auteur

METTRE UNE LISTE DÉROULANTE DANS UN LISTVIEW

Toutes les sources de tcari

Sources de la même categorie

GOOGLE WEATHER WIDGET par gpanario1

EXÉCUTER DU CODE VB.NET À PARTIR D'UN PROGRAMME EN COURS D'E... par eldim

CONTROLEUR DE PIECES par killer113

HANDLISTER par Christ_OFF

LE COMPILATEUR DESTE IDE par steckdenis

Toutes les sources de la catégorie Exécution

Commentaires et avis

Commentaire de yoyo269 le 12/09/2004 09:34:23

Merci beaucoup tcari,

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, @+.

Commentaire de bilaloch le 12/09/2004 10:12:51

Tres bonne source. 9/10.

@ ++

Commentaire de tcari le 12/09/2004 10:50:00

Voilà, c'est corrigé.. Du moins j'espère.. J'étais pas bien réveillé ce matin (un dimanche matin à 8h30 ! faut être fou pour poster du code ici !)

Commentaire de KaViDee le 12/09/2004 11:22:04

Cool, moi aussi j'en avais justement besoin :)
merci
++

Commentaire de Jielde le 24/02/2005 01:27:15

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

Commentaire de RemyFR le 09/09/2005 08:53:10

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

Commentaire de clret le 08/02/2007 16:45:33

un simple petit merci de plus...
je cherchais cette fonction depuis plusieurs jours...

Commentaire de aieeeuuuuu le 31/01/2008 10:35:49 9/10

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