Formulario con campo Foto

Hola Andys:

Para ello, puedes utilizar un campo de caracteres donde colocas la ruta
hacia el fichero bmp/jpg que contiene la foto.
En el formulario incluyes un botón que trabaja con GETFILE para que el
usuario, agregue o modifique la foto siempre que lo necesite.

Para que no se vea feo cuando no hay foto, puedes incluir en la aplicación
una imagen que es del color de fondo del formulario y luego en el evento
Refresh tener algo como el siguiente código:

thisform.image1.PICTURE = iif(file(admon.foto), admon.foto,
'imagengris.jpg')

Con esto te protejes también de que haya un error en el nombre o la ruta del
fichero que está en el campo foto.


Saludos,

Ana
www.amby.net

""
escribió en el mensaje news:223f01c4a6f7$45c1d3c0$

Amigos:
El caso es que tengo un formulario articulos en el que
existe un campo foto del articulo, quiero que el iusuario
cargue la foto cuando crea un nuevo articulo, y que la
pueda canbiar o borrar en ejecucion.

1.Cuando coloco el campo foto se crea un Olecontrol, el
caso esque no se como hacer para que el usuario pueda
cargar la imagen.

2.Cuando ejecuto el formulario el el Objecto Olecontrol
no esta visible.

Por favor ayudeme con esto.

Gracias por toda su colaboracion

Andys Bohorquez
Cartagena-Colombia

Hola Ana.
creo enterder esto:
Me dices que no utilce un campo general si no un campo de
texto, o tipo caracter.
y en el formulario no utilzo el Olecontrol sino una
Image,esta image en la propiedad picture va tomar la Ruta
del fichero que contiene el campo foto.
luego de carturar la Ruta con el GETFILE().

Ana.. por favor me quedo garnde esto.

me podrias ayudar con un ejemplo de este codigo.
es que no entiendo por que el Oleocontrol no tiene
propiedad picture como el Imagelist en Vbasic.

todo seria mas facil.

Espero que me ayudes.

Gracias.

Andys Bohorquez
Cartagena-Colombia

Hola Andys:

Para ello, puedes utilizar un campo de caracteres donde

colocas la ruta

hacia el fichero bmp/jpg que contiene la foto.
En el formulario incluyes un botón que trabaja con

GETFILE para que el

usuario, agregue o modifique la foto siempre que lo

necesite.

Para que no se vea feo cuando no hay foto, puedes

incluir en la aplicación

una imagen que es del color de fondo del formulario y

luego en el evento

Refresh tener algo como el siguiente código:

thisform.image1.PICTURE = iif(file(admon.foto),

admon.foto,

'imagengris.jpg')

Con esto te protejes también de que haya un error en el

nombre o la ruta del

fichero que está en el campo foto.


Saludos,

Ana
www.amby.net

""

escribió en el mensaje news:223f01c4a6f7$45c1d3c0

$

Amigos:
El caso es que tengo un formulario articulos en el que
existe un campo foto del articulo, quiero que el

iusuario

cargue la foto cuando crea un nuevo articulo, y que la
pueda canbiar o borrar en ejecucion.

1.Cuando coloco el campo foto se crea un Olecontrol, el
caso esque no se como hacer para que el usuario pueda
cargar la imagen.

2.Cuando ejecuto el formulario el el Objecto Olecontrol
no esta visible.

Por favor ayudeme con esto.

Gracias por toda su colaboracion

Andys Bohorquez
Cartagena-Colombia

.

Andys:

De VB no te puedo explicar, porque no se.

En VFP está poco recomendado trabajar las imágenes en campo tipo general
porque crecen demasiado las tablas y esta variante que te doy funciona muy
bien, es de libro.

Has entendido bien lo que te conté antes. Te cuento un poco más despacio lo
que yo hago:

1.- Crear un campo Foto o como se llame de caracteres (bien grande)
2.- Poner en tu formulario un objeto image
3.- NO asignarle propiedades al objeto en tiempo de diseño, no más dejarlo
allí y ponerle el tamaño que deseas.
4.- Agregar un control - botón de comando que ponga Cambiar Foto /
Actualizar Foto o lo que quieras. Esto, si deseas no lo pones, lo que haces
es programr por ejemplo el evento DblClick de la imagen, eso como te guste
más.
5.- En ese código lo que necesitas es localizar con el GetFile y reemplazar
en la tabla. Algo como esto (sin control de errores)

lcimagen = GETFILE("Imágenes:jpg",'','',0,'Seleccione la imagen deseada')
replace admon.foto with lcimagen
THISFORM.image1.PICTURE = lcimagen

6.- y luego en el evento
Refresh tener algo como el siguiente código:
thisform.image1.PICTURE = iif(file(admon.foto), admon.foto,'imagengris.jpg')

No dudes en volver a preguntar,


Saludos,

Ana
www.amby.net

""
escribió en el mensaje news:46cf01c4a701$04471630$
Hola Ana.
creo enterder esto:
Me dices que no utilce un campo general si no un campo de
texto, o tipo caracter.
y en el formulario no utilzo el Olecontrol sino una
Image,esta image en la propiedad picture va tomar la Ruta
del fichero que contiene el campo foto.
luego de carturar la Ruta con el GETFILE().

Ana.. por favor me quedo garnde esto.

