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é)

 

[patricktoulon]

Par contre, un enseignement tiré du fichier ci-dessus, c'est que lorsque l'option Resize est ON, le redimensionnement sans Caption laisse trainer une zone blanche en haut du UserForm.
Faut-il reprendre cette discussion à sa 7ème page ?

re
oui parce que sur w10 et 11on a plus le large blind aero comme sur windows 7

 

[patricktoulon]

re
tu va me dire oui mais comment ne pas faire une mauvaise compilation
ben c'est simple c'est impossible!!!
tu peux essayer d'ajouter 1/2/3/4/5 properties, tu ne pourra jamais avoir un total qui correspond a une autre addition logique de properties

c'est exactement pareil que les constantes vb pour les msgbox on ne peut pas avoir un résultat identique sur deux additions logique différentes

voila voila

 

[Dudu2]

newstyle=getwindowlong (hwnd,-16)'ici le newstyle va me donner &H94C90080
c'est pas compliqué

Peut-être pour toi mais pour moi ce n'est pas clair et c'est compliqué parce qu'il faut calculer, et encore cette partie &H94 est hors scope pour moi.
Je préfère les manipuler individuellement, au moins j'y vois quelque chose:

'Add or remove the System Menu buttons
    If XtoClose Then iStyle = iStyle Or WS_SYSMENU Else iStyle = iStyle And Not WS_SYSMENU
    If Maximize Then iStyle = iStyle Or WS_MAXIMIZEBOX Else iStyle = iStyle And Not WS_MAXIMIZEBOX
    If Resize Then iStyle = iStyle Or WS_SIZEBOX Else iStyle = iStyle And Not WS_SIZEBOX
    If Minimize Then iStyle = iStyle Or WS_MINIMIZEBOX Else iStyle = iStyle And Not WS_MINIMIZEBOX

Mais bon chacun sa méthode.

 

[Dudu2]

Correction du lien.
Cette discussion à sa 7ème page.

 

[patricktoulon]

re

 

[Dudu2]

Le fichier de la ressource est maintenant celui-là car suite à cette remarque, il faut utiliser l'API pour restorer le Caption, corrigé des erreurs de copier/coller. Toujours trop vite !

 

[Dudu2]

La ressource a été finalement publiée et ce sera la solution à ce sujet.

Retirer ou ajouter la barre du menu système (Caption) d'un UserForm et le dimensionner/positionner

Le fichier à télécharger contient: Le Module_RemoveAddUserFormCaption à importer dans le projet VBA. Le Module_Test qui donne un exemple d'utilisation. Note: Voir toutes mes ressources -> https://excel-downloads.com/resources/?creator_id=268468...

excel-downloads.com