Liberar PictureBox
Publicado por César (1 intervención) el 24/09/2007 20:08:47
Hola!
tengo el siguiente inconveniente:
Tengo una rutina en la cual cargo un archivo imagen desde una BD y luego este archivo lo asigno al control picturebox.
En la funcion en la cual yo rescato el archivo imagen desde la BD, primero verifico si el archivo existe en la carpeta destino en la cual lo voy a dejar, si es asi elimino el archivo para cargarlo nuevamente, luego de esto le asigno el archivo al control picturebox. El problema es que no puedo eliminar el archivo ( desde la rutina que rescata el archivo imagen) que ya se asignado anteriormente al objeto picturebox ya que queda tomado por este.
la rutina es mas o menos esta:
Dim Foto as Bitmap
RutaArchivo = CargaImagen()
Foto = New Bitmap(RutaArchivo)
pctFoto.Image = CType(Foto, Image)
Private function CargaImagen() as string
RutaArchivo = "c:\Foto.bmp"
If Len(Dir$(RutaArchivo)) > 0 Then
Kill(RutaArchivo) <--- elimina archivo. ( no deja si ya fue asignado a picturebox )
End If
' Cargo nuevamente en Bytes el archivo --->
...
<---
CargaImagen = RutaArchivo
End Function
El error desplegado es : "El archivo no puede ser eliminado porque esta siendo utilizado por otro proceso"
Espero comprendan la idea..
De ante mano muchas gracias.
tengo el siguiente inconveniente:
Tengo una rutina en la cual cargo un archivo imagen desde una BD y luego este archivo lo asigno al control picturebox.
En la funcion en la cual yo rescato el archivo imagen desde la BD, primero verifico si el archivo existe en la carpeta destino en la cual lo voy a dejar, si es asi elimino el archivo para cargarlo nuevamente, luego de esto le asigno el archivo al control picturebox. El problema es que no puedo eliminar el archivo ( desde la rutina que rescata el archivo imagen) que ya se asignado anteriormente al objeto picturebox ya que queda tomado por este.
la rutina es mas o menos esta:
Dim Foto as Bitmap
RutaArchivo = CargaImagen()
Foto = New Bitmap(RutaArchivo)
pctFoto.Image = CType(Foto, Image)
Private function CargaImagen() as string
RutaArchivo = "c:\Foto.bmp"
If Len(Dir$(RutaArchivo)) > 0 Then
Kill(RutaArchivo) <--- elimina archivo. ( no deja si ya fue asignado a picturebox )
End If
' Cargo nuevamente en Bytes el archivo --->
...
<---
CargaImagen = RutaArchivo
End Function
El error desplegado es : "El archivo no puede ser eliminado porque esta siendo utilizado por otro proceso"
Espero comprendan la idea..
De ante mano muchas gracias.
Valora esta pregunta
0