domingo, 26 de junio de 2011

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.






No hay comentarios:

Publicar un comentario en la entrada