Discussion :

[hjyf84]

Bonjour,

J'ai le problème suivant:

J'affiche un fichier .jpg dans une PictureBox avec le code suivant:

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
22
23
24
25
26
27
28
Public Sub AfficheMiniature_old(ByVal fichier_a_lancer As String)
        Try
            pbMiniature = New PictureBox
 
            With pbMiniature
                .Top = 132
                .Left = 1003
                .Width = 291
                .Height = 257
                .SizeMode = _
                   PictureBoxSizeMode.Zoom
                .Image = Nothing
            End With
 
            Me.Controls.Add(pbMiniature)
 
            With pbMiniature
                .Image = Image. _
                   FromFile(fichier_a_lancer)
                .Visible = True
                .BringToFront()
            End With
 
 
        Catch ex As Exception
 
        End Try
    End Sub

Lorsque j'essaie ensuite de supprimer le fichier .jpg, j'obtiens le message cité en objet de cette discussion.

J'ai essayé de faire pbminiature.dispose() avant d'effectuer ma suppression, mais j'obtiens toujours le même message.

Comment faire pour unlocker le fiochier concerné ?

Merci

[Mario Rousson]

je connais pas beaucoup les picturebox mais j'essayerais peut-être

Code :

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

1
2
pbMiniature
.Image = nothing

bonne chance

[hjyf84]

Ca ne fonctionne pas plus !!

[Mario Rousson]

essaye ça voir

Code :

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

1
2
3
4
5
6
7
8
9
Dim MonImage = New FileStream("C:\Users\Blablabla\Pictures\Or - Copie.jpg", FileMode.Open)
        PictureBox1.Image = Image.FromStream(MonImage)
        MonImage.Close()
        'PictureBox1 = Nothing
        Try
            File.Delete("C:\Users\MarioR\Pictures\Or - Copie.jpg")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

[hjyf84]

C'était la solution !!
Merci