Enlazar foto a Formulario
Jose Luis Navas
hace no mucho. pedí ayuda para cargar una imagen:
al usar los controles, todos los datos cambian ...menos la foto :(
y debo decir qe ya tengo las 100 primeras fotos cargadas!
PS: en el post mencionado con anterioridad. Fidel Charny me dio un optimo ejemplo ...muy bien explicado!
quisiera agradecer a Fidel Charny ya que en el post anterior no tuve la oportunidad ....Muchas Gracias!
PS2: estoy usando VFP9 (Visual Fox Pro 9)
Euro Nava
Thisform……imagen.picture=”nombre y ubicación de la imagen que deseas mostrar#
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jose Luis Navas
Enviado el: miércoles, 16 de agosto de 2017 11:56 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Enlazar foto a Formulario
Muy buenos dias a todos.
hace no mucho. pedí ayuda para cargar una imagen:
ahora tengo el siguiente problema:
al usar los controles, todos los datos cambian ...menos la foto :(
y debo decir qe ya tengo las 100 primeras fotos cargadas!
estuve googleando y parece que debo usar: (SKIP +1, SKIP -1)....pero no se como hacerlo
he colocado como muestra la foto:
Jose Luis Navas
eso ya lo he hecho.
de hecho muestra la imagen, (pero solo la ultima imagen cargada)
Jose Luis Navas
http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-fox-pro/respuestas/xy68jpckrhqta/enlazar-foto-a-formulario-vfp
"Si tenes algún botón para desplazarte entre registros... entonces al hacer el desplazamiento (usando SKIP +1, SKIP -1) debes colocar
thisform.iMAge1.Picture = ima.foto
Thisform. Refresh
Para que así desplaces el registro y la foto! Ves! :)
Proba y me avisas!"
la mayoria de las veces googleando encuentro la respuesta pero si no la hallo ...vengo a molestarlos :)
no entiendo que quizo decir con eso de SKIP+1, SKIP-1
bien, yo tengo un formulario con datos ya ingresados
he agregado la foto a cada usuario usando el metodo de Fidel Charny ....(la foto ya está agregada)
ahora quiero que al hacer clic en el boton de desplazamiento (o tambien llamados controles) cambie la foto de cada usuario.
osea:
si veo al usuario "pippo" ...se muestre la foto de pippo
si veo la foto de "pluto" ...se muestre la foto de pluto
Gracias de antemano
integral
Euro Nava
Según dices en tu mensaje que usas skip para navegar en los registros si es asi en el evento clic de los botones de navegación debes colocar al instrucción de ejemplo que te pase
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jose Luis Navas
Enviado el: miércoles, 16 de agosto de 2017 12:37 p.m.
Para: Comunidad de Visual Foxpro en Español
Jose Luis Navas
por favor.
yo no he dicho que uso SKIP.
he dicho que estaba siguiendo el consejo de esa pagina mostrada en el mensaje anterior :(
CODIGO COMPLETO:
lcFolderSource,; lcFolderTarget,; lcFoto_Nueva_Usuario,; lcFolderIni,; oWsh as Object
* Se suponen definidas las variables (para un procedure deberían ser parámetros)* Empresa y Dir_Inicial
*<Directorio de búsqueda> * Se puede indicar cualquier otra ruta de busqueda * para el ejemplo tomo "Documents" del usuario actual. oWsh = CREATEOBJECT("WScript.Shell") lcFolderSource = oWsh.SpecialFolders("Desktop") owsh=null*</Directorio de búsqueda>lcFolderIni = FULLPATH("")
*<Directorio de destino> lcFolderTarget = ADDBS(dir_Inicial); +ADDBS(m.Empresa); +ADDBS("images"); +ADDBS("usuarios") * Verificar si existe, si no, crearlo IF !DIRECTORY(m.lcFolderTarget) MD &lcFolderTarget ENDIF *</Directorio de destino>
*<Buscar Imagen> CD (m.lcFolderSource) lcFotoUsuario=GETPICT("jpg,bmp") CD (m.lcFolderIni)*</Buscar Imagen>
IF !EMPTY(m.lcFotoUsuario) lcFoto_Nueva_Usuario = ADDBS(m.lcFolderTarget); +alltrim(m.codigo_usu); +"."; +LOWER(JUSTEXT(m.lcFotoUsuario))
COPY FILE (m.lcFotoUsuario) TO (m.lcFoto_Nueva_Usuario)
* Reemplazo en la tabla. * Conviene seleccionar el area de trabajo * Si no se quiere seleccionar el área, la notación correcta sería * REPLACE logo with m.lcFoto_Nueva IN Mantenimiento SELECT usuarios replace foto_usuario WITH m.lcFoto_Nueva_Usuario thisform.cont_datos.foto.picture= ALLTRIM(m.lcFoto_Nueva_Usuario)ENDIF
HernanCano
Euro Nava
¿la foto la almacenas en la base datos?
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jose Luis Navas
Enviado el: miércoles, 16 de agosto de 2017 02:50 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: Re: [vfp] Enlazar foto a Formulario
por favor.
Jose Luis Navas
y como hago eso ??
Fidel Charny
Para asignar la fotografía al control imagen no debes usar el evento Init del control Imagen.
Tienes que tener algún método o evento que localiza al usuario en la tabla.
En ese método debes asignar la imagen
thisform.cont_datos.foto.picture = trim(usuarios.foto_usuario)
No hace falta ningún refresh para esto, y menos Thisform.Refresh.
Euro Nava
Coloca un refresh al final de la instrucción a ver que pasa
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jose Luis Navas
Enviado el: miércoles, 16 de agosto de 2017 04:25 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: Re: [vfp] Enlazar foto a Formulario
@HernanCano
Fidel Charny
El evento Init de cualquier control o de un form, sucede cuando el objeto se crea. Luego no debería volver a utilizarse.
Jose Luis Navas
SCATTER MEMVAR thisform.cont_datos.cont2.label10.caption = nombre_usu FOR a = 1 TO 32 c = RIGHT('00'+ALLTRIM(STR(a)), 2) b = 'thisform.cont_datos.cont2.check'+ALLTRIM(STR(a))+'.value' &b=.F. IF AT('&c',cod_reportes) > 0 &b=.T. ENDIF ENDFOR FOR a = 1 TO 6 c = ALLTRIM(STR(a)) IF a<5 b = 'thisform.cont_datos.cont1.check'+ALLTRIM(STR(a))+'.value' &b=.F. IF AT('&c',menu_compras) > 0 &b=.T. ENDIF b = 'thisform.cont_datos.cont1.check'+ALLTRIM(STR(a+29))+'.value' &b=.F. IF AT('&c',menu_produccion) > 0 &b=.T. ENDIF ENDIF IF a<6 b = 'thisform.cont_datos.cont1.check'+ALLTRIM(STR(a+9))+'.value' &b=.F. IF AT('&c',menu_rol) > 0 &b=.T. ENDIF ENDIF b = 'thisform.cont_datos.cont1.check'+ALLTRIM(STR(a+19))+'.value' &b=.F. IF AT('&c',menu_por_pagar) > 0 &b=.T. ENDIF ENDFOR thisform.refreshFidel Charny
1) Cual es tu idea?
a) Mostrar los datos de un usuario en un form que incluye su fotografía, donde el usuario ingresa su nombre de usuario
b) Mostrar los datos de todos los usuarios en un form con todas las fotografías.
c) Mostrar los datos de un usuario, pero los datos surgen de recorrer la tabla. (y de ahí vienes lidiando con los skip)
d) Otra idea que no se me ocurre
2) Cual es el procedimiento o evento donde algo de lo que puede pasar, sucede. (recorrida por la tabla, SELECT-SQL, localización de registro, etc)
Jose Luis Navas
1) Cual es tu idea?
temo venga especificado desde otro form ....como puedo averiguarlo?
this.value = UPPER(this.value) IF EMPTY(thisform.tag) .AND. .NOT. EMPTY(this.value) SEEK this.value IF .NOT. EOF() WAIT WINDOW TIMEOUT 1 'ya existe..' this.value = ' ' RETURN 0 ENDIF ELSE IF this.value<>thisform.tag .AND. .NOT. EMPTY(this.value) SEEK this.value IF .NOT. EOF() WAIT WINDOW TIMEOUT 1 'ya existe..' this.value = thisform.tag RETURN 0 ELSE SEEK thisform.tag ENDIF ENDIF ENDIFJose Luis Navas
disculpa se me olvido mencionar que las imagenes son del campo "codigo_usuario"
Fidel Charny
Estás mostrando (supuestamente), el evento valid de textbox. Supuestamente es un text1.
Lo primero que observo es que en el controlSource de ese textbox estás poniendo una variable de memoria, que supuestamente debe ser pública,
Para empezar, el controlsource se debe asignar en tiempo de ejecución.
Por seguir, nunca metas una varible pública en un ControlSource. Utiliza una propiedad del formulario.
Addproperty(thisform,"coduser","")
Thisform.Text1.ControlSource = "Thisform.coduser" && va encomillado, pueden ser comillas simples o dobles. Siempre es "Thisform.Propiedad"
Para continuar, no haces nada en ese lugar aparte de buscar con un comando obsoleto como SEEK. No tengo idea de que has puesto en la propiedad Tag del formulario ni porqué usas ese recurso.
Normalmente uno buscaría el usuario y de ahí en más, cuando lo encuentra, muestra todo lo que necesita.
Si la tabla se llama usuario y el campo del valor clave se llama "codUser", podés intentar buscarlo:
* Valid Event
SELECT * FROM USUARIOS WHERE trim(CODUSER) == THIS.VALUE INTO CURSOR curUsuario
IF _TALLY = 1
Thisform.txtNombre.Value = curUsuario.Nombre
thisform.CntFoto.Foto.Picture = trim(curUsuario.foto_usuario)
Thisform.TxtAlgo.Value = Evaluate("curUsuario."+lcCampo)
ELSE
Messagebox("Código de Usuario Inválido",0,"Mensaje",2000)
THIS.VALUE = ""
RETURN 0
ENDIF
USE IN CURUSUARIO
Disculpá la desprolijidad.
JuanK
uso dos botones avansar que sintetisando tiene el comando skip y atras que es skip -1, em ambos botones envio a la propiedad picture osea thisform.imgae1.picture=alltrim(foto) y con eso es mas que suficiente, repito en mi caso.
Euro Nava
Bueno yo básicamente tengo algunos formulario que al momento de cargarse en el evento actívate del form coloco el puntero en el primer registro de la tabla, hago lectura del campo donde guardo la ruta y el nombre del archivo de imagen, el resto de los datos los muestro en un grid y los eventos clic y AfterRowColChange utilizo el mismo código, ejemplo:
Variable=alltrim(tabla.ruta y nombre del archivo de imagen)
Thisformset.formulario.grid.imagen.picture=Variable
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Mauricio Gonzalez
Enviado el: jueves, 17 de agosto de 2017 08:57 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: Enlazar foto a Formulario
Jose Luis Navas, el siguiente codigo adaptalo a tu necesidad y ponlo en el metodo ACTIVATE del FORM:
******
vfoto = catalogo.foto
IF FILE("&vfoto")
THISFORM.Container1.image1.Picture = "&vfoto"
ELSE
THISFORM.Container1.image1.Picture = vfoto
ENDIF
*
THISFORM.Refresh
catalogo.foto es la tabla donde tengo la informacion de los articulos.
De esta manera no hay que tocar los botones de navegacion para nada.....
Tambien creo que no es necesario refrescar.....Saludos
Euro Nava
Jose Luis Navas
creo que me rindo :(
Euro Nava
¿estas usando Form o FormSet?
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jose Luis Navas
Enviado el: jueves, 17 de agosto de 2017 12:23 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: Enlazar foto a Formulario
no lo logré!
Jose Luis Navas
Fidel Charny
Si quieres solucionar el problema debes comenzar por el principio
1) A qué quieres llegar? o qué necesitas hacer?
2) Qué recursos tienes (tablas, interfaz, etc) ( o qué tienes para ese propósito)
Cada uno de nosotros tiramos ideas parciales según nos parece. En mi caso, no se cual es el propósito. Arrancamos con una foto. Pero si querés ayuda, tienes que plantear el escenario.
No uses variables públicas, ni privadas (salvo que no haya ninguna otra solución).
Declara en cada evento, método o procedimiento las variables que uses como LOCAL.
Si vas a liar controles por ControlSource, no lo hagas en tiempo de diseño. Programa eso en el init del form. Y no uses variables de memoria para esto, sino propiedades del formulario o registros de un cursor o tabla.
Euro Nava
Según comentaste al principio de tu caso al cargar el formulario la imagen se ve sin problemas y corresponde al registro en pantalla, el problema sucede al navegar por los registros es decir al mover el puntero se actualizan los datos pero la imagen no ¿correcto?
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jose Luis Navas
Enviado el: jueves, 17 de agosto de 2017 01:31 p.m.
Para: Comunidad de Visual Foxpro en Español
Magora
asi:
LPARAMETERS nColIndex
THISFORM.REfrfoto
THISFORM.Refresh
En el método refrfoto:
lcfoto = "..\Datos\comunes\fotos\" + ALLTRIM(PROVINS.idprod) + ".jpg"
IF NOT FILE( lcfoto )
thisform.imgfoto.Visible = .f.
this.lbsinfotoa.Visible=.t.
else
this.lbsinfotoa.Visible=.f.
thisform.imgfoto.picture = lcfoto
thisform.imgfoto.Visible = .t.
endif
Donde imgfoto es un objeto image, y lbsinfotoa es un label que su caption solo indica que no hay foto.
Funciona Perfectamente.
Saludos, MAnuel González
Jose Luis Navas
Sé exactamente donde quiero llegar.
si el project fuera mio lo entendería. pero no lo es!
ademas de eso es un project muy grande (solo en la carpeta "Forms" hay 721 archivos)
y no me esperaba que fuera asi.....
al abrir: "login" me doy centa que no se com diablos hace login ...no tiene nada de codigo
igual en mantenimiento (osea el que estaba modificando ...agregando foto) ...no hay mucho que diga de donde salen las cosas
pero al compilar en archivo executable! ...funciona todo :(
@ euronv
Fidel Charny
Me alegro que sepas a dónde vas. Tampoco lo pongo en duda. Lo que no veo que hayas hecho, es transmitir tu idea al grupo, con lo cual, cada uno de los que contestamos, lo hacemos sobre lo que nos parece que quieres hacer.
Si no sos el constructor de ese sistema, y tienes objetos que parecen como sin código y en realidad hacen su tarea, seguramente serán objetos de clase. En el cuadro de propiedades puedes ver el origen del control en la solapa Other. También puede que sea visible el código de clase con el boton View parent code. Puedes chequear antes la solapa Methods para ver cuales son heredados. Y si escribes algo ahí, no te olvides de ponerle dodefaultI() porque de otra forma el código de la clase no se ejecutará.
En cuanto al número 721, podemos pensar que corresponden a 360 formularios más un archivo de otro tipo. Hasta ahora no tenemos ninguna pista de que los 360 forms estén en el proyecto porque la sola residencia en una carpeta común no los involucra.
Dices que quieres "recorrer la tabla usando los controles" y pones un código donde intentas buscar un registro con un comando SEEK, donde parece que buscas el valor del cuadro de texto o el valor de la propiedad TAG del formulario. Entonces, lo que muestras que haces no se condice con lo que dices que piensas.
Y sobre este código, en particular, vuelvo a preguntar qué papel juega la propiedad TAG del formulario?
Por otra parte, si quieres saber si un valor clave ya existe en una tabla o cursor y no quieres mover el puntero de registro, lo mejor es usar:
lExiste = INDEXSEEK(lcValor , .F. , lcTabla , lcEtiqueta_Indice). Tanto la función Seek() como Indexseek() tienen la ventaja de que no necesitas establecer un SET ORDER TO lcEtiqueta_indice, ni tampoco tener la tabla seleccionada.
this.value = UPPER(this.value) IF EMPTY(thisform.tag) .AND. .NOT. EMPTY(this.value) SEEK this.value IF .NOT. EOF() WAIT WINDOW TIMEOUT 1 'ya existe..' this.value = ' ' RETURN 0 ENDIF ELSE IF this.value<>thisform.tag .AND. .NOT. EMPTY(this.value) SEEK this.value IF .NOT. EOF() WAIT WINDOW TIMEOUT 1 'ya existe..' this.value = thisform.tag RETURN 0 ELSE SEEK thisform.tag ENDIF ENDIF ENDIFHernanCano
Jose Luis Navas
pido disculpas por estar desconectado todos estos dias! ...llegó mercaderia y todos tuvimos que ir a las bodegas :( ...aburrido y cansado :(
pero ya estoy aqui :)
@ Fidel Charny
muchas gracias @Mauricio Gonzalez ...ese archivo me sirvió mucho! :) ...gracias a tu archivo y la imagen de @HernanCano pude resolver este inconveniente.
Muchas Gracias a todos
PD: "crei que no lo lograría ...en serio muchas gracias"
Jose Luis Navas
Muchas gracias a todos!
Octavio Daza
Enviado: jueves, 17 de agosto de 2017 14:34
Para: publice...@googlegroups.com <publice...@googlegroups.com>
Asunto: RE: [vfp] Re: Enlazar foto a Formulario