A voir également:
- Erreur de code ?
- Code ascii - Guide
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
3 réponses
if picturebox1.image = my.resources.resources.cerise then
voila le code si j ai bien comprie ton probleme
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
' 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
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.
Bon, il existe peut-être mieux, mais cette solution fonctionne.
Testé sous VB2008.
K
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