Discussion :

[Blackiv]

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 :

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

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 !

[Pol63]

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

[MABROUKI]

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

Code :

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

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....

[Blackiv]

Je vais essayer vos codes, merci.

[Blackiv]

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

J'ai essayé avec :

Code :

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

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

Normalement ça marche mais pas dans mon cas

Merci d'avance !

[MABROUKI]

bonjour blackiv

Code :

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

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....