- 2026-09-15 V1.4.5 Corrección ocultación de botón previsualizar

This commit is contained in:
2026-09-15 18:01:11 +02:00
parent 9aa0a5891f
commit d92ed00e18
3 changed files with 43 additions and 39 deletions

View File

@@ -271,7 +271,7 @@ Public Class ContenedorAplicacion
Private Sub BtCapturar_ItemClick(sender As Object, e As ItemClickEventArgs)
Dim sficherojpg = tsUtilidades.Utilidades.ObtieneFicheroAleatorio("jpg")
IO.File.WriteAllBytes(sficherojpg, Me._Aplicacion.ObtieneImagen(1, 100))
Process.Start(sficherojpg)
tsUtilidades.Sistema.EjecutaFichero(sficherojpg)
End Sub
Private Sub BtExportar_ItemClick(sender As Object, e As ItemClickEventArgs)
@@ -369,7 +369,7 @@ Public Class ContenedorAplicacion
Next
End If
wb.SaveDocument(sfd.FileName, formato)
Process.Start(sfd.FileName)
tsUtilidades.Sistema.EjecutaFichero(sfd.FileName)
End If
Catch ex As Exception
DXMessageBox.Show(ex.Message, "Error")