Discussion :

[Claude_Azoulai]

Bonjour à tous

Depuis quelques mois, je me suis lancé dans VB.Net et je commence à faire des programmes (en bénéficiant parfois de votre aide) avec des images.
Là, j'ai un petit problème, à savoir que lors d'une première utilisation de "DrawImage" dans un PictureBox, l'image se dessine bien et apparait dans mon contrôle, puis disparrait au bout d'environ 2 secondes.
Si je relance la routine une deuxième fois, l'image reste cette fois définitivement.
Voici mon petit code pour les fûtés que vous êtes.
Quelqu'un a-t-il déja rentontré ce problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Class Form1
    Public g As Graphics, img As Image
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim g = PictureBox1.CreateGraphics
        img = Image.FromFile("C:\Toto.jpg")
        g.DrawImage(img, 0, 0, PictureBox1.Width, PictureBox1.Height)
    End Sub
End Class

Merci de votre réponse.

Claude Azoulai

[methylene]

C'est étrange car j'ai pris ton code en créant un bouton et une picturebox et cela marche très bien.

[methylene]

Sinon, tu peux faire cela également pour le même résultat :

Code :

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

1
2
3
4
        Dim bmp As Bitmap
        bmp = Image.FromFile("C:\Toto.jpg")
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        PictureBox1.Image = bmp

[Claude_Azoulai]

Merci à methylene

Pour répondre à ton deuxième message, je ne veux pas utiliser cette méthode car je prévois de visualiser des photos qui bougent dans le PictureBox.
En ce qui concerne ton premier message, cela me rassure sur Visual Basic 2008 et je vais continuer à chercher plus avant.
Je ne valide pas immédiatement "Résolu" des fois que quelqu'un d'autre a eu le même problème.
Merci de ton aide.

Claude Azoulai

[methylene]

Une image qui bouge, c'est à dire du gif ? Parce que ma méthode marche très bien avec du gif, et les images sont animées.

Sinon au lieu de devoir aller chercher ton image, met la directement dans My.Ressources, c'est plus pratique

Enfin pense à la balise résolu ->>

[Geo2A]

Bonjour Claude,

Effectivement avec le code que tu utilise il y a un petit soucis.
Lorsque tu dessine avec le graphics d'un picturebox obtenu par creategraphic tu ne dessine pas sur le même graphics que celui générer par l'événement PAINT du pictureBox. Car GDI+ utilise la technique du DC en mémoire (cf la doc .NET sur à l'attention des programmeur VB6 pour la partie graphique: la propriété autoredraw n'existe plus sous .Net car le bitmap est toujours permanent) en fait le bitmap permanent est celui de l'événement PAINT.

Donc pour rendre permanent ton bitmap tu dois l'instancier dans l'événement PAINT du picturebox. Ce qui oblige à charger le bitmap à chaque mise à jour de l'écran !! Mais rassure toi il y a des astuces.

Si on utilise que GDI+ et pas une dll externe (en référence à ton précédent message). :

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
Public Class Form1
    Private bmp As Bitmap
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bmp = New Bitmap("C:\T0TO.jpg")
        PictureBox1.Refresh()
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
 
        If bmp Is Nothing Then Exit Sub
 
        Dim p As New Point(0, 0)
        e.Graphics.DrawImage(bmp, p)
 
    End Sub
End Class