Hola
En un panel estoy creando imagenes en tiempo de ejecución.
Si hago un longClick en la imagen, sale un mensaje si quiere borrarla.
La intento borrar con File.Delete pero no me funciona, no la borra y me devuelve false.
He comprobado el directorio y el nombre de la imagen y es correcto.
La imagen a borrar da igual que este en la memoria interna, en la SDCard o en la ExSdCard, no la borra.
He probado de quitar la imagen (RemoveView), cargar otra imagen (b.Bitmap=LoadBitmapSample(Directorio,NombreFiles.Get(0),15%x,15%y)), de esperar 200 milisegundos Sleep(200), pero nada de esto me ha funcionado.
Así que no se que hago mal, o si hay que añadir algo en el Manifest.
Alguien me puede ayudar?
Gracias
Jesús
En un panel estoy creando imagenes en tiempo de ejecución.
Si hago un longClick en la imagen, sale un mensaje si quiere borrarla.
La intento borrar con File.Delete pero no me funciona, no la borra y me devuelve false.
He comprobado el directorio y el nombre de la imagen y es correcto.
La imagen a borrar da igual que este en la memoria interna, en la SDCard o en la ExSdCard, no la borra.
He probado de quitar la imagen (RemoveView), cargar otra imagen (b.Bitmap=LoadBitmapSample(Directorio,NombreFiles.Get(0),15%x,15%y)), de esperar 200 milisegundos Sleep(200), pero nada de esto me ha funcionado.
Así que no se que hago mal, o si hay que añadir algo en el Manifest.
Alguien me puede ayudar?
Gracias
Jesús
B4X:
Sub Button_LongClick
Dim NombreImagen As String
Dim id As Int
Dim Resultado As Boolean
Dim b As ImageView
b = Sender
NombreImagen =b.Tag
id=Msgbox2("Quiere eliminar la imagen:" & CRLF & NombreImagen,"Eliminar", "Aceptar","Cancelar","",I_BGS.Bitmap)
If id = DialogResponse.Positive Then
' borrar imagen
'b.RemoveView
Dim Bitmap1 As Bitmap
Bitmap1.Initialize3(ImagenVacia.Bitmap)
'b.Bitmap=LoadBitmapSample(Directorio,NombreFiles.Get(0),15%x,15%y)
DoEvents
Sleep(200)
Resultado=File.Delete(Directorio,NombreImagen)
If Resultado = True Then
ToastMessageShow("Imagen eliminada" & CRLF & NombreImagen,True)
CargarImagenes
LeerImagenes
Else
ToastMessageShow("No se pudo eliminar la imagen:" & CRLF & NombreImagen,True)
End If
End If
End Sub