Al otro lado de la pantalla
He creado un ejemplo de paquete de instalación. El ejemplo no tiene nada de importancia.
Muestra en un picturebox una imagen. No he usado settings, cosa que puede ser apropiado.
El ejemplo, además de mostrar la imagen en el picturebox, debe crear el directorio oculto de la aplicación
en el home del usuario y mover allí la imagen que es el lugar donde la va a cargar.
La imagen que se encuentra en datos del proyecto es un enlace simbólico a un directorio de recursos que tengo
en el pc.
Este es el árbol del proyecto:
Supongo que es como debería crearse cualquier paquete de instalación y como se debería crear el directorio de la aplicación
en la home del usuario. Lo cierto es que en:
.local/gambas3 encuentro el directorio bin donde se encuentra ejecutables de los proyectos con distintos directorios y
tambien el directorio .src donde se encuentran las fuentes de los anteriores.
¿ Se crean de esta manera al bajarlos de la granja ?. Tanto el ejecutable como la fuente.
Añado el código de este ejemplo, por si recomendáis algo que se le pueda añadir o mejorar.
Public Sub Form_Open()
Dim sruta As String
Dim sok As String
Me.Center
sruta = User.Home &/ ".EjemploPaqInstalacion"
sok = "Correcto.png"
If Not Exist(sruta) Then
Mkdir sruta
Copy sok To sruta &/ sok
Else
If Not Exist(sruta &/ sok) Then Copy sok To sruta &/ sok
Endif
PicBoxEjemplo.Picture = Picture.Load(sruta & sok)
End
Public Sub BtnSalir_Click()
Me.Close
End
Dim sruta As String
Dim sok As String
Me.Center
sruta = User.Home &/ ".EjemploPaqInstalacion"
sok = "Correcto.png"
If Not Exist(sruta) Then
Mkdir sruta
Copy sok To sruta &/ sok
Else
If Not Exist(sruta &/ sok) Then Copy sok To sruta &/ sok
Endif
PicBoxEjemplo.Picture = Picture.Load(sruta & sok)
End
Public Sub BtnSalir_Click()
Me.Close
End
Pd: Observo que en la ultima linea donde le digo que imagen debe mostrar. No he añadido la barra!.
Pero se muestra!. ¿ Eso es correcto ?
Saludos
