Introducir Datos: Imagen

Para introducir la imagen, vamos a utilizar un cuadro de dialogo. Vamos a crear una nueva variable global que contiene la ruta elegida de la imagen. (añadirla al modulo var)

PUBLIC rutaimagen AS String

Al hacer click en el cuadro del picture se ejecutara el siguiente codigo: (poner este codigo en el formualrio FORM)

PUBLIC SUB PictureBoxFoto_MouseDown()

'la variable Stretch que controla el redimensionamiento de la imagen la pongo como true para que se vea complea

PictureBoxFoto.Stretch = TRUE

Dialog.Title = "Seleccione un archivo para abrir"

Dialog.Path = User.NAME

Dialog.Filter = ["*.jpg", "JPG", ".png", "PNG", "*.bmp", "BMP"]

IF NOT Dialog.OpenFile() THEN

PictureBoxFoto.Picture = Picture[Dialog.Path]

'variable global que controla la ruta donde esta la imagen

var.rutaimagen =Replace$(Dialog.Path, " ", Chr$(92) & " ")

ENDIF

END

Mejora con la versión 2: Replace$. Esta orden reemplaza el “ “ (espacio) del nombre de una ruta por “\ “ (barra invertida + espacio) que es la forma en que entiende linux los espacios entre las palabras que formen el nombre de la ruta o archivo.