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

Dranreb

XLDnaute Barbatruc

• 16 Juin 2024

• #31

Chez moi je n'ai pas de plantage mais le troisième bouton peux afficher Vrai alors qu'il n'y a pas de tâche "UserForm1" dans la barre de tâches.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Juin 2024

• #32

OK merci pour vos retours.

C'était un truc à l'aveugle avec un And sur &HFF donc ça m'étonne pas que ça fonctionne pas en 32 bits.

VB:

Function LeUserFormEstIlEnTaksBar() As Variant  'Boolean
    Dim iStyle As Variant
    
    iStyle = GetWindowLongPtr(UserFormHandle, GWL_EXSTYLE)
    LeUserFormEstIlEnTaksBar = Not CBool(iStyle And &HFF)
End Function

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Juin 2024

• #33

Allez, un dernier test... Quant à faire un truc bourrin !
Pouvez-vous me dire les 2 valeurs retournées en 32 bits selon que c'est en TaksBar ou pas ?
Chez moi 64 bits:
- En standard: 256 ou 257
- En Taskbar: 262400

 

Pièces jointes

• Classeur1.xlsm

  32.8 KB · Affichages: 1

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juin 2024

• #34

Chez moi aussi, en standard affiche parfois 256 et parfois 257, en TaskBar 262400.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Juin 2024

• #35

re
avant d'essayer ton dernier fichier je peux te dire pourquoi ça ne fonctionne pas
si tu avais pris le temps de regarder la video j'explique justement ça
je le répète il faut faire les choses dans un certain ordre
avec ton fichier 1 je suis déjà à 256 et 262400

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Juin 2024

• #36

Si vous avez ces chiffres qui sont les mêmes que les miens, alors je ne comprends pas pourquoi le test du fichier donne des résultats différents puisque c'est juste un AND avec un 0xFF.

Sinon, sur la base de ce sujet de stackoverflow, une approche un peu moi aveugle... A tester encore !

 

Pièces jointes

• Classeur1.xlsm

  32.8 KB · Affichages: 1

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juin 2024

• #37

Dudu2 à dit:

je ne comprends pas pourquoi le test du fichier donne des résultats différents puisque c'est juste un AND avec un 0xFF.

Cliquez pour agrandir...

Sans approfondir, et au hasard, 257= &H101, And &H0FF = &H001, = 1, non ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Juin 2024

• #38

Oui mais le résultat était un NOT du CBool.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juin 2024

• #39

Vague ça. À quel endroit de l'expression y avait-il un And &HFF ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Juin 2024

• #40

bon je viens de tester ma méthode avec les api déclarées avec les même valeurs hex

et en effet il semble qu'en vba 7 ça déraille tout du moins ça me dit n'importe quoi

je suis bien content de ne pas les utiliser comme ça

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Juin 2024

• #41

La fonction c'était ça. Sachant que les 256/257 et 262400 sont les iStyle.

VB:

Function LeUserFormEstIlEnTaksBar() As Variant  'Boolean
    Dim iStyle As Variant
   
    iStyle = GetWindowLongPtr(UserFormHandle, GWL_EXSTYLE)
    LeUserFormEstIlEnTaksBar = Not CBool(iStyle And &HFF)
End Function

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juin 2024

• #42

Alors la différence par rapport à Not CBool(iStyle) c'est que ça ne se retrouve plus False pour des bits à 1 de poids forts au moins 2^8 dans iStyle, c'est ça ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Juin 2024

• #43

C'est un test bidon que j'ai fait à l'aveugle qui en plus ne fonctionne pas pour 256.
C'est pour ça que les résultats sont différents en fonction de la valeur que prend le iStyle en affichage standard 256 ou 257.
J'ai tout faux sur ce fichier. Mea culpa !

VB:

Sub a()
    MsgBox "256->" & (Not CBool(256 And &HFF)) & vbCrLf & _
           "257->" & (Not CBool(257 And &HFF)) & vbCrLf & _
           "262400->" & (Not CBool(262400 And &HFF))
End Sub

Je préfèrerais que tu testes le fichier du Post #36.

Dans le pire des cas je testerai sur les valeurs du iStyle 256/257 ou 262400. Ou discriminer sur 262400.
Puisque je n'ai rien trouvé dans les API pour déterminer si une Window est dans la TaskBar.

 

Dernière édition: 16 Juin 2024

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juin 2024

• #44

Le classeur du #36 dit Vrai quand l'UserForm1 figure en barre de tâches.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Juin 2024

• #45

Merci @Dranreb pour cette confirmation.
C'est moins bourrin que le 262400 mais ce n'est pas non plus la panacée car ce masque CBool(iStyle And WS_EX_APPWINDOW) n'est en rien un indicateur de présence en TaskBar. Je l'ai utilisé en parcourant toutes les Windows du Desktop et ça ne marche absolument pas dans cette perspective. Mais ça semble marcher pour une Window de UserForm alors je vais m'accrocher à cette petite branche.

 

Vote positif 0 Vote négatif