sebastian
13 de Diciembre del 2004

Perdon por no explicarme bien.-

La idea es remplazar un objeto por otro para aorrar tipeo y lugar !!!

a = text1
a.text = "Hola"

al precionar un boton quiero que a = text2, el problema que no funciona de esta manera
como lo hago ???
gracias

damon4
13 de Diciembre del 2004

Si lo que estas queriendo decir es que a essta declarado como un objeto: dim a as Object
entonces no al igualar no te va a funcionar, para que fincione tenes que setearlo.
Te mando un ejemplo total, teniendo en cuenta que en el Form tiene un TextBox llamado text1:

Dim a as Object

Private sub Pasa()
set a = text1
end sub

P.D. Las propiedades de a son iguales a las del text box,
al setear a como el textbox este(a) agarra las mismas caracteristicas que el textbox.
Despues cambias de text1 a text2 simplemente seteandolos.

Damon.

xvisual
13 de Diciembre del 2004

te conviene un procedimiento donde le envias el objeto y el valor

sub llena_texto(ctrl as control, valor as string)
ctrl.text= valor
end sub

asi llamas al procedimiento

call llena_texto text1, text1.text

donde text1 es el nombre que le hayas puesto al objeto text y text1.text el valor que esta dentro del text1

sebastian
13 de Diciembre del 2004

Gracias , por molestarse pero lo que nesecito es alrevez.-

nesecito que el objeto sea "a" y a esta "a" le cambio de objeto cuando quiera.-

es decir:
text1.text = "hola"
si yo quisiera poner un "Hola" en un text2 nesecitaria lo siguiente:
Text2.text = "hola"
Imaginense si tendria que escribir 1000 "hola.-
La idea es escribir un solo " textX.text = "hola" e ir cambiando "X"