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

patricktoulon

XLDnaute Barbatruc

• Vendredi à 09:25

• #46

Dudu2 à dit:

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 ?

Cliquez pour agrandir...

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

 

Dernière édition: Vendredi à 09:37

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• Vendredi à 09:37

• #47

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Vendredi à 09:39

• #48

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

Cliquez pour agrandir...

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:

VB:

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Vendredi à 09:42

• #49

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• Vendredi à 10:22

• #50

re

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Vendredi à 11:10

• #51

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 !

 

Pièces jointes

• Paramétrer, retirer ou ajouter la barre du menu système (Caption) d'un UserForm et le dimensi...xlsm

  46.3 KB · Affichages: 2

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Hier à 14:48

• #52

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

 

Vote positif 0 Vote négatif

Solution