FoxPro/Visual FoxPro - Cambiar Caption

 
Vista:

Cambiar Caption

Publicado por Jose (31 intervenciones) el 01/04/2008 14:56:01
Hola, tengo que cambiar el caption de 50 textbox y no tiene sentido estar poniendo:
thisform.text1.caption="xxx"
thisform.text2.caption="xxx"
thisform.text3.caption="xxx"
...
thisform.text50.caption="xxx"

Alguien sabe si existe otra manera usando un "FOR" ya que no me doy cuenta la manera de asignarle el nro

Muchisimas gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cambiar Caption

Publicado por Lanor (19 intervenciones) el 01/04/2008 15:27:54
Hola Amigo

Hasta donde yo se un Text no tiene propiedad caption pero si se trata de dar un valor a varias casillas de texto deberias usar el metodo Setall()

Thisform.SetAll("value",3,"textbox")

Espero sea lo que estas buscando

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cambiar Caption

Publicado por Jose (31 intervenciones) el 01/04/2008 15:40:23
Hola, quise poner "Label", perdon. Lo puse resolver de la siguiente manera por si a alguien le sirve:

DIMENSION arreglo[total]
FOR cant=1 TO (total)
nombre="label"+ALLTRIM(STR(cant,5))
arreglo[cant]= nombre
ENDFOR

FOR cant=1 TO (total)
xnombre="thisform."+arreglo[cant]
&xnombre..Caption="xxx"
ENDFOR

Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 4
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

RE:Cambiar Caption

Publicado por kong (682 intervenciones) el 01/04/2008 19:01:59
cheka esto:

FOR a=1 TO 20
xxocupado="thisform.tocupado"+ALLTRIM(STR(a))
DO CASE
CASE tabMesas.ocupado=1
WITH &xxocupado
.backcolor = RGB(0,255,64) &&Si esta ocupado y abierto la mesa, Verde
ENDWITH
CASE tabMesas.ocupado=2
WITH &xxocupado
.BackColor= RGB(255,0,255) && si esta pasada la cuenta y esta por cobrar, Rosado
ENDWITH
CASE tabMesas.ocupado=0
WITH &xxocupado
.BackColor= RGB(205,205,205) && si no esta ocupado y esta libre, Gris
ENDWITH
* WITH &xxocupado
* .resettodefault(backcolor) && Tal vez esta forma es mejor
* ENDWITH
ENDCASE
SKIP
ENDFOR

....................
Yo tengo estas lineas en mi programa.
Espero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar