Definicion de clases mediante codigo

Hola a Todos!
Soy novato en el tema de las clases y tengo un problemita:

tengo en un prg el siguiente código:
DEFINE CLASS MyForm AS Form
HEIGHT = 110
WIDTH = 220
DOCREATE = .T.
AUTOCENTER = .T.
BORDERSTYLE = 2
CAPTION = "Ingrese usuario y contraseña"
CONTROLBOX = .F.
CLOSABLE = .F.
MAXBUTTON = .F.
MINBUTTON = .F.
WINDOWTYPE = 1
ENDDEFINE

en un formulario tengo un botón el cual su evento clic posee el siguiente
código:
LO=CREATEOBJECT('Myform')
LO.SHOW()

El problema es que cuando hago clic en el botón me da el siguiente error:
"no se encuentra la definición de clase 'Myform".
Supuestamente no la definí en mi prg?
Leí la ayuda sobre clases pero evidentemente hay algo que no me quedo claro
por eso es que escribo!
Muchas Gracias

Pablo Brunet
Tucumán - Argentina

Debes especificar con SET PROCEDURE donde se encuentra la definición de tu
clase.

Ej:
SET PROCEDURE TO MisClases.prg ADDITIVE

Puedes mirar este ejemplo de PortalFox:

Enviado por: Luis María Guayán
http://www.portalfox.com/article.php?sid1

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Pablo Brunet" escribió en el mensaje
news:uCsD$
> Hola a Todos!
> Soy novato en el tema de las clases y tengo un problemita:
>
> tengo en un prg el siguiente código:
> DEFINE CLASS MyForm AS Form
> HEIGHT = 110
> WIDTH = 220
> DOCREATE = .T.
> AUTOCENTER = .T.
> BORDERSTYLE = 2
> CAPTION = "Ingrese usuario y contraseña"
> CONTROLBOX = .F.
> CLOSABLE = .F.
> MAXBUTTON = .F.
> MINBUTTON = .F.
> WINDOWTYPE = 1
> ENDDEFINE
>
> en un formulario tengo un botón el cual su evento clic posee el

> código:
> LO=CREATEOBJECT('Myform')
> LO.SHOW()
>
> El problema es que cuando hago clic en el botón me da el siguiente

> "no se encuentra la definición de clase 'Myform".
> Supuestamente no la definí en mi prg?
> Leí la ayuda sobre clases pero evidentemente hay algo que no me quedo

> por eso es que escribo!
> Muchas Gracias
>
> Pablo Brunet
> Tucumán - Argentina
>
>
>
>

Debes especificar con SET PROCEDURE donde se encuentra la definición de tu
clase.

Ej:
SET PROCEDURE TO MisClases.prg ADDITIVE

Puedes mirar este ejemplo de PortalFox:

Enviado por: Luis María Guayán
http://www.portalfox.com/article.php?sid1

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Pablo Brunet" escribió en el mensaje
news:uCsD$
> Hola a Todos!
> Soy novato en el tema de las clases y tengo un problemita:
>
> tengo en un prg el siguiente código:
> DEFINE CLASS MyForm AS Form
> HEIGHT = 110
> WIDTH = 220
> DOCREATE = .T.
> AUTOCENTER = .T.
> BORDERSTYLE = 2
> CAPTION = "Ingrese usuario y contraseña"
> CONTROLBOX = .F.
> CLOSABLE = .F.
> MAXBUTTON = .F.
> MINBUTTON = .F.
> WINDOWTYPE = 1
> ENDDEFINE
>
> en un formulario tengo un botón el cual su evento clic posee el

> código:
> LO=CREATEOBJECT('Myform')
> LO.SHOW()
>
> El problema es que cuando hago clic en el botón me da el siguiente

> "no se encuentra la definición de clase 'Myform".
> Supuestamente no la definí en mi prg?
> Leí la ayuda sobre clases pero evidentemente hay algo que no me quedo

> por eso es que escribo!
> Muchas Gracias
>
> Pablo Brunet
> Tucumán - Argentina
>
>
>
>

Si pero donde pongo en el prg?
y como lo llamo desde el clic del botón?
Gracias.

Pablo Brunet
Tucumán -Argentina
"Luis María Guayán" escribió en el mensaje
news:
> Debes especificar con SET PROCEDURE donde se encuentra la definición de

