FoxPro/Visual FoxPro - asignar nombres a objetos

Pos: 70

Val: 15

asignar nombres a objetos

Publicado por Foxadict (8 intervenciones) el 11/01/2019 11:11:07

Hola ...

A ver si alguien me podría ayudar....

Necesito crear objetos (ejemp. image) cada vez que el usuario hace click en un commandbutton, como puedo asignarle un nombre a ese objeto para que pueda crear un numero indefinido de objetos???
Por ejemplo: THISFORM. ADDOBJECT("nombre1","image"), THISFORM. ADDOBJECT("nombre2","image"), THISFORM. ADDOBJECT("nombre3","image")... etc

Con una variable no seria posible, no????

Llevo atascado con esto mucho tiempo.

Gracias.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 1.011

asignar nombres a objetos

Publicado por Fidel José (657 intervenciones) el 11/01/2019 12:07:04

Este código agrega 10 objetos image

ln = 0

FOR i = 1 TO 10

	lcName = "img"+TRANSFORM(i)

	IF !PEMSTATUS(thisform,m.lcName,5)

		thisform.newobject(m.lcName,"image")

	ENDIF

	WITH thisform.&lcName

		.top = (numeric)

		.left = (numeric)

		.picture =	(path + filename )

		.visible = .t.

	ENDWITH

NEXT

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 70

Val: 15

asignar nombres a objetos

Publicado por Foxadict (8 intervenciones) el 11/01/2019 12:41:21

Funciona !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Muchas Gracias por tu ayuda Fidel José.

Valora esta respuesta

Comentar

Pos: 70

Val: 15

asignar nombres a objetos

Publicado por Foxadict (8 intervenciones) el 11/01/2019 14:00:11

Intenté también usar un campo de una tabla como nombre para el newobject pero me dice: Variable no encontrada.
¿ No se puede usar campos ?

Gracias.

Valora esta respuesta

Comentar

Ejecutar mi Sistema sin tener que tener instalalado foxpro 9

reportes en excel desdel visual foxpro