Afficher une image à l'aide d'une case à cocher [Résolu]

[meumeu73.1]

Bonjour,

je suis novice dans le VB, je cherche la ligne de code afin de d'afficher ou de masquer une image à l'aide d'une case à cocher.

l'image sera à un endroit précis et changera pas de nom.

par avance merci

[ouskel'n'or]

Elle est où ta case à cocher ? Dans un userform ? Dans une feuille de calculs ? Insérer avec la boîte à outils Commandes ?
Tu dis
A+

[meumeu73.1]

la case à cocher et l'image se situe dans la même userform

[ouskel'n'or]

Code :

1
2
3
4
Image1.Visible = CheckBox1.value
For i = 1 to 2000
    DoEvents
Next

Teste ça
A+

ou alors,

Code :

1
2
3
4
if CheckBox1.value = True then Image1.Visible = True
For i = 1 to 2000
    DoEvents
Next

Ce devrait être pareil mais bon, c'est pas toujours vrai

[meumeu73.1]

je suppose que je mets le code dans ma :

Code :

private sub checkbox1_change()

mais ensuite comment j'indique le chemin pour la photo ? qui est à un endroit précis de ma userform, et non pas inclus dans la checkbox1.

merci d'avance.

[Speedrman]

Salut,

il te faut insérer dans ta userform un label et dans ses propriétés tu pourras indiquer sur quelle image il pointera

sinon tu peux aussi dans ton UserForm_Initialize

Code :

lblImage.Picture = LoadPicture(CheminImage)

[meumeu73.1]

super merci en fait j'ai mis le chemin dans les propriétés, et ça marche impéccable.

encore merci.

[meumeu73.1]

maintenant, ayant bien compris le principe, je recherche la façon de faire avec des boutons radio et bien sur faire apparaitre des photos différentes dans le même emplacement.

par avance merci.

[meumeu73.1]

j'ai réussi par moi même

Yesssssssss

[ouskel'n'or]

Pourquoi pas une liste de tes photos ?
Sinon, tu crées un tableau de tes photos et tu associes l'index du tableau au CheckBox (si chacun d'eux doit être associé à une photo) et tu fais comme Speedrman t'a dit en utilisant l'index du checkbox ou son nom pour "loader" la photo. Auquel cas tu utilises un N° que tu inclus dans leurs noms, N° que tu récupères dans une boucle, N° enfin qui correspondra à l'index du tableau de noms des images.
Soit tu fais un select case sur le nom de tes CheckBox
L'avantage d'une liste est que tu t'affranchis des Checkbox et que tu n'es pas limité à un tableau si tu remplis ta liste du contenu d'un répertoire auquel tu peux ajouter ou retirer des fichiers.
Juste une idée mais je ne connais pas ton appli (!)
A+

[meumeu73.1]

en fait, ce que j'ai fait, j'ai créé une private sub ....._Change pour chaque bouton radio en utilisant la ligne de code : lblImage.Picture = LoadPicture(CheminImage) pour chacun.

ça marche, mais il est vrai que ça alourdit le code. Maintenant comme je suis un novice, je ne connais pas toutes les fonctionnalités.

sinon pour résumé :

j'ai Cinq boutons radio, (Non, Level 1, Level 2, Level 3, Level 4) et à chaque fois que je change de level, une image différente apparait et lorsque c'est non, pas d'image, enfin si je charge une image, mais de couleur identique à ma userform.

encore merci