Choisir une image au hasard

Bonjour,

Voilà mon problème : je voudrais que dans une picturebox, il y est une image au hasard qui s'affiche, voici un bout de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Class Form1 Dim a = My.Resources.Prénom1 Dim b = My.Resources.Prénom2 Dim c = My.Resources.Prénom3 Dim d = My.Resources.Prénom4 Dim f = My.Resources.Prénom5 Dim g = My.Resources.Prénom6 Dim h = My.Resources.Prénom7 Dim i = My.Resources.Prénom8 Dim j = My.Resources.Prénom9 Dim k = My.Resources.Prénom10 Dim l = My.Resources.Prénom11

---

Et après dans Form1_Load je met :
PictureBox1.BackgroundImage = ?? <-- Qu'est-ce que je mets ?


Merci d'avance ! :D

tu mets les images dans un list(of )
et tu demandes un nombre au hasard entre 0 et le max du list pour récupérer l'image à l'index
voir rnd

bonjour blackiv
comme dit par pol63 tu utilises un list(of image) et un generateur de nombre aleatoire entier.
code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Class Form1 Private maListeImages As List(Of Image) = New List(Of Image) Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load maListeImages.Add(My.Resources.USA_FLAG) maListeImages.Add(My.Resources.NORWAY_FLAG) maListeImages.Add(My.Resources.BRAZIL_FLAG) maListeImages.Add(My.Resources.ALGERIA_FLAG) maListeImages.Add(My.Resources.NORWAY_FLAG) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAfficheRandomImage.Click Dim rnd As Random = New Random 'Random.Next(NombreMax ) calcule un nombre aleatoire qui ne depasse pas NombreMax Dim nbMaxImage = maListeImages.Count - 1 Dim numImage = rnd.Next(nbMaxImage) MessageBox.Show(numImage.ToString) Me.PictureBox1.BackgroundImage = maListeImages(numImage) End Sub     End Class

---

bon code....

Je vais essayer vos codes, merci.

Merci ça marche mais une dernière question : je voudrais que les images s'adapte à la PictureBox.

J'ai essayé avec :

Code:

---

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

---

Normalement ça marche mais pas dans mon cas:cry:

Merci d'avance !;)

bonjour blackiv

Code:

---

1 2 3 4 5 6 7 8 9

' si tu utilise propriete Image oui il faut ajuster avec la propriete SizeMode Me.PictureBox1.Image = maListeImages(numImage) Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage ' mais toi tu utilise la propriete BackgroundImage,il faut donc utiliser 'la propriete BackgroundImageLayout   Me.PictureBox1.BackgroundImageLayout = ImageLayout.Stretch Me.PictureBox1.BackgroundImage = maListeImages(numImage)

---

bon code....

Franchement merci MABROUKI !! :ccool: