Voici un épilogue de ce que je cherchais depuis longtemps:
Adapter la "Loupe-ti" (Que beaucoup doivent connaître), à un USF.
Je bloque totalement sur la nervosité du curseur et du rafraichissement intempestif.
(Voir la présence du curseur sous forme de sablier)
Notamment, pour que la loupe fonctionne correctement dans les angles hauts et bas à gauche,
il faut faire appel à un escargot...! Sauf en sortant violemment la souris de l'image.
Il y a là certainement des adaptations du code que je ne sais pas faire;
ce pourquoi je fais appel à vous.
Re : Ralentir une macro ou un Repaint, voire gérer le mouvement d'un Curseur?
En ce qui concerne la modification de la taille des image1 et image2, regarde dans le fichier du post 14:
* dans le module CHARGEMENTS_IMAGES: les deux macros sont modifié pour adapter les userforms et les images.
* dans le module usf Image1_MouseMove la macro image1_mousemouve
VB:
'limitation des curseurs au dimensions de l'image1
z_X = Application.Max(Application.Min(X, Me.Image1.Width), 0)
z_y = Application.Max(Application.Min(Y, Me.Image1.Height), 0)
' mise à l'échelle par rapport à la taille de l'image
z_X = z_X * Taille_X / Me.Image1.Width
z_y = z_y * Taille_Y / Me.Image1.Height
With Selection.ShapeRange.PictureFormat
Re : Ralentir une macro ou un Repaint, voire gérer le mouvement d'un Curseur?
J'ai apporté la Modif, et tout est parfait!
Il reste cette fichue Image "FILLE" qui ne veut pas accepter le Zoom!!!
(Salle gosse, cela promet quand elle sera plus grande!)
Pourtant, après Chargement j'en modifie les dimensions
qui l'amène à avoir celles proches des autres deux Images???
N'il y aurait-il pas une mise en mémoire prématurée de ses dimensions
qui ne prendrait pas en compte les nouvelles?
Je tourne autour de ce mystère depuis un moment.
A te lire...
Yann
P.S. J'ai rédigé ma réponse avant d'avoir lu ce que tu viens
de signaler ci-dessus.
Dans mes tests de redimensionnement, j'ai supprimé le "Kill" pour voir...
La photo prend bien ses nouvelles dimensions, et les proportions semblent
être respectées. Je vais voir à procèder autrement.
Re : Ralentir une macro ou un Repaint, voire gérer le mouvement d'un Curseur?
je vais peut être de paraître lourd mais essaye de faire un mixte entre ton fichier et celui du post 14.
Car je n'avais plus aucun problème avec l'image FILLE.
Sinon envoi moi la dernier version du fichier par mail, pour que je puisse la modifier.....
Re : Ralentir une macro ou un Repaint, voire gérer le mouvement d'un Curseur?
J'ai bien reçu le dossier.
J'ai commencer mes bidouilles en les commentant avec 'TBFT ...., pour que tu puisse les retrouver.
Mais je n'aurais pas fini ce soir. Mes yeux se ferme tout seul...
Je te dis donc donc à demain soir....
Bonne Nuit
Une dernière chose merci d'avoir fourni un sujet aussi passionnant.
Re : Ralentir une macro ou un Repaint, voire gérer le mouvement d'un Curseur?
Bonjour tout le monde
@Yann Je viens de faire passer la derniere version par mail
Même compressé le fichier est trop gros..
J'atttend de tes nouvelles....
Re : Ralentir une macro ou un Repaint, voire gérer le mouvement d'un Curseur?
Re TBFT,
Cela marche à merveille!
J'ai testé avec l'application non-visible; c'est encore plus spectaculaire!!!
Il ne reste maintenant à provoquer diverses situations pour
détecter les éventuels Bugs... Mais je doute qu'il y en ait.
Si ce n'est deux issus de ma pomme:
Dans l' USF1, il faut remplacer:
Code:
"Private Sub Image100_Click()"
POPUP_IMAGE1.Delete
…….
Par:
Code:
"Private Sub Image100_Click()"
If POPUP_EXISTANT = True Then POPUP_IMAGE1.Delete
..........
Sinon plantage en cas de fermeture, avant d'avoir choisi une image.
Il en est de même lors d'une fermeture prématurée de la boite de dialogue relative
au choix du dossier comportant les images. (Mais là, je n'ai pas encore rectifié)
Le poids du classeur m'étonne beaucoup, car il n'est pas trop chargé en écritures!
Je vais le reconstruire en exportant et réimportant modules et USF pour voir.
Je vais aussi supprimer le zoom 1 qui ne sert à rien, et voir à proposer plus grand.
(Avec forfaitairement le zoom 2 après choix d'une l'image)
En tous les cas, le boulot est magnifique... Quel bonheur!!!
Et quel plaisir de le partager avec toi, surtout avec tout ce que tu y as apporté.