como crear un formulario con controles label y textbox por program

Creo que un ejemplo será mas gráfico:

PUBLIC goForm
goForm = CREATEOBJECT("MiForm")
goForm.SHOW

DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
NAME = "MiForm"
CAPTION = "Ejemplo"

ADD OBJECT MiLabel AS LABEL WITH ;
LEFT = 10, TOP = 10, AUTOSIZE = .T., ;
NAME = "MiLabel", CAPTION = "Código:"

ADD OBJECT MiText AS TEXTBOX WITH ;
LEFT = 60, TOP = 10, HEIGHT = 25, WIDTH = 100, ;
NAME = "MiText", VALUE = 0
ENDDEFINE


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

"Jesus Moreno" escribió en el
mensaje news:

como puedo crear un formulario por medio de un programa y dentro del
formulario insertar controles label y textbox, las posiciones de los label

y

los textbox son variables dependiendo de una planilla previamente

definida.

De antemano gracias por su ayuda.

ya estuve viendo algunos ejemplos en las paginas de portalfox ya entendi como
hacerlo, el problema es como mencione en principio como puedo poner una serie
de controles label y textbox de forma variable, digamos un ciclo donde se
pongan "n" cantidad de controles y en diferentes posiciones tambien de manera
variable, yo las posiciones y cantidad de controles los tengo en una tabla
guardados, anteriormente yo lo hacia con una serie de "Say" y "Get" para
armar la ventana, espero que me explique y me puedan ayudar.

Gracias.

"Luis María Guayán" wrote:

Creo que un ejemplo será mas gráfico:

PUBLIC goForm
goForm = CREATEOBJECT("MiForm")
goForm.SHOW

DEFINE CLASS MiForm AS FORM
AUTOCENTER = .T.
NAME = "MiForm"
CAPTION = "Ejemplo"

ADD OBJECT MiLabel AS LABEL WITH ;
LEFT = 10, TOP = 10, AUTOSIZE = .T., ;
NAME = "MiLabel", CAPTION = "Código:"

ADD OBJECT MiText AS TEXTBOX WITH ;
LEFT = 60, TOP = 10, HEIGHT = 25, WIDTH = 100, ;
NAME = "MiText", VALUE = 0
ENDDEFINE


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

"Jesus Moreno" escribió en el
mensaje news:
> como puedo crear un formulario por medio de un programa y dentro del
> formulario insertar controles label y textbox, las posiciones de los label
y
> los textbox son variables dependiendo de una planilla previamente
definida.
>
> De antemano gracias por su ayuda.

Un Formulario de ejemplo para ello:

PUBLIC goForm
goForm = CREATEOBJECT("Form")
FOR ln = 1 TO 10
goForm.ADDOBJECT("Label"+TRANSFORM(ln),"Label")
goForm.ADDOBJECT("Text"+TRANSFORM(ln),"TextBox")
WITH EVALUATE("goForm.Label"+TRANSFORM(ln))
.CAPTION = "Label "+TRANSFORM(ln)
.TOP = 20 * ln
.LEFT = 10
.AUTOSIZE = .T.
.VISIBLE = .T.
ENDWITH
WITH EVALUATE("goForm.Text"+TRANSFORM(ln))
.TOP = 20 * ln
.LEFT = 100
.VISIBLE = .T.
ENDWITH
ENDFOR
goForm.SHOW(1)


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

"Jesus Moreno" escribió en el
mensaje news:

ya estuve viendo algunos ejemplos en las paginas de portalfox ya entendi

como

hacerlo, el problema es como mencione en principio como puedo poner una

serie

de controles label y textbox de forma variable, digamos un ciclo donde se
pongan "n" cantidad de controles y en diferentes posiciones tambien de

manera

variable, yo las posiciones y cantidad de controles los tengo en una tabla
guardados, anteriormente yo lo hacia con una serie de "Say" y "Get" para
armar la ventana, espero que me explique y me puedan ayudar.

