XL 2016 Quoi de moins simple que de déterminer le RECT d'une fenêtre ? Fichier pour test...

Dudu2 · Vendredi à 18:12

Bonjour,

Pour des raisons qui m'échappent, les coordonnées d'une fenêtre ont des valeurs farfelues lorsque cette fenêtre est maximisée.
Ainsi:

VB:

With ActiveWindow
    .Left
    .Top
    .Width
    .Height
End With

ne correspondent pas à la réalité, du moins celle qui pourrait servir à position un UserForm aux limites de la fenêtre pas exemple.

Aussi, j'ai dû passer par de l'API pour déterminer l'exact RECT (pixels) d'une fenêtre qui doit rester valide en multi-moniteurs.
Et bingo, bug excel (chez moi en tous cas) lorsque la TaskBar n'est pas en bas sur la fonction API GetClientRect() qui retourne 1 pixel de moins que prévu en Bottom !

Alors j'ai 2 versions de cette fonction utilisateur GetWindowExactRECT et GetWindowExactRECTSimple et j'aimerais que quelques XLDNautes dévoués aux causes perdues fassent le test suivant.

Lancer le fichier ci-dessous
Maximiser la fenêtre Excel si elle ne l'est pas déjà
Pour chaque position de barre des tâches en bas, à gauche, en haut, à droite
a) - Vérifier que les 2 résultats affichées des RECT de la fenêtre sont identiques
b) Vérifier qu'ils sont cohérents avec la dimension de l'écran en pixels

Merci par avance.

Dudu2 · Vendredi à 23:20

C'est ça, en fait ça n'a pas tellement de sens de chercher ou d'utiliser le RECT de la fenêtre.
Car en Maximisé, si Excel dit que Left et Top c'est -8 ou -9 c'est que ce sont les valeurs telles qu'il les gère.
Cependant, ce RECT est inexploitable pour positionner un UserForm.

Le seule chose qui soit exploitable c'est le RECT de la fenêtre corrigé des marges qu'on trouve en calculant la différence de largeur et de hauteur entre le GetWindowRECT et le GetClientRECT corrigé du potentiel bug Excel sur le ClientRECT.Bottom quand la fenêtre est maximisée et la barre des tâches pas en bas ou en antohide.
Sans bug Excel c'est moins amusant !

C'est ce que font maintenant la fonction...

patricktoulon · Hier à 15:57

Dudu2 à dit:
@patricktoulon, là tu me parles de RECT des moniteurs (rcMonitor ou rcWork), toutes choses que ma ressource connait et utilise. Dans ce sujet, ce sont les Windows qui sont concernées.

@TooFatBoy, tes résultats sont tous les mêmes quant au WindowRECT, sauf la position et les coordonnées de la barre des tâches qui n'ont aucun sens. C'est un peu comme si aucune des API ne fonctionnait. Je ne sais pas ce qui se passe sur ta config.

@maximisées les windows sont sensées occuper tout le rcwork que je sache non ?
tu vois le truc ou pas ?
moi ce qui m’étonne c'est que tu fait tout un bataillon alors que le rcwork de chaque écran est sensé te donner
le rect sans la taskbar ou autres docksides

maximisé =le rcwork
minimisé= les left/top/et le reste en point *ppx
et c'est tout
en fait ce que je te dis depuis ma première intervention dans cette discussion c'est de prendre le problème à l'envers

chez moi ça tombe juste sur les deux écrans et je ne calcule rien pas de bordures de frame et autre cochonnerie que ce soit pour l'application ou un userform

d'autant plus que si tu a x écrans de différentes résolutions (ce qui est mon cas) que tu cherche a déduire la taskbar ben tu dois bien rigoler par exemple chez moi sur l’écran tv elle fait 40 et sur le ptit écran elle fait 33
c'est balo!!

Dudu2 · Hier à 16:33

@TooFatBoy,

Oui, mais seul le "Simple" donne le bon résultat.

Si ta Barre des Tâches est en "autohide" alors tout est normal, y compris la différence entre les 2 fonctions car je n'ai pas testé ce cas dans la fonction SHAppBarMessage. Je comprends mieux les résultats.

Dudu2 · Hier à 16:34

@Nicolas JACQUIN,

pourtant les résultats sont différents selon demi écran ou pleine écran.

Qu'entends-tu par demi et plein écran ?

Dudu2 · Hier à 16:43

@patricktoulon,
Il ne sert à rien de savoir si la fenêtre est maximisée ou pas.
On récupère sa position grâce à l'API GetWindowRECT et applique une correction des marges grâce à GetClientRECT. C'est tellement simple que tout le monde comprends.

TooFatBoy · Hier à 17:29

Dudu2 à dit:
Si ta Barre des Tâches est en "autohide" alors tout est normal

Tu as tout compris : ma BdT est effectivement masquée automatiquement.

Dudu2 · Hier à 17:33

