A voir également:
- Afficher une image a partir d'une imagelist
- Créer une icone à partir d'une image - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Légender une image - Guide
- Créer une image iso - Guide
11 réponses
Pour l'instant j'ai ca
PictureBox1.Image = photosjoueurs.Images(10)
Ca affiche bien quelquechose mais en tout petit alors que la taille de la picture box est quand meme consequente
PictureBox1.Image = photosjoueurs.Images(10)
Ca affiche bien quelquechose mais en tout petit alors que la taille de la picture box est quand meme consequente
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
salut
essaye de travailler avec cet exemple, adapte le
essaye de travailler avec cet exemple, adapte le
Private MyImage As Bitmap
Public Sub ShowMyImage(fileToDisplay As String, xSize As Integer, _
ySize As Integer)
' Sets up an image object to be displayed.
If (MyImage IsNot Nothing) Then
MyImage.Dispose()
End If
' Stretches the image to fit the pictureBox.
pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
MyImage = New Bitmap(fileToDisplay)
pictureBox1.ClientSize = New Size(xSize, ySize)
pictureBox1.Image = CType(MyImage, Image)
End Sub
Merci l'image s'affiche ^^ , maintenant j'ai un autre problème c'est que l'image est très très flou, alors qu'a la base sur mes .jpg ils sont en bonne qualité =S
Public Class Form1
Private MyImage As Bitmap
Dim nbalea As Integer
Dim rep As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Randomize()
If (MyImage IsNot Nothing) Then
MyImage.Dispose()
End If
Randomize()
nbalea = Rnd() * 16
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
MyImage = New Bitmap(photosjoueurs.Images(nbalea))
PictureBox1.Image = CType(MyImage, Image)
If nbalea = 0 Then
rep = "Beckenbauer"
End If
If nbalea = 1 Then
rep = "Cantona"
End If
If nbalea = 2 Then
rep = "Cruyff"
End If
If nbalea = 3 Then
rep = "Deschamps"
End If
If nbalea = 4 Then
rep = "Fontaine"
End If
If nbalea = 5 Then
rep = "Kopa"
End If
If nbalea = 6 Then
rep = "Maradona"
End If
If nbalea = 7 Then
rep = "Pelé"
End If
If nbalea = 8 Then
rep = "Platini"
End If
If nbalea = 9 Then
rep = "Rivaldo"
End If
If nbalea = 10 Then
rep = "Roberto carlos"
End If
If nbalea = 11 Then
rep = "Romario"
End If
If nbalea = 12 Then
rep = "Ronaldo"
End If
If nbalea = 13 Then
rep = "Tigana"
End If
If nbalea = 14 Then
rep = "Van Basten"
End If
If nbalea = 15 Then
rep = "Zico"
End If
If nbalea = 16 Then
rep = "Zidane"
End If
If reponse.Text = rep Then
MsgBox("Bien jouer !")
nbalea = Rnd() * 16
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
MyImage = New Bitmap(photosjoueurs.Images(nbalea))
PictureBox1.Image = CType(MyImage, Image)
Else
MsgBox("retente ta chance")
End If
End Sub
End Class
Y a des bug que j'ai pas encore corriger mais ca je vais essayer de me debrouiller seul lol
C'est les images flou qui m'embette
Private MyImage As Bitmap
Dim nbalea As Integer
Dim rep As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Randomize()
If (MyImage IsNot Nothing) Then
MyImage.Dispose()
End If
Randomize()
nbalea = Rnd() * 16
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
MyImage = New Bitmap(photosjoueurs.Images(nbalea))
PictureBox1.Image = CType(MyImage, Image)
If nbalea = 0 Then
rep = "Beckenbauer"
End If
If nbalea = 1 Then
rep = "Cantona"
End If
If nbalea = 2 Then
rep = "Cruyff"
End If
If nbalea = 3 Then
rep = "Deschamps"
End If
If nbalea = 4 Then
rep = "Fontaine"
End If
If nbalea = 5 Then
rep = "Kopa"
End If
If nbalea = 6 Then
rep = "Maradona"
End If
If nbalea = 7 Then
rep = "Pelé"
End If
If nbalea = 8 Then
rep = "Platini"
End If
If nbalea = 9 Then
rep = "Rivaldo"
End If
If nbalea = 10 Then
rep = "Roberto carlos"
End If
If nbalea = 11 Then
rep = "Romario"
End If
If nbalea = 12 Then
rep = "Ronaldo"
End If
If nbalea = 13 Then
rep = "Tigana"
End If
If nbalea = 14 Then
rep = "Van Basten"
End If
If nbalea = 15 Then
rep = "Zico"
End If
If nbalea = 16 Then
rep = "Zidane"
End If
If reponse.Text = rep Then
MsgBox("Bien jouer !")
nbalea = Rnd() * 16
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
MyImage = New Bitmap(photosjoueurs.Images(nbalea))
PictureBox1.Image = CType(MyImage, Image)
Else
MsgBox("retente ta chance")
End If
End Sub
End Class
Y a des bug que j'ai pas encore corriger mais ca je vais essayer de me debrouiller seul lol
C'est les images flou qui m'embette