XL 2016 VBA - Tester si le Menu Système est présent dans un UserForm

Dranreb

XLDnaute Barbatruc

• 14 Juin 2024

• #2

Bonsoir.
Parlez vous du bouton à la croix de fermeture ?
Votre iStyle est-il la valeur renvoyée par GetWindowLongA(Hwnd, -16) ?
(Declare Function)

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Juin 2024

• #3

Bonsoir,

Le Menu Système ajouté introduit la possibilité de minimiser le UserForm.
Je n'ai pas ajouté les options de maximisation et de redimensionnement manuel.

Donc AVEC:

et SANS:


Voilà ce qui ne fonctionne pas: le iStyle And WS_SYSMENU
Sachant que pour l'ajouter j'ai fait un iStyle = iStyle Or WS_SYSMENU

VB:

'---------------------------------------------
'Retourne True si le UserForm a le System Menu
'---------------------------------------------
Function UserFormHasSystemMenu() As Boolean
    Dim iStyle As LongPtr
 
    'Get the basic window styles
    iStyle = GetWindowLongPtr(UserFormHandle, GWL_STYLE)
    'MsgBox iStyle
 
    UserFormHasSystemMenu = CBool(iStyle And WS_SYSMENU)
End Function

 

Dernière édition: 14 Juin 2024

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Juin 2024

• #4

Bizarre GetWindowLongPtr. Est-il bien déclaré avec Alias "GetWindowLongA" ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Juin 2024

• #5

Les déclarations sont dans le Module1.
La déclaration de GetWindowLongPtr dépend de VBA7 ou non et si VBA7 dépend de Win64 ou pas.
J'utilise depuis toujours les déclarations de https://www.cadsharp.com/docs/Win32API_PtrSafe.txt.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Juin 2024

• #6

ll n'y a aucune raison que la valeur renvoyée par GetWindowLong soit LongPtr. Elle devrait rester Long.
Il n'y a aucune raison non plus que le nom de l'API ait changé. Même le handle je ne suis pas sûr qu'il doit passer en LongPtr.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Juin 2024

• #7

De toutes façons, "GetWindowLongPtrA" ou "GetWindowLongA" même combat.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Juin 2024

• #8

D'ailleurs vos constantes masques sont en long

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Juin 2024

• #9

GetWindowLongPtrA function


Donc je ne devrais même pas splitter Win64 ou pas dans la déclaration.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Juin 2024

• #10

D'ailleurs vos constantes masques sont en long

Cliquez pour agrandir...

J'ai testé en affectant les constantes dans une variable LongPtr. Idem.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Juin 2024

• #11

Non, non, elle doivent rester long ! Dans les Déclare aussi: Je ne vois pas pourquoi il auraient ajouté 32 bits de plus à ces masques !

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Juin 2024

• #12

La Return Value de GetWindowLongPtrA function est définie en LongPtr.
Je pense aussi que les 32 bits supplémentaires ne sont pas utilisés pour le masque. Tous à zéro.
Mais comme c'est le type de donnée défini en retour, je déclare la variable qui le reçoit de la même manière.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Juin 2024

• #13

C'est le type de donnée en retour que vous avez vous même spécifié dans l'instruction Declare mais je pense que ce n'est pas le bon, ça doit rester Long.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Juin 2024

• #14

C'est pas moi qui ai fait la doc...

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Juin 2024

• #15

De toutes façons, même si je déclare en Return Long, ça ne change rien au problème.

 

Pièces jointes

• Test System Menu Present Long.xlsm

  31.1 KB · Affichages: 1

Vote positif 0 Vote négatif