Gracias.

"Luis María Guayán" wrote:

> Creo que un ejemplo será mas gráfico:
>
> PUBLIC goForm
> goForm = CREATEOBJECT("MiForm")
> goForm.SHOW
>
> DEFINE CLASS MiForm AS FORM
> AUTOCENTER = .T.
> NAME = "MiForm"
> CAPTION = "Ejemplo"
>
> ADD OBJECT MiLabel AS LABEL WITH ;
> LEFT = 10, TOP = 10, AUTOSIZE = .T., ;
> NAME = "MiLabel", CAPTION = "Código:"
>
> ADD OBJECT MiText AS TEXTBOX WITH ;
> LEFT = 60, TOP = 10, HEIGHT = 25, WIDTH = 100, ;
> NAME = "MiText", VALUE = 0
> ENDDEFINE
>
>
> 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
>
> "Jesus Moreno" escribió en el
> mensaje news:
> > como puedo crear un formulario por medio de un programa y dentro del
> > formulario insertar controles label y textbox, las posiciones de los

label

> y
> > los textbox son variables dependiendo de una planilla previamente
> definida.
> >
> > De antemano gracias por su ayuda.
>
>
>

perfectisimo, es justo lo que necesitaba, eres muy amable te lo agradesco
mucho.

Saludos.

"Luis María Guayán" wrote:

Un Formulario de ejemplo para ello:

PUBLIC goForm
goForm = CREATEOBJECT("Form")
FOR ln = 1 TO 10
goForm.ADDOBJECT("Label"+TRANSFORM(ln),"Label")
goForm.ADDOBJECT("Text"+TRANSFORM(ln),"TextBox")
WITH EVALUATE("goForm.Label"+TRANSFORM(ln))
.CAPTION = "Label "+TRANSFORM(ln)
.TOP = 20 * ln
.LEFT = 10
.AUTOSIZE = .T.
.VISIBLE = .T.
ENDWITH
WITH EVALUATE("goForm.Text"+TRANSFORM(ln))
.TOP = 20 * ln
.LEFT = 100
.VISIBLE = .T.
ENDWITH
ENDFOR
goForm.SHOW(1)


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

"Jesus Moreno" escribió en el
mensaje news:
> ya estuve viendo algunos ejemplos en las paginas de portalfox ya entendi
como
> hacerlo, el problema es como mencione en principio como puedo poner una
serie
> de controles label y textbox de forma variable, digamos un ciclo donde se
> pongan "n" cantidad de controles y en diferentes posiciones tambien de
manera
> variable, yo las posiciones y cantidad de controles los tengo en una tabla
> guardados, anteriormente yo lo hacia con una serie de "Say" y "Get" para
> armar la ventana, espero que me explique y me puedan ayudar.
>
> Gracias.
>
> "Luis María Guayán" wrote:
>
> > Creo que un ejemplo será mas gráfico:
> >
> > PUBLIC goForm
> > goForm = CREATEOBJECT("MiForm")
> > goForm.SHOW
> >
> > DEFINE CLASS MiForm AS FORM
> > AUTOCENTER = .T.
> > NAME = "MiForm"
> > CAPTION = "Ejemplo"
> >
> > ADD OBJECT MiLabel AS LABEL WITH ;
> > LEFT = 10, TOP = 10, AUTOSIZE = .T., ;
> > NAME = "MiLabel", CAPTION = "Código:"
> >
> > ADD OBJECT MiText AS TEXTBOX WITH ;
> > LEFT = 60, TOP = 10, HEIGHT = 25, WIDTH = 100, ;
> > NAME = "MiText", VALUE = 0
> > ENDDEFINE
> >
> >
> > 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
> >
> > "Jesus Moreno" escribió en el
> > mensaje news:
> > > como puedo crear un formulario por medio de un programa y dentro del
> > > formulario insertar controles label y textbox, las posiciones de los
label
> > y
> > > los textbox son variables dependiendo de una planilla previamente
> > definida.
> > >
> > > De antemano gracias por su ayuda.
> >
> >
> >