@TooFatBoy,
Ta config de TaskBar en autohide a mis en évidence une lacune dans une des 2 fonctions que j'ai corrigé.
Le bug Excel sur ClientRECT.Bottom est aussi présent en TaskBar autohide chez moi.
Chez toi, je ne sais pas.

Alors peux-tu STP exécuter le fichier joint pour afficher les marges DiffX et DiffY (peu importe la position de la TaskBar qui est en autohide). Ensuite j'adapterai le code du fichier solution.

TooFatBoy · Hier à 17:41

Dudu2 à dit:
Alors peux-tu STP exécuter le fichier joint pour afficher les marges DiffX et DiffY (peu importe la position de la TaskBar qui est en autohide).

16 et 16

Dudu2 · Hier à 17:55

16 et 16, c'est très contrariant pour moi car le bug Excel ne se manifeste pas chez toi en TaskBar autohide ! Tu dois avoir une version récente d'Office où c'est corrigé (supposition).

Donc la correction que je fais pour chez moi pour ramener 19 à 18 sur la base de la TaskBar n'est pas applicable chez toi !
Je vais procéder différemment et n'utiliser que la version simple car cette différence de 1 est inhibée par la division entière par 2 sachant que DiffX et DiffY sont normalement paires puisqu'ils contiennent les marges des 2 cotés.

patricktoulon · Hier à 17:59

ha oui
je reprends ta formulation

et selon toi ton calcul est sensé me donner quoi avec ça en maximisé

VB:

Declare PtrSafe Function GetClientRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As rect) As Long
Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As rect) As Long
Private Type rect
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type
Sub test()
    Dim r1 As rect, r2 As rect, r3 As rect
    GetWindowRect Application.hwnd, r1
    GetClientRect Application.hwnd, r2

    Debug.Print "GetWindowRect : " & r1.left & " | " & r1.top & " | " & r1.right & " | " & r1.bottom
    Debug.Print "GetClientRect : " & r2.left & " | " & r2.top & " | " & r2.right & " | " & r2.bottom

    DiffX = (r1.right - r1.left) - (r2.right - r2.left)
    DiffY = (r1.bottom - r1.top) - (r2.bottom - r2.top)

    With r3
        .left = r1.left + Int(DiffX / 2)
        .right = r1.right - Int(DiffX / 2) + DiffX Mod 2
        .top = r1.top + Int(DiffY / 2) + DiffX Mod 2
        .bottom = r1.bottom - Int(DiffY / 2) + DiffY Mod 2
    End With

    Debug.Print "rect final : " & r3.left & " | " & r3.top & " | " & r3.right & " | " & r3.bottom


End Sub

tu veux voir le résultat?et je te fait grâce du 1pixel en maximisé

alors que le rcwork de mon moniteur me donne 860
alors ma methode avec le systeminfo me donne 860
alors que ma méthode avec les fenêtre fille me donnent 860
alors que le simple .top+.height *ppx me donne 860
chez moi il y a 4 de trop -2 pour le top et 2 pour le bottom

je ne sais pas comment tu arrive a un bon résultat chez toi mais en tout cas il ne peut être générique
et pour le coup tu le vois en animation ya pas de triche

et c'est ton code j'ai juste changé le nom des rect

TooFatBoy · Hier à 18:04

Dudu2 à dit:
16 et 16, c'est très contrariant pour moi

Désolé

Dudu2 · Hier à 18:22

Désolé

Y a vraiment pas de quoi, au contraire , ça montre que tout le monde n'a pas la même chose et qu'il faut savoir s'adapter.

Le fichier solution du Post #13 est maintenant corrigé et n'utilise qu'une seule fonction.
@TooFatBoy, un dernier test avec ce fichier STP ? Merci par avance.

Dudu2 · Hier à 18:24

et selon toi ton calcul est sensé me donner quoi avec ça en maximisé

En maximisé ou en réduit, ce calcul te donne la réponse à la question posée par le sujet.
Tu n'as pas vérifié ? Essaie le fichier du Post #13 et tu verras.

Dudu2 · Hier à 18:30

Ooops ! Erreur de chargement, Post #13 modifié à l'instant

TooFatBoy · Hier à 18:32

Dudu2 à dit:
Le fichier solution du Post #13 est maintenant corrigé et n'utilise qu'une seule fonction.
@TooFatBoy, un dernier test avec ce fichier STP ? Merci par avance.

Avec plaisir.

Well done !

You are the Big Boss :

Dudu2 · Hier à 18:43

Merci pour le test @TooFatBoy, les coordonnées sont correctes.
Cependant je ne comprends pas pourquoi tu n'as pas la position et l'autohide de la barre des tâches.

C'est un autre sujet, mais la fonction GetTaskBarPosition() ne retourne pas une valeur correcte.
Encore un mystère... du 32 bits ? Je vais investiguer. D'ailleurs je ne suis pas sûr d'avoir bien utilisé SHAppBarMessaget() pour ça.

XL 2016 Quoi de moins simple que de déterminer le RECT d'une fenêtre ? Fichier pour test...

Dudu2

XLDnaute Barbatruc

Pièces jointes

Dudu2

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires