[Resolvido] Erro para limpar PictureBox vb.net

[WARZ 0]

Eu abro as  imagens de uma pasta e for visualizando, se eu tentar deletar uma das imagens da pasta diz que o arquivo esta em uso já tentei algumas opções mas o erro continua..

Alguma ideia de como faço isso?

 

Imports System.IO
Public Class Form1
    Dim Imagens() As String
    Dim contador As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If PictureBox1.Image Is Nothing Then
            MsgBox("Sem imagens para visualizar")
        Else
            contador += 1
            If Imagens.Length = contador Then
                contador = 0
            End If
            PictureBox1.Image = Image.FromFile(Imagens(contador))
        End If
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Imagens = Directory.GetFiles("D:\WARZ\Documents\IMAGENS", "*.jpg")
        PictureBox1.Image = Image.FromFile(Imagens(0))
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If PictureBox1.Image Is Nothing Then
            MsgBox("Sem imagens para visualizar")
        Else
            If contador = 0 Then
                contador = Imagens.Length
            End If
            contador -= 1
            PictureBox1.Image = Image.FromFile(Imagens(contador))
        End If
    End Sub
End Class

[itlpps 109]

A imagem está aberta no seu programa.

Fecha o programa que você consegue excluir a imagem..

[WARZ 0]

Eu quero fazer o fechamento das imagens ou seja limpar a picturebox de forma que eu possa excluir as imagens sem precisar fechar o programa.

 

tentei usar PictureBox1.Image = Nothing

PictureBox.Dispose 

 

Mas não consigo, alguém tem a solução pra isso?

[WARZ 0]

Eu quero fazer o fechamento das imagens ou seja limpar a picturebox de forma que eu possa excluir as imagens sem precisar fechar o programa.

 

tentei usar PictureBox1.Image = Nothing

PictureBox.Dispose 

 

Mas não consigo, alguém tem a solução pra isso?

 

Tentei agora mesmo as rotinas que passou mas ainda continua o mesmo erro..

Me passaram a dica de :

O método  Image.FromFile  retorna um tipo Image (ou Bitmap, não to lembrado exatamente agora)

Você deve jogar o retorno dele pra uma variável.
Só então, você jogará o valor para o PictureBox.
Depois de usar, a imagem, você dá um Dispose nessa variável. Dar o Dispose no PictureBox não faz muito sentido nesse contexto.

Mas não sei como fazer isso, desculpe sou novato tanto em vb.net quando no fórum então desculpe por algum erro aqui, grato

[Kelvin Dules 0]

Quando uma imagem é carregada na PictureBox o arquivo é "bloqueado". Crie um FileStream e controle a acessibilidade com ele.

Algo como isso:

Dim fileStream As System.IO.FileStream
  
fileStream = New System.IO.FileStream("coffee.png", IO.FileMode.Open, IO.FileAccess.Read)
  
PictureBox1.Image = System.Drawing.Image.FromStream(fileStream)
  
// feche a stream para liberar o lock
fileStream.Close()

 

[WARZ 0]

Obrigado pela ajuda pessoal já consegui me passaram a solução..

O problema não estava só com a picturebox e sim com o contador também pois ele ficava sempre somando..

eu fiz direto na picturebox quando devia ter criado variável para isso e não parar diretamente a picturebox e sim a variável..

Obrigado.