Discussion :

[Hierog]

Bonjour, débutant sur VB6, j'ai besoin d'un coup de main.
Le but de la manip:
J'ai sur une feuille des images numérotées associées chacune à un bouton radio.
Un clic sur le bouton correspondant à l'image choisie entraine
sur une autre feuille "Récap" l'inscription d'un texte définissant cette image.
Je voudrai faire apparaitre cette image à coté du texte (pour mémoire).
Comment faire ce copier / coller ???
Sur la feuille "Récap" j'arrive à faire apparaitre le texte dans sa textBox...
Mais hélas pas cette image.
Que faire???
Merci d'avance

[ProgElecT]

Salut

Sur la feuille "Récap" j'arrive à faire apparaitre le texte dans sa textBox...

Peux tu mettre le code que tu utilses pour le passage du texte?
Si tu mettait un PictureBox ou une image à coté du TextBox et ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Image1.Picture = FormOrigine.PicturBox1.Image

[Hierog]

le terme employé pour écrire depuis la feuille "Form5" le message sur la feuille de récap (Form7)
est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Option1_Click()
Option1.Value = True
If Option1.Value = True Then
Form7.Show
Form7!TxtAffixe1.Text = "Affixe 000100   Syl: BA   Valeur: Bacab !"

l'image a été inserée dans la "Form5" en tant que "Image" et non "PictureBox" et il en est de mème sur la feuille "Form7" sur laquelle je
souhaiterai faire apparaitre cette image.

Aurai-je dû me servir de "PictureBox"???

[XylonAkau]

_ Iorana.

1) Les deux premières lignes de votre procédure ne nuisent à personne mais à quel besoin répondent-elles ?
__ a)

Option1.Value = True

__ c'est le propre d'une case d'option (bouton radio) que, quand on clique dessus, sa propriété Value prend la valeur VRAI et la garde tant qu'on ne clique pas sur une autre case ;
__ b)

If Option1.Value = True Then

__ puisque Option1.Value a déjà été mis (deux fois) à VRAI, la condition est toujours remplie.

2) Les deux lignes suivantes permettent donc d'afficher le texte voulu ; il suffit d'y ajouter le code servant à afficher l'image - tel que ProgElecT l'avait proposé, en l'actualisant pour ce cas précis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form7.Image1.Picture = Image1.Picture

3) Si vous conservez la ligne If Option1.Value = True Then il faut rajouter une ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End If

en fin de procédure.

_ Bon courage pour la suite.

[Hierog]

Merci à ProgElect et à XylonAkau
Problème résolu avec succès!!!
Pour XylonAkau: J'ai suivi votre conseil (supprimer les lignes inutiles )
Erreur de débutant.
Ca va me permettre d'économiser temps et frappes inutiles
surtout que j'ai plus de 800 images à traiter ainsi !!!
Hierog

[ProgElecT]

.........

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Option1_Click()
Option1.Value = True
If Option1.Value = True Then
Form7.Show
Form7!TxtAffixe1.Text = "Affixe 000100   Syl: BA   Valeur: Bacab !"

...

Problème résolu avec succès!!!

bouton alors, en bas de page de la discussion.