Erreur de code ?

Fermé
Ycc - 25 févr. 2014 à 17:22
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 26 févr. 2014 à 00:59
Salut ou et mon erreur sur ce code ?

If PictureBox1.Image = My.Resources.Cerise Then
MsgBox("Ceci et une cerise")
End If


Merci

3 réponses

FRED92G Messages postés 297 Date d'inscription jeudi 24 mai 2012 Statut Membre Dernière intervention 20 août 2022 4
Modifié par FRED92G le 25/02/2014 à 18:13
if picturebox1.image = my.resources.resources.cerise then

voila le code si j ai bien comprie ton probleme
0
Ce que je ve faire c'est si il a une image de cerise dans la picturebox (qui et dans my.resources) alors une msgbox dit cerise
0
FRED92G Messages postés 297 Date d'inscription jeudi 24 mai 2012 Statut Membre Dernière intervention 20 août 2022 4
25 févr. 2014 à 18:55
C EST SE QUE JE PENCER ON ETE BIEN SUR LA MEME IDEE DONC SE QUE JE T ES DONNER DOIT ETRE BON
0
FRED92G Messages postés 297 Date d'inscription jeudi 24 mai 2012 Statut Membre Dernière intervention 20 août 2022 4
Modifié par FRED92G le 25/02/2014 à 19:02
' teste si l image cerise se trouve dans les resources

if picturebox1.image = my.resources.resources.cerise then

' teste si l image cerise et bien dans le picturebox

If PictureBox1.Image = My.Resources.Cerise Then

MsgBox("Ceci et une cerise")
End If
end if

voila ton code j ai réfléchie de nouveau et la sa serai plus sa que tu veux faire
0
Non toujours une erreur :s

Opérateur '=' n'est pas défini pour les type system.drawing.image
0
FRED92G Messages postés 297 Date d'inscription jeudi 24 mai 2012 Statut Membre Dernière intervention 20 août 2022 4
25 févr. 2014 à 22:04
SE QUI FAUT FAIRE C EST UNE COMPARAISON D IMAGE ENTRE CELLE QUI SE TROUVE DANS TON PICTUREBOX ET CELLE DE T ES RESOURCES MES LA JE VOIT PAS COMMENT FAIRE C EST LE TROU DE MÉMOIRE COMPLET POUR MOI ET POUR TEMPS JE LES DÉJÀ FAIT
0
FRED92G Messages postés 297 Date d'inscription jeudi 24 mai 2012 Statut Membre Dernière intervention 20 août 2022 4
25 févr. 2014 à 22:08
OU VOIR CHARGER TON IMAGE EN DOUBLE PICTUREBOX ET COMPARAI LES PICTUREBOX
0
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
26 févr. 2014 à 00:59
Bonjour,

Question très problématique. Je n'ai trouvé qu'une astuce pour résoudre
le problème.

Soit une gestion aléatoire du contenu d'un objet PictureBox.
J'ai utilisé la propriété Tag du PictureBox pour sauvegarder le nom de
l'image insérer dans le PictureBox.


Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

Dim Indice As Int32 = 0
Dim Rand As New Random()

Indice = Rand.Next(1, 5)
Me.tbxNumero.Text = Indice.ToString

Select Case Indice

Case 1
PictureBox1.Image = My.Resources.Fraise
PictureBox1.Tag = "Fraise"
Case 2
PictureBox1.Image = My.Resources.Melon
PictureBox1.Tag = "Melon"
Case 3
PictureBox1.Image = My.Resources.Cerise
PictureBox1.Tag = "Cerise"
Case 4
PictureBox1.Image = My.Resources.Banane
PictureBox1.Tag = "Banane"
Case 5
PictureBox1.Image = My.Resources.Framboise
PictureBox1.Tag = "Framboise"

End Select

Dim Element As String = PictureBox1.Tag
If (Element.Equals("Cerise")) Then
MessageBox.Show(String.Concat("Indice = ", Indice, " - Élément = ", Element))
End If

End Sub

Bon, il existe peut-être mieux, mais cette solution fonctionne.

Testé sous VB2008.

K
0