Recorrer controles
Publicado por davis (79 intervenciones) el 18/06/2007 23:54:30
Buenas tardes atodos ,
tengo el sguiente scrip para recorrer todos los controles q hay en mi ventana
pero no se como modificar una propiedad del control una vez q ya lo encontre
por ejemplo modificar el color si es un statictext
object winobjecttype[]
long ll_count
FOR ll_count = 1 to UpperBound(Control[])
winobjecttype[ll_count] = TypeOf(Control[ll_count])
choose Case winobjecttype[ll_count]
Case SingleLineEdit!
Case DataWindow!
Case statictext!
// Control[ll_count].textcolor = rgb (25,250,200)
messagebox ("encontre static text",string (ll_count))
End choose
NEXT
//st_1.textcolor = rgb (0,0,0)
Espero me puedan ayudar
tengo el sguiente scrip para recorrer todos los controles q hay en mi ventana
pero no se como modificar una propiedad del control una vez q ya lo encontre
por ejemplo modificar el color si es un statictext
object winobjecttype[]
long ll_count
FOR ll_count = 1 to UpperBound(Control[])
winobjecttype[ll_count] = TypeOf(Control[ll_count])
choose Case winobjecttype[ll_count]
Case SingleLineEdit!
Case DataWindow!
Case statictext!
// Control[ll_count].textcolor = rgb (25,250,200)
messagebox ("encontre static text",string (ll_count))
End choose
NEXT
//st_1.textcolor = rgb (0,0,0)
Espero me puedan ayudar
Valora esta pregunta


0