XL 2016 Gérer un évènement sur un grand nombre de contrôles de même type d'un UserForm

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2022

• #76

dranreb , Rollan M et moi avons chacun travaillé sur une version différente pour le pixeltopoints et vice et versa pour les userform et on a bien galérer avec pointstoscreenpixels

Cliquez pour agrandir...

Ah mais c'est sûr que ton code simplifié pour le PixelToPoint c'est concis et efficace. Nul doute, je l'ai déjà adopté (avec la correction du Zoom)

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2022

• #77

et non c'est pas de la comédie c'est faux c'est tout

Cliquez pour agrandir...

Ok c'est faux, mais c'est ptet pas la peine de m'en mettre plein la tronche

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2022

• #78

a partir du moment ou tu change cet ordre hiérarchique il faut demander la le dwm.dll de remettre le style arero de W10 (donc blanc) ou transparent de win 7

Cliquez pour agrandir...

T'as du code dans tes tiroirs pour ça ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2022

• #79

re
je dois certainement avoir ca dans mes vieux disque durs
le genre de sautises que l'on peut s'amuser a faire avec cette librairie
perso je trouve que cet userform exagère sur les bord des bornes des limite(maurice a dit)
qui n'a jamais révé d'avoir autant de boutons dans la barre de titre
LOL
mais je viens de tester visiblement le sysmenu de excel >2007 bloque la modif

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2022

• #80

Ok merci, c'est pas grave, c'est une détail. Je vais laisser comme ça.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2022

• #81

donc c'est bon tu es arrivé au bout?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2022

• #82

Et oui, je pense, au bout de ce que je voulais faire, grâce à ton aide.
D'ailleurs ça me sert immédiatement dans un applicatif que je fais pour une personne. Donc ce n'est pas du temps perdu.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2022

• #83

alors tu peux prendre un peu de temps pour
observer le mien et le méthode que j'utilise

 

Pièces jointes

• reduire restaurer le userform model 3 collection api 2022.xlsm

  47.5 KB · Affichages: 6

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2022

• #84

Oui, vu ! Cool ça fonctionne.
Dis-moi, je viens de logger une ressource mais il faut que je change le fichier.
Y a pas de bouton pour ça. Tu sais comment faire ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2022

• #85

non seulement ça fonctionne mais j’économise quelques routine et apis en utilisant sendmessageA
et je garde les stauts det windowlong du aux bouton dans barre de titre

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2022

• #86

re
tu pourra la changer quand elle sera publique
menu/ changer le type

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Septembre 2022

• #87

utilisant sendmessageA et je garde les stauts det windowlong du aux bouton dans barre de titre

Cliquez pour agrandir...

Qu'entends-tu par status de WindowLong du au boutons ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2022

• #88

Dudu2 à dit:

Qu'entends-tu par status de WindowLong du au boutons ?

Cliquez pour agrandir...

re
ben je te l'ai expliqué déja

je recommence:
l'userform à l'origine -->&H94C80080 que le bouton fermé
on ajoute le fullmenusytem-->&H94CF8080 tout les boutons, le resize,l'aerao snake,etc....

a chaque fois que qu'un des 3 boutons de la barre de titre va être cliqué
après son nouveau statut(nouvelle position(minimiser ou agrandi))
le getwindowlonA de premier niveau (-16) va te donner le new long

c'est pour ça que j'ai choisi de simuler le click sur ces boutons comme ca on bénéficie toujours du fullmenusytem

si tu réduit avec showwindow hwnd,2 par exemple tu n'a pas ça car la commande est externe au menusytem d'ou toute tes myriades de procédures pour détecter le changement

alors que dans le resize du userform le getwindowlongA te donne le changement

est ce que tu comprends mieux comme ça ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Septembre 2022

• #89

Oui merci je comprends mieux.... que tu as gardé la même approche que précédemment.
Tu as choisi de tout mettre dans le code du UserForm. Donc chaque UserForm candidat doit intégrer les déclarations API, le code du Resize, les petites manips de mémorisation, ...

Mon approche est différente et consiste à externaliser le maximum de déclarations et de code dans un module spécialisé, de sorte que dans le UserForm ou dans une module utilisateur, il suffit d'appeler les fonctions dédiées à l'action souhaitée (ce que tu appelles "tes myriades de procédures"). Il y a juste une variable Public à placer en UserForm pour la conservation de son Handle, et encore j'aurais pu m'en passer en le recherchant à chaque fois par son Caption.

Voili voilou, chacun sa méthode.
Quand la ressource sera publiée j'en indiquerai l'adresse ici pour clôturer l'affaire.

Edit: tiens, elle vient de l'être:

VBA - Ajouter le Menu Système à un UserForm, le minimiser, restaurer, maximiser (boutons & code VBA)

Le fichier à télécharger contient: Le Module_UserFormSystemMenu à importer dans le projet VBA. Le Module_Test qui donne des exemples d'utilisation. Les principales caractéristiques: Utilitaire qui n'a vraiment de sens que pour un UserForm...

excel-downloads.com

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Septembre 2022

• #90

Bonjour @Dudu2 le fait de tout mettre dans un userform n'est pas très important( je même faire une classe )
ce qui est important à retenir c'est que je n'utilise aucune api pour réduire ou agrandir je met seulement les boutons manquant parti de là le userform est réductible

je me sert de qu'une seule api pour piloter les bouton de la barre de titre pour réduire agrandir avec des boutons persos

par expérience
tout les code que j'ai pu faire avec les apis qui utilisait des (passerelle et autre fonctions imbriquées) se sont toujours révélés bancales
tu peux me croire ça fait longtemps que je fait joujou avec la user32
mais depuis que je fait du .net je m'en rends bien compte avec mes form que (ce qui marche à peu près)en vba est loin d’être stable

mais bon c'est en forgeant que l'on devient forgeron

 

Vote positif 0 Vote négatif