Pasar Parametros

On Tue, 14 Sep 2004 05:30:12 -0700, "Gustavo Molina"
wrote:

Hola, como llamo a una clase insertada en u formulario y pasarle unos
parametros.

este es un ejemplo que vi pero esta en un .prg yo puse la clase en un
formulario pero no se como pasarle los parametros y llamarla.

**prueba.prg
set classlib to clases additive
m.arbol = createobject("arbol", "ramas.dbf", "codigo", "padre", "nombre")
m.arbol.show()
***

De la misma manera pero no necesitas SET CLASSLIB (que te establece
el PATH de búsqueda) sno que te refieres a la clase con THISFORM (que
es el contenedor donde está).

ThisForm.MiClase("1","2","3")


Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)

Los pasas y se capturan en el evento Init como LPARAMETERS. Después, a fin
de encapsular los atributos de la clase, llamas a los correspondientes
"setters" y asignas los parámetros a atributos de tipo private o hidden de
la clase. Así es como se ha de hacer en POO. Todo lo otro son chapuzas,
creo Un atributo de una clase nunca ha de ser publico y solo se ha de
poder modificar y obtener su valor por la interface de la clase, es decir,
por métodos getters y setters.

"Gustavo Molina" escribió en el mensaje
news:

Hola, como llamo a una clase insertada en u formulario y pasarle unos
parametros.

este es un ejemplo que vi pero esta en un .prg yo puse la clase en un
formulario pero no se como pasarle los parametros y llamarla.

**prueba.prg
set classlib to clases additive
m.arbol = createobject("arbol", "ramas.dbf", "codigo", "padre", "nombre")
m.arbol.show()
***



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway