FoxPro/Visual FoxPro - Agregar varias Imagenes

 
Vista:
sin imagen de perfil

Agregar varias Imagenes

Publicado por Ruben Dario (57 intervenciones) el 17/11/2014 15:32:18
Buenas tardes

Se puede mostrar varias imagenes en visual fox.?

ejemplo: Tengo 5000 articulos divididos por familia y subfamilia

Al seleccionar una subfamilia quiero que me muestre las fotos de esos articulos

Es posible eso?

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Agregar varias Imagenes

Publicado por Fidel José (558 intervenciones) el 17/11/2014 16:24:57
Estudia esta rutina y la adaptas a tus necesidades
1) No necesitarás el GetPict() porque supuestamente conoces el path y nombre de archivo de imagen
2) Debes ver el modelo de posicionamiento de los objetos creados para que no se superpongan y sean visibles.
3) Tal vez necesites una propiedad Array para quitar los objetos creados. El array puede tener una sola dimensión y contener la referencia de objeto (LoIma en este caso) o puede contener el name para aplicar directamente Thisform.RemoveObject(Thisform.aImages[i]) (en este caso, lcNewImage)

4) la estructura for each oControl... etc, determinará qué nombre de objeto se puede crear sin conflicto. En este caso le puse como prefijo "Image", pero puedes utilizar el que más te guste.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
lcFile=GETPICT("")
IF EMPTY(lcFile)
	RETURN
ENDIF
lcNewImage="Image1"
lnOrd=0
FOR EACH ocontrol IN thisform.Controls
	IF oControl.baseclass="Image"
		lcName=oControl.name
		lnOrd=VAL(CHRTRAN(lcName,CHRTRAN(lcName,"1234567890",""),""))+1
		lcNewImage="Image"+TRANSFORM(lnOrd)
	ENDIF
NEXT
 
thisform.NewObject(lcNewImage,"Image")
IF PEMSTATUS(thisform,lcNewImage,5)
	loIma=thisform.&lcNewImage
	WITH loIma
		.top=5
		.Left=5 + 20 * lnOrd
		.picture=lcFile
		.Stretch=2
		.visible=.t.
	ENDWITH
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Agregar varias Imagenes

Publicado por Ruben Dario (57 intervenciones) el 17/11/2014 18:52:07
Muchas Gracias Fidel

Tengo varias familias de articulos, y lo que necesito es asignar a cada articulo la familia pero por medio de imagenes, es decir que arrastre las images a la familia correspondiente

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Agregar varias Imagenes

Publicado por Ruben Dario (57 intervenciones) el 18/11/2014 10:32:43
Como puedo mostrar la imagen en un cuadro de lista
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar