XL 2016 VBA - Taux de recouvrement d'un RECT par un autre RECT

[Dudu2]

Bonjour à tous,

Le point de départ de ce problème est la question "doit-on changer le OWNER d'un UserForm" ?
Parce que s'il est placé ou déplacé sur l'une des fenêtres d'un classeur qui n'est pas son OWNER, on le sait grâce à l'évènement UserForm_Layoit(), il sera masqué totalement ou partiellement par cette fenêtre dès lors qu'elle sera active. Et dans ce cas, il faut changer son OWNER par le Handle de la fenêtre en question.

D'où la question... Quel est le taux de recouvrement du UserForm RECT par un Window RECT.

La fonction PourcentageUserFormSurfaceCouverteParWindow dans ce fichier est à écrire !

 

[Dudu2]

Voila la démo.
Tu créés 2 fénêtres juxtaposées de ce classeur (par exemple avec WIN + <- et WIN + ->) et tu testes.
1 - affichage du UserForm bouton 1 et fermeture de la fenêtre utilisée
2 - affichage du UserForm bouton 2 et fermeture de la fenêtre utilisée
Tu verras la différence !

 

[patricktoulon]

Bonjour,
J'aime bien le Call SetWindowPos(UserFormHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE).
Ça m'évite effectivement de gérer le changement d'Owner pour les recouvrements par des Windows autres.
Par contre c'est du violent. Devant c'est devant ! Rien n'y résiste, pas même une autre application.
Mais le jeu en vaut la chandelle.

ben c'est fait pour ca
et tu peux blinder le truc c'est &h1+&h2+&h20+&h40+&h200

 

[Dudu2]

Qu'entends-tu par blinder ? Ça va changer quoi dans le comportement du TOPMOST ?

 

[patricktoulon]

re allez
demo

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

 

[Dudu2]

HELP !
Je voudrais quand même ré-introduire le OWNER à 0 malgré l'inconvénient de la minimisation à -19200.
Je vous passe les détails de la mise en œuvre conditionnelle.

Il me faut savoir si le UserForm a été ajouté et minimisé en TaskBar.

Pour l'ajouter et provoquer sa minimisation en TaskBar je fais ça:

    Call SetWindowPos(UserFormHandle, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE Or SWP_HIDEWINDOW)
    Call SetWindowLongPtr(UserFormHandle, GWL_EXSTYLE, WS_THICKFRAME)
    Call SetWindowPos(UserFormHandle, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE Or SWP_SHOWWINDOW)

Mais à l'inverse, je n'arrive pas à trouver un moyen de tester a posteriori s'il est en TaskBar ou pas.
Pourquoi ? Voir le texte en bleu mon Post #14.

Je vais faire un fichier de démo pour vous faciliter les recherches.

 

[Dudu2]

Fichier de test pour la question du Post précédent...

 

[patricktoulon]

re

Il me faut savoir si le UserForm a été ajouté et minimisé en TaskBar.

allons @Dudu2 on l'a vu ensemble cela déjà
tu pose la question avec l'api ad hoc

Declare PtrSafe Function IsIconic Lib "user32" Alias "IsIconic" (ByVal hwnd As LongPtr) As Long

msgbox isiconic(handle du userform)

 

[Dudu2]

Cette API ne fonctionne pas quand le UserForm n'est pas minimisé;
Il faut que j'introduise la minimisation pour voir si ça fait la différence.

 

[Dudu2]

Ça ne marche pas davantage avec le UserForm minimisé, car quelque soit la manière de le définir (en standard ou en TaskBar) quand il est minimisé, IsIconic retourne True ce qui me semble normal.

En fait ce qu'il me faudrait c'est une liste des Windows de la TaskBar.
J'avais ça autrefois mais je l'ai perdu !

 

[patricktoulon]

ben chez moi elle donne 0 quand c'est non et 1 quand c'est oui et c'est tout
maintenant en effet j'ai pris la peine de regarder ton fichier
et je crois que tu confond mettre l'icone (raccourci du userform) en barre des tache) et réduire dans la barre des taches c'est pas la même chose
1° ton fichier userform( réduit ou pas) tu a l'icone dans la taskbar
2°chez moi avec mon code ,l'icone y est UNIQUEMENT!! quand le userform est réduit
tel que tu le fait tu te prive de tout les outils dont tu a besoin (visiblement) en l'occurrence ici l'api isiconic
prend la peine de regarder la video

 

[Dudu2]

ben chez moi elle donne 0 quand c'est non et 1 quand c'est oui et c'est tout

Si c'est pas minimisé c'est normal que ça rende 0.
Mon problème est de différencier un minimisé standard d'un minimisé TaskBar.
Et là, le fichier du Post #24 montre que IsIconic ne fait évidemment pas la différence.

P.S. Je te repondrai sur ta vidéo plus tard pour ne pas mélanger les problèmes.

 

[Dudu2]

1° ton fichier userform( réduit ou pas) tu a l'icone dans la taskbar
2°chez moi avec mon code ,l'icone y est UNIQUEMENT!! quand le userform est réduit

Pour la 1° oui je sais.
Pour le 2°, envoie ton code que je regarde. J'ai du mal à faire copier/coller à partir d'une vidéo 😛

 

[patricktoulon]

après tu peux faire un simple msgbox getwindowlong(hwnd , -20)

si tu obtiens 110 c'est réduit sinon c'est 108

 

[Dudu2]

J'ai effectivement utilisé cette API et manipé à ma sauce et à l'aveugle sur le résultat.
Ça marche chez moi et j'aimerais que tu ou vous (si @Dranreb suit toujours le sujet, ou tout autre lecteur du post) testassiez ce fichier pour voir s'il répond Vrai ou Faux de manière correcte dans des configurations VBA7 32 bits et non VBA7 32 bits.

 

[patricktoulon]

re
2013 vba7 32

donc c'est pas bon