FoxPro/Visual FoxPro - Como añadir controles a un formulario desde codigo

   
Vista:

Como añadir controles a un formulario desde codigo

Publicado por Juan (230 intervenciones) el 27/05/2009 11:29:56
Hola a tod@s, necesito saber como crear un formulario desde codigo y poder añadirle controles desde codigo, no son controles fijos, dependerá del parametro que le pase.

Ejemplo si le paso como paremetro un 2, me tiene que crear 2 label y 2 text, si le paso 5 me tiene que crear 5 label y 5 text.

Necesito ayuda para hacer esto.

Saludos
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:Como añadir controles a un formulario desde cod

Publicado por es_binario (757 intervenciones) el 27/05/2009 17:22:54
Estudia Crete form

luego add object

y para las cantidades utiliza for each y lparameters

este ejemplo esta en la ayuda de foxpro

DEFINE CLASS EasyForm AS FORM
* Here's a pretty basic form that auto-centers, has a Close
* button and lets you pass it a background color and a window
* caption.

AutoCenter = .T.

ADD OBJECT cmdClose AS CloseButton

PROCEDURE Init(nBackColor, cCaption)

IF TYPE("nBackColor") = "N"
This.BackColor = nBackColor
ENDIF

IF TYPE("cCaption") = "C"
This.Caption = cCaption
ENDIF

This.cmdClose.Left = (This.Width - This.cmdClose.Width) /2
This.cmdClose.Top = This.Height - This.cmdClose.Height ;
- 10
ENDPROC
ENDDEFINE

DEFINE CLASS PassForm AS EasyForm
* This is a subclass of our basic form above. It insists on
* being passed a built-in password or you can't create it. Not
* exactly user-friendly, is it?

PROTECTED cPassWord
cPassWord = "Yowza!"

PROCEDURE Init(nBackColor, cCaption, cPass)

IF TYPE("cPass") = "C" AND cPass = This.cPassWord
DoDefault(nBackColor, cCaption)
ELSE
RETURN .F.
ENDIF
ENDPROC

ENDDEFINE

DEFINE CLASS CloseButton AS CommandButton
* Standard Close button. Caption is "Close" and it releases the
* form when clicked.

Name = "cmdClose"
Caption = "Close"
Height = 40
Width = 60

PROCEDURE Click

ThisForm.Release()
ENDPROC

ENDDEFINE
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