Que tal amigos :
Me parece muy bueno el ejemplo del experimentado colega Luis Maria
ahora bien aqui mi consulta tomando la idea creada. Es posible enlazar
el formulario creado con datos de una Tabla de ser asi como seria el
ejemplo. Para mi esto es algo nuevo de crear formularios por codigo.

Cuando programaba en Foxpro para D.O.S. 2.6. por ejemplo para
presentaciones preliminares de Facturas utilizaba el practico SET
FORMAT TO y dentro de el el @ SAY. enlazado a datos de una o mas tablas
y funcionaba bien y daba una presentacion casi identica a la impresion.

Bueno amigos espero sus comentarios.

Saludos,
GABRIEL

Jesus Moreno ha escrito:

perfectisimo, es justo lo que necesitaba, eres muy amable te lo agradesco
mucho.

Saludos.

"Luis María Guayán" wrote:

> Un Formulario de ejemplo para ello:
>
> PUBLIC goForm
> goForm = CREATEOBJECT("Form")
> FOR ln = 1 TO 10
> goForm.ADDOBJECT("Label"+TRANSFORM(ln),"Label")
> goForm.ADDOBJECT("Text"+TRANSFORM(ln),"TextBox")
> WITH EVALUATE("goForm.Label"+TRANSFORM(ln))
> .CAPTION = "Label "+TRANSFORM(ln)
> .TOP = 20 * ln
> .LEFT = 10
> .AUTOSIZE = .T.
> .VISIBLE = .T.
> ENDWITH
> WITH EVALUATE("goForm.Text"+TRANSFORM(ln))
> .TOP = 20 * ln
> .LEFT = 100
> .VISIBLE = .T.
> ENDWITH
> ENDFOR
> goForm.SHOW(1)
>
>
> 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
>
> "Jesus Moreno" escribió en el
> mensaje news:
> > ya estuve viendo algunos ejemplos en las paginas de portalfox ya entendi
> como
> > hacerlo, el problema es como mencione en principio como puedo poner una
> serie
> > de controles label y textbox de forma variable, digamos un ciclo donde se
> > pongan "n" cantidad de controles y en diferentes posiciones tambien de
> manera
> > variable, yo las posiciones y cantidad de controles los tengo en una tabla
> > guardados, anteriormente yo lo hacia con una serie de "Say" y "Get" para
> > armar la ventana, espero que me explique y me puedan ayudar.
> >
> > Gracias.
> >
> > "Luis María Guayán" wrote:
> >
> > > Creo que un ejemplo será mas gráfico:
> > >
> > > PUBLIC goForm
> > > goForm = CREATEOBJECT("MiForm")
> > > goForm.SHOW
> > >
> > > DEFINE CLASS MiForm AS FORM
> > > AUTOCENTER = .T.
> > > NAME = "MiForm"
> > > CAPTION = "Ejemplo"
> > >
> > > ADD OBJECT MiLabel AS LABEL WITH ;
> > > LEFT = 10, TOP = 10, AUTOSIZE = .T., ;
> > > NAME = "MiLabel", CAPTION = "Código:"
> > >
> > > ADD OBJECT MiText AS TEXTBOX WITH ;
> > > LEFT = 60, TOP = 10, HEIGHT = 25, WIDTH = 100, ;
> > > NAME = "MiText", VALUE = 0
> > > ENDDEFINE
> > >
> > >
> > > 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
> > >
> > > "Jesus Moreno" escribió en el
> > > mensaje news:
> > > > como puedo crear un formulario por medio de un programa y dentro del
> > > > formulario insertar controles label y textbox, las posiciones de los
> label
> > > y
> > > > los textbox son variables dependiendo de una planilla previamente
> > > definida.
> > > >
> > > > De antemano gracias por su ayuda.
> > >
> > >
> > >
>
>
>