> clase.
>
> Ej:
> SET PROCEDURE TO MisClases.prg ADDITIVE
>
> Puedes mirar este ejemplo de PortalFox:
>
> Enviado por: Luis María Guayán
> http://www.portalfox.com/article.php?sid1
>
> Luis María Guayán
> Tucumán, Argentina
> ________________________________
> SysOp de www.PortalFox.com
> Microsoft Visual FoxPro MVP
> ________________________________
> La palabra imposible solo figura
> en el diccionario de los tontos
>
>
> "Pablo Brunet" escribió en el mensaje
> news:uCsD$
> > Hola a Todos!
> > Soy novato en el tema de las clases y tengo un problemita:
> >
> > tengo en un prg el siguiente código:
> > DEFINE CLASS MyForm AS Form
> > HEIGHT = 110
> > WIDTH = 220
> > DOCREATE = .T.
> > AUTOCENTER = .T.
> > BORDERSTYLE = 2
> > CAPTION = "Ingrese usuario y contraseña"
> > CONTROLBOX = .F.
> > CLOSABLE = .F.
> > MAXBUTTON = .F.
> > MINBUTTON = .F.
> > WINDOWTYPE = 1
> > ENDDEFINE
> >
> > en un formulario tengo un botón el cual su evento clic posee el
siguiente
> > código:
> > LO=CREATEOBJECT('Myform')
> > LO.SHOW()
> >
> > El problema es que cuando hago clic en el botón me da el siguiente
error:
> > "no se encuentra la definición de clase 'Myform".
> > Supuestamente no la definí en mi prg?
> > Leí la ayuda sobre clases pero evidentemente hay algo que no me quedo
claro
> > por eso es que escribo!
> > Muchas Gracias
> >
> > Pablo Brunet
> > Tucumán - Argentina
> >
> >
> >
> >
>
>

Hola Pablo:

Yo empleo esta clase LOGIN de Luis María para entrar a una aplicación con
password.

Hago la llamada en el GotFocus del formulario de presentación, para que
realice sólo la llamada a la clase LOGIN

With Thisform
If .Puselogin && Para que sólo entre la primera vez, es una propiedad
del formulario
* Login es un .prg (la clase de LuisMa) que está en la Ficha

del Administrador de Proyectos
.cmdOK.ENABLED = IIF(login(),.T.,.F.)
.cmdOK.SetFocus()
.Puselogin = .T.
Endif
EndWith

Saludos,

Ana

"Pablo Brunet" escribió en el mensaje
news:#Cuv$
> Si pero donde pongo en el prg?
> y como lo llamo desde el clic del botón?
> Gracias.
>
> Pablo Brunet
> Tucumán -Argentina
> "Luis María Guayán" escribió en el mensaje
> news:
> > Debes especificar con SET PROCEDURE donde se encuentra la definición

tu
> > clase.
> >
> > Ej:
> > SET PROCEDURE TO MisClases.prg ADDITIVE
> >
> > Puedes mirar este ejemplo de PortalFox:
> >
> > Enviado por: Luis María Guayán
> > http://www.portalfox.com/article.php?sid1
> >
> > Luis María Guayán
> > Tucumán, Argentina
> > ________________________________
> > SysOp de www.PortalFox.com
> > Microsoft Visual FoxPro MVP
> > ________________________________
> > La palabra imposible solo figura
> > en el diccionario de los tontos
> >
> >
> > "Pablo Brunet" escribió en el mensaje
> > news:uCsD$
> > > Hola a Todos!
> > > Soy novato en el tema de las clases y tengo un problemita:
> > >
> > > tengo en un prg el siguiente código:
> > > DEFINE CLASS MyForm AS Form
> > > HEIGHT = 110
> > > WIDTH = 220
> > > DOCREATE = .T.
> > > AUTOCENTER = .T.
> > > BORDERSTYLE = 2
> > > CAPTION = "Ingrese usuario y contraseña"
> > > CONTROLBOX = .F.
> > > CLOSABLE = .F.
> > > MAXBUTTON = .F.
> > > MINBUTTON = .F.
> > > WINDOWTYPE = 1
> > > ENDDEFINE
> > >
> > > en un formulario tengo un botón el cual su evento clic posee el
> siguiente
> > > código:
> > > LO=CREATEOBJECT('Myform')
> > > LO.SHOW()
> > >
> > > El problema es que cuando hago clic en el botón me da el siguiente
> error:
> > > "no se encuentra la definición de clase 'Myform".
> > > Supuestamente no la definí en mi prg?
> > > Leí la ayuda sobre clases pero evidentemente hay algo que no me

> claro
> > > por eso es que escribo!
> > > Muchas Gracias
> > >
> > > Pablo Brunet
> > > Tucumán - Argentina
> > >
> > >
> > >
> > >
> >
> >
>
>