Changer l'image de plusierus pictureboxRésolu

Question

Bonjour à tous, 

Je veux changer l'image de plusieurs Picturebox dans une form, en même temps et ca ne fonctionne pas

LedPictureOff = My.Resources.blue_off_16
        My.Settings.Save()

        For Each picture In Me.Controls
            If TypeOf picture Is PictureBox Then
                picture.Image = LedPictureOff
            End If
        Next

Est-ce qu'il y a quelqu'un qui peut me guidé??..

Merci

cs_ShayW · Accepted Answer

Salut

prend la bonne habitude de définir tes variable
Dim myimage As Image
    'modifie selon tes besoins
  myimage = My.Resources._10_prota_a
  For Each C As Control In Me.Controls
      If TypeOf (C) Is PictureBox Then
         DirectCast(C, PictureBox).Image = myimage
      End If
Next

cs_Jack · Answer

Salut

LedPictureOff : c'est quoi ?
Quel type ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

acive · Answer

Bonjour Morit

C'est quoi le
"blue_off_16"?


CF2i - Guadeloupe
Ingénierie Informatique

cs_ShayW · Answer

Salut Active

LE "blue_off_16"
c'est le non de son image 
qu'est ce ça représente

Moritus · Answer

j'avais défini ma variable plus au dans mon code

Public LedPictureOff As System.Drawing.Bitmap

acive · Answer

Salut Shay,

Ahh ok... excuse j'ai la tête ailleurs ce matin..
Mais ton code devrait fonctionner (j'ai pas testé)


CF2i - Guadeloupe
Ingénierie Informatique

Moritus · Answer

le blue_off_16 est le nom de mon image dans mes ressource...toute les images sont mis en ressource c'est pour ca

Moritus · Answer

je viens de tester le code de ShayW et ca ne fonctionne pas...

lolokun · Answer

Bonjour,

Ca ne fonctionne pas c'est vague, tu n'as pas de message d'erreur?
As-tu lancé le code en mode Pas à pas pour vérifier la valeur de tes variables?
Es-tu sûr au moins de passer dans ta boucle for each?


L'expérience, c'est une connerie par jour, mais jamais la même..

Moritus · Answer

je viens de passer en revue tous les controls (en debug) qu'il trouve mais il ne m'indique pas les Picturebox... seulement les boutons, checkbox etc...

cs_ShayW · Answer

ca ne fonctionne pas... 
qui  quoi ?
une erreur ? tes pictureboxes ne changent pas ?
essaye ça

Public LedPictureOff As System.Drawing.Bitmap
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
LedPictureOff = My.Resources.blue_off_16
  For Each C As Control In Me.Controls
      If TypeOf (C) Is PictureBox Then
         DirectCast(C, PictureBox).Image = LedPictureOff
      End If
Next
end sub

acive · Answer

Chez moi ça marche bien...

  Dim myimage As Image
        'modifie selon tes besoins
        myimage = My.Resources.Image1
        For Each C As Control In Me.Controls
            If TypeOf (C) Is PictureBox Then
                DirectCast(C, PictureBox).Image = myimage
            End If
        Next


CF2i - Guadeloupe
Ingénierie Informatique

Moritus · Answer

c'est ce que je viens d'essayer...en plus j'ai rajouter une ligne qui me permet de voir la liste des control que la boucle vérifier et il n'y a aucun Picturebox...



        For Each picture In Me.Controls
            lstAddress.Items.Add(picture.GetType)
            If TypeOf (picture) Is PictureBox Then
                DirectCast(picture, PictureBox).Image = LedPictureOff
            End If
        Next

cs_ShayW · Answer

aussi autre chose
où sont placés tes pictureboxes ?
sur la form ou dans un control container 
comme panel picturebox

ucfoutu · Answer

Nonjour,
Juste deux question :
- les parenthèses mises ici pour utiliser TypeOf sont de mise sous VB.Net ?
- Y-a-t-il des PictureBoxes sur le Form, au moins ?

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Rajoute un picturebox pour tester... il doit forcément y figurer


CF2i - Guadeloupe
Ingénierie Informatique

Moritus · Answer

ShayW...j'y avais pas penser elle sont dans une groupbox..je vais tester de ce pas

Moritus · Answer

ok c'étais bien ca...mon cerveau n'est pas encore assez allumé...

ca fonctionne bien merci à tous!!

acive · Answer

De rien et bienvenue au club des cerveaux pas allumés...



CF2i - Guadeloupe
Ingénierie Informatique

cs_ShayW · Answer

pourquoi as tu défini LedPictureOff  comme public ?

Public LedPictureOff As System.Drawing.Bitmap

Changer l'image de plusierus picturebox

20 réponses

Votre réponse

Discussions similaires