Noberto, Para escribir tu algoritmo hice algo similar cree 13 botones... 12 se denonimaban Comandonn y uno lo llame cmdProceso...
CmdProceso tiene el algoritmo que necesitas... que lo hice un poquito mas complicado... Local loBoton,lnCmd FOR lnCmd=1 TO Thisform.ControlCount IF LEFT(Thisform.Controls(lnCmd).Name,7)="Comando" loBoton=Thisform.Controls(lnCmd) WITH loBoton .Caption=ALLTRIM(STR(lnCmd)) .ForeColor=RGB(0,0,128) .Height=30 .Width=60 ENDWITH ENDIF NEXT lnCmd loBoton=null Saludos, Pancho Córdoba Argentina El 7 de octubre de 2014, 9:33, Norberto Mario Alvarez < [email protected]> escribió: > 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* > > > > >
