Matriz de objetos
DIMENSION Matriz[5]
FOR x = 1 TO 5
Matriz[x] = CREATEOBJECT("COMMANDBUTTON")
Endfor
Con este código se puede crear un matriz de objetos. Pero quiero saber como habo para agregar estos objetos a mi formulario.
Hice la prueba con "addobject" pero no me acepta la matriz como nombre.
FOR x = 1 TO 5
Matriz[x] = CREATEOBJECT("COMMANDBUTTON")
Endfor
Con este código se puede crear un matriz de objetos. Pero quiero saber como habo para agregar estos objetos a mi formulario.
Hice la prueba con "addobject" pero no me acepta la matriz como nombre.
1 Respuesta
Respuesta de miron
1
Te sugiero que pruebes así:
*--Pon esto código en un botón de un formulario
Local n,j,i
J=0
For i=1 to 5
N=Allt(str(i))
Thisform.Addobject('Boton'+n,'commandbutton')
Thisform.Boton&n..Top=j
Thisform.Boton&n..height=27
Thisform.Boton&n..visible=.t.
J=J+27
Endfor
*--Pon esto código en un botón de un formulario
Local n,j,i
J=0
For i=1 to 5
N=Allt(str(i))
Thisform.Addobject('Boton'+n,'commandbutton')
Thisform.Boton&n..Top=j
Thisform.Boton&n..height=27
Thisform.Boton&n..visible=.t.
J=J+27
Endfor
