Boutons Mini/Maxi/Close sur UserForm

[Papynou]

Bonjour le forum,

J'aimerai bien avoir sur mes Usf les trois boutons classiques Mini/Maxi/Close.

Pour le premier et le dernier, ça va mais pour Maxi 😕

Est-ce que quelqu'un a une piste ?

 

[Jacques87]

Re : Boutons Mini/Maxi/Close sur UserForm

Bonjour Papynou,

Ta question m'intéressant je me suis creusé le crâne
Voici le résultat de mes cogitations

1° j'ajoute la fonction GetWindowLong dans ton module :

    Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" _
        (ByVal hWnd&, ByVal lngWinIdx&)

2° j'ajoute la ligne suivante dans l'évènement UserForm_initialize :

    SetWindowLong hWnd, -16, GetWindowLong(hWnd, -16) Xor WS_MAXIMIZEBOX

Conclusion ça semble fonctionner si ce n'est qu' excel (tout au moins chez moi) plante quand je MINIMIZE le UserForm

Tiens moi au courant

Bon courage

P.S. : je viens de penser a essayer ta version d'origine, j'ai le même problème : Excel plante quand je MINIMIZE

 

[Papynou]

Re : Boutons Mini/Maxi/Close sur UserForm

Bonjour Jacques,

Conclusion ça semble fonctionner si ce n'est qu' excel (tout au moins chez moi) plante quand je MINIMIZE le UserForm

P.S. : je viens de penser a essayer ta version d'origine, j'ai le même problème : Excel plante quand je MINIMIZE

Chez moi Mini ne plante pas et Maxi fonctionne grâce à ton intervention dont je te remercie 🙂

Encore une fois je ne comprends pas pourquoi ça plante chez les autres et pas chez moi 😕

Je remets le fichier modifié et si quelqu'un a une idée sur les raisons du plantage de ce dernier, qu'il n'hésite pas.

 

[Papynou]

Re : Boutons Mini/Maxi/Close sur UserForm

Bonjour le fil, le forum,

J'ai changé l'intégralité du code et l'ai testé sur trois machines. Il fonctionne maintenant parfaitement mais il me reste toujours à régler le problème de "resize" de l'Usf.

J'ai trouvé une superbe démo de Michel Pierron disponible sur ExcelLabo

Ce lien n'existe plus

Je ne sais pas si je vais être capable de l'adapter mais je vais essayer. Si des forumeurs ont des idées ou des pistes, je suis preneur de toute info.

 

[la croisée des pains]

Re : Boutons Mini/Maxi/Close sur UserForm

bonjour le forum,
bonjour Papynou

voici le fichier comme tu le souhaites

bonne journée

laurent

 

[Papynou]

Re : Boutons Mini/Maxi/Close sur UserForm

Bonjour lolo la boulange,

Superbe intervention 🙂

Je permets justeune remarque, on ne voit que les noms des Label comme "Label1" ou "Label2" mais pas les textes saisis dedans 😕

 

[la croisée des pains]

Re : Boutons Mini/Maxi/Close sur UserForm

re,

voici chose faite,

dans l'activation de usf,
je t'ai rajouté le caption des label

plus simple peut-etre? a voir
laurent

 

[Papynou]

Re : Boutons Mini/Maxi/Close sur UserForm

re,

J'ai cherché mais y serais surement encore sans ton intervention. 😛

Merci encore Lolo la boulange. 🙂

Quand à faire pus simple, si d'autres veulent prendre le relais, le fichier est à leur disposition 😀

 

[Bebere]

Re : Boutons Mini/Maxi/Close sur UserForm

bonjour le fil
une démo usf mini maxi avec souris

à bientôt