Problemas con Image
Hola net43.
Oye, tengo un problema.
Cuando cambio de valor en el picture_assing de un control image, no lo hace, no acmbia el valor. El siguiente código es el que tengo en el método:
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.Picture = m.vNewVal
Pero no me cambia el la imagen.
¿Por qué?
Oye, tengo un problema.
Cuando cambio de valor en el picture_assing de un control image, no lo hace, no acmbia el valor. El siguiente código es el que tengo en el método:
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.Picture = m.vNewVal
Pero no me cambia el la imagen.
¿Por qué?
1 Respuesta
Respuesta de Cesar Enrique Yamunaque Baca
1
Ya los he intentado, pero sigue sin cambiar la imagen
Prueba lo siguiente:
1) En el objeto imagen de tu formulario selecciona el Metodo DblClick y coloca
LOCAL lcFileName1
lcFileName1=GETPICT("JPG;GIF;BMP", ;
"Imagen a colocar", ;
"Aceptar")
IF !EMPTY(lcFileName1)
This.Parent.text1.Value=(lcFileName1)
ENDIF
This.parent.refreshimagen
2) En tu formulario adiciona el método
Refreshimagen
3)En el metodo RefreshImagen coloca
LOCAL lcfile
IF FILE(This.text1.value)
lcFile = This.text1.value
This.image1.Picture = lcFile
ELSE
lcFile = ''
Endif
4) Coloca en tu formulario un cuadro de texto llamado text1
Espero te sirva, en todo caso dame tu e-mail para enviarte el ejemplo
1) En el objeto imagen de tu formulario selecciona el Metodo DblClick y coloca
LOCAL lcFileName1
lcFileName1=GETPICT("JPG;GIF;BMP", ;
"Imagen a colocar", ;
"Aceptar")
IF !EMPTY(lcFileName1)
This.Parent.text1.Value=(lcFileName1)
ENDIF
This.parent.refreshimagen
2) En tu formulario adiciona el método
Refreshimagen
3)En el metodo RefreshImagen coloca
LOCAL lcfile
IF FILE(This.text1.value)
lcFile = This.text1.value
This.image1.Picture = lcFile
ELSE
lcFile = ''
Endif
4) Coloca en tu formulario un cuadro de texto llamado text1
Espero te sirva, en todo caso dame tu e-mail para enviarte el ejemplo
Ok, mi correo es:
[email protected].
[email protected].
Bien te envío el ejemplo
