Podes usar sustitución de macro, ej:
FOR y = 1 TO 20
xObj = “THISFORM.B_” + Transform(y)
&xObj .BACKCOLOR = RGB(0,0,255)
ENDFOR
From: Norberto Mario Alvarez
Sent: Tuesday, October 07, 2014 9:33 AM
To: GUFA List Member
Subject: [GUFA] Control de muchos botones
Estimados colisteros, quisiera saber si es posible y como. Paso a detallar mi
problema:
Tengo en un formulario muchos botones, por ejemplo 20 y cada uno de ellos tiene
como nombre B_1 al B_20, y a cada botón según una determinada condición quiero
cambiarle atributos (ejemplo el backcolor)
En vez de
THISFORM.B_1.BACKCOLOR(0,0,0)
THISFORM.B_2.BACKCOLOR(0,0,0)
….
THISFORM.B_19.BACKCOLOR(0,0,0)
THISFORM.B_20.BACKCOLOR(0,0,0)
Que sea:
FOR y = 1 TO 20
THISFORM.B_ y .BACKCOLOR(0,0,255)
ENDFOR
Desde ya muchas Gracias por vuestra atención.
Norberto Alvarez
Socio # 1892
--------------------------------------------------------------------------------
Se certificó que el correo no contiene virus.
Comprobada por AVG - www.avg.es
Versión: 10.0.1432 / Base de datos de virus: 4031/7841 - Fecha de la versión:
07/10/2014
