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

[Dudu2]

Bonjour,

J'arrive à ajouter le Menu Système à un UserForm par contre je suis incapable de déterminer a postériori si ce Menu Système est présent ou pas.
Je ne sais pas comment traiter le iStyle pour retourner un booléen.
Voir le fichier joint (modifié à 22h30 car initialement bugué)

 

[Dranreb]

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

 

[Dudu2]

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

'---------------------------------------------
'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

 

[Dranreb]

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

 

[Dudu2]

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.

 

[Dranreb]

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.

 

[Dudu2]

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

 

[Dranreb]

D'ailleurs vos constantes masques sont en long

 

[Dudu2]

GetWindowLongPtrA function

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

 

[Dudu2]

D'ailleurs vos constantes masques sont en long

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

 

[Dranreb]

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 !

 

[Dudu2]

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.

 

[Dranreb]

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.

 

[Dudu2]

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

 

[Dudu2]

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