Changement d'image avec MouseMove problématique avec un Click()

Ah désolé, je ne connais pas bien les sites d'hébergement à utiliser.
Voilà le lien : http://www.cjoint.com/c/EHeim72Gm1t

En fait j'ai réussi à faire marcher mes boutons-images. J'utilise un MouseMove pour faire un loadpicture sur une 2ème image quand je fais un mouseover et je retourne sur l'image de base avec un autre loadpicture (dans une sub reset).

Pour voir d'où pouvait venir le problème j'ai remplacer mes .loadpicture par des .backcolor et faire un test avec juste des couleurs. Résultat : quand on cliquait sur un bouton, rien ne se figeait. Donc ça vient des images.

Au final la solution : dans ma sub reset et celle de mon mousemove dans mon module de classe, je dois définir un .backcolor. Aucune idée du pourquoi du comment, mais ça marche. Et ce même si je définis dans ma fonction bouton

.BackStyle = fmBackStyleTransparent

ou

.BackStyle = fmBackStyleOpaque

. Ça reste un grand mystère pour moi mais ça marche. Manque plus que l'optimisation (moyen de faire plus simple plutôt que plein de loadpicture ?)

Je voulais savoir aussi si il était possible de différencier certaines images, d'autres images et de les récupérer de la même manière :

    Set Collect = New Collection

For Each Ctrl In Outils.Controls
    If TypeOf Ctrl Is MSForms.Image Then
        Set test3000 = New Classe1
        Set test3000.noraj = Ctrl
        Collect.Add test3000
    End If
Next Ctrl

Le but étant de continuer à récupérer mes image-bouton, mais de ne pas influer sur d'autres images (images explicatives par exemple, ou des plans incrustés en .jpg). Je voudrais rajouter un autre test pour savoir si Ctrl fait parti d'un certains groupes d'image. Aucune idée de comment faire. Peut-être avec les collection mais je ne sais pas comment ça marche. Si là j'en utilise une c'est que ce bout de code vient d'ici : https://www.commentcamarche.net/faq/10397-vba-et-les-collections-d-objets.

Merci. ^^

Bon bah, solution trouvée.

Vu que je gère mes image-bouton avec la propriété Tag il suffit de faire un test :

    If noraj.Tag <> "" Then
        noraj.Picture = LoadPicture("C:\SMOC\test2.jpg")
        noraj.BackColor = vbRed
    End If

Sujet clos du coup. x)
Même si le coup du .Backcolor qui débloque le LoadPicture pour un Image_Mousemove reste un mystère pour moi. °.°

Oh ho ! Une info intéressante. En fait je me rend compte qu'il me manque plein de notions et de connaissances du VBA (VB.NET, je suppose que le problème se poserai aussi dans ce langage).

J'essaierai ça de retour de mon week-end. ^^

Merci !

Je parlais surtout de connaissances basiques. ^^

Enfin bref, j'ai fais un test rapide avec le Repaint et ça fait des flash non-stop. En fait je me sers aussi du UserForm_MouseMove pour réinitialiser les images de "bouton". Du coup dès que je suis sur le UserForm et que je bouge la souris j'ai toute la fenêtre qui s'actualise en boucle et ça donne la migraine. x)

Merci en tout cas. ^^

Je vois, merci pour l'astuce.

En fait dans mon projet j'ai cette philosophie :

Quand je survole une image que je reconnais comme un de mes "boutons" je charge image2.gif, admettons, pour l'image en question (celle en cours de mouseover).

Ensuite pour mon userform_mousemove j'appelle la même sub reset qui charge image1.gif pour tous mes boutons.

Donc là il faudra que j'associe à chaque image une frame et que je joue avec le mousemove de chaque frame et appeler ma sub reset. Ou alors plus simple (dans le fonctionnement mais pas dans le code), avec le frame_mousemove je ne charge image1.gif que pour l'image associée à la frame. Par contre là va falloir la jouer fino vu mes connaissances en VBA (entre mon module de userform, mon module de classe, et vu comme je gère mes images... bonjour, bonjour XD). Je pense que je reconnaitrais quelle frame va avec quelle image grâce au Tag. Je gère beaucoup de chose avec ça (couleur de mes boutons, savoir si je dois appeler une macro ou un fichier, savoir si c'est un Tag normal). C'est d'ailleurs comme ça que je relie un label avec une image (pour un seul bouton).

J'essaierai dans 3 jours. Ça par contre ça me serait trop utile. C'est ce genre d'astuce qui rendra mon code moins lourd (utilisation du userform_mousemove + charger les images de tous mes boutons à chaque mouseover d'un élément).

Edit : Pour alléger encore plus mon code, je pense créer 2 images plutôt qu'une seule lors de la création d'un bouton. De cette manière je jouerai plutôt sur la propriété .Visible des images plutôt que de charger mes .gif. Comme ça il n'y a qu'un seul gros chargement d'images quand j'appelle mon UserForm, mais une fois que c'est fait on ne va plus rien chercher dans le HDD (si je ne me trompe pas).