A voir également:
- Afficher une image a partir d'une imagelist
- Recherche à partir d'une image - Guide
- Créer une icone à partir d'une image - Guide
- Comment agrandir une image - Guide
- Créer une image iso - Guide
- Légender une image - Guide
11 réponses
choubaka
Messages postés
39409
Date d'inscription
jeudi 4 avril 2002
Statut
Modérateur
Dernière intervention
24 décembre 2024
2 104
26 août 2009 à 16:49
26 août 2009 à 16:49
il n'y a pas autre chose que Bitmap ?
choubaka
Messages postés
39409
Date d'inscription
jeudi 4 avril 2002
Statut
Modérateur
Dernière intervention
24 décembre 2024
2 104
26 août 2009 à 08:54
26 août 2009 à 08:54
salut
quel langage ?
quel langage ?
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
choubaka
Messages postés
39409
Date d'inscription
jeudi 4 avril 2002
Statut
Modérateur
Dernière intervention
24 décembre 2024
2 104
26 août 2009 à 11:17
26 août 2009 à 11:17
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
choubaka
Messages postés
39409
Date d'inscription
jeudi 4 avril 2002
Statut
Modérateur
Dernière intervention
24 décembre 2024
2 104
26 août 2009 à 12:56
26 août 2009 à 12:56
montre un peu ton code, svp
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
choubaka
Messages postés
39409
Date d'inscription
jeudi 4 avril 2002
Statut
Modérateur
Dernière intervention
24 décembre 2024
2 104
27 août 2009 à 09:49
27 août 2009 à 09:49
revoie peut être ton sizemode