me podrias ayudar con un ejemplo de este codigo.
es que no entiendo por que el Oleocontrol no tiene
propiedad picture como el Imagelist en Vbasic.

todo seria mas facil.

Espero que me ayudes.

Gracias.

Andys Bohorquez
Cartagena-Colombia

Hola Andys:

Para ello, puedes utilizar un campo de caracteres donde

colocas la ruta

hacia el fichero bmp/jpg que contiene la foto.
En el formulario incluyes un botón que trabaja con

GETFILE para que el

usuario, agregue o modifique la foto siempre que lo

necesite.

Para que no se vea feo cuando no hay foto, puedes

incluir en la aplicación

una imagen que es del color de fondo del formulario y

luego en el evento

Refresh tener algo como el siguiente código:

thisform.image1.PICTURE = iif(file(admon.foto),

admon.foto,

'imagengris.jpg')

Con esto te protejes también de que haya un error en el

nombre o la ruta del

fichero que está en el campo foto.


Saludos,

Ana
www.amby.net

""

escribió en el mensaje news:223f01c4a6f7$45c1d3c0

$

Amigos:
El caso es que tengo un formulario articulos en el que
existe un campo foto del articulo, quiero que el

iusuario

cargue la foto cuando crea un nuevo articulo, y que la
pueda canbiar o borrar en ejecucion.

1.Cuando coloco el campo foto se crea un Olecontrol, el
caso esque no se como hacer para que el usuario pueda
cargar la imagen.

2.Cuando ejecuto el formulario el el Objecto Olecontrol
no esta visible.

Por favor ayudeme con esto.

Gracias por toda su colaboracion

Andys Bohorquez
Cartagena-Colombia

.

Gracias Ana eres un Amor...

De verdad me has ayudado mucho.

Andys.

Andys:

De VB no te puedo explicar, porque no se.

En VFP está poco recomendado trabajar las imágenes en

campo tipo general

porque crecen demasiado las tablas y esta variante que

te doy funciona muy

bien, es de libro.

Has entendido bien lo que te conté antes. Te cuento un

poco más despacio lo

que yo hago:

1.- Crear un campo Foto o como se llame de caracteres

(bien grande)

2.- Poner en tu formulario un objeto image
3.- NO asignarle propiedades al objeto en tiempo de

diseño, no más dejarlo

allí y ponerle el tamaño que deseas.
4.- Agregar un control - botón de comando que ponga

Cambiar Foto /

Actualizar Foto o lo que quieras. Esto, si deseas no lo

pones, lo que haces

es programr por ejemplo el evento DblClick de la imagen,

eso como te guste

más.
5.- En ese código lo que necesitas es localizar con el

GetFile y reemplazar

en la tabla. Algo como esto (sin control de errores)

lcimagen = GETFILE("Imágenes:jpg",'','',0,'Seleccione la

imagen deseada')

replace admon.foto with lcimagen
THISFORM.image1.PICTURE = lcimagen

6.- y luego en el evento
Refresh tener algo como el siguiente código:
thisform.image1.PICTURE = iif(file(admon.foto),

admon.foto,'imagengris.jpg')

No dudes en volver a preguntar,


Saludos,

Ana
www.amby.net

""

escribió en el mensaje news:46cf01c4a701$04471630

$

Hola Ana.
creo enterder esto:
Me dices que no utilce un campo general si no un campo de
texto, o tipo caracter.
y en el formulario no utilzo el Olecontrol sino una
Image,esta image en la propiedad picture va tomar la Ruta
del fichero que contiene el campo foto.
luego de carturar la Ruta con el GETFILE().

Ana.. por favor me quedo garnde esto.

me podrias ayudar con un ejemplo de este codigo.
es que no entiendo por que el Oleocontrol no tiene
propiedad picture como el Imagelist en Vbasic.

todo seria mas facil.

Espero que me ayudes.

Gracias.

Andys Bohorquez
Cartagena-Colombia

Hola Andys:

Para ello, puedes utilizar un campo de caracteres donde

colocas la ruta

hacia el fichero bmp/jpg que contiene la foto.
En el formulario incluyes un botón que trabaja con

GETFILE para que el

usuario, agregue o modifique la foto siempre que lo

necesite.

Para que no se vea feo cuando no hay foto, puedes

incluir en la aplicación

una imagen que es del color de fondo del formulario y

luego en el evento

Refresh tener algo como el siguiente código:

thisform.image1.PICTURE = iif(file(admon.foto),

admon.foto,

'imagengris.jpg')

Con esto te protejes también de que haya un error en el

nombre o la ruta del

fichero que está en el campo foto.


Saludos,

Ana
www.amby.net

""

escribió en el mensaje news:223f01c4a6f7$45c1d3c0

$

Amigos:
El caso es que tengo un formulario articulos en el que
existe un campo foto del articulo, quiero que el

iusuario

cargue la foto cuando crea un nuevo articulo, y que la
pueda canbiar o borrar en ejecucion.

1.Cuando coloco el campo foto se crea un Olecontrol,

el

caso esque no se como hacer para que el usuario pueda
cargar la imagen.

2.Cuando ejecuto el formulario el el Objecto

Olecontrol

no esta visible.

Por favor ayudeme con esto.

Gracias por toda su colaboracion

Andys Bohorquez
Cartagena-Colombia

.

.