Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Crear Objetos
Message
De
24/02/2008 07:20:35
 
 
À
18/02/2008 06:02:17
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Divers
Thread ID:
01290771
Message ID:
01295837
Vues:
20
Re: Crear Objetos Thread #1290771 Message #1293393

Hola, ya pude crear los objetos, solo tenia que hacer referencia a la clase base que la contiene.
Ahora mi duda es la siguiente:

Como hago para ubicarlos bien en pantalla?

Me alimento de un cursor que tiene:
strobjeto             strprefijo StrClaseObjeto       
--------------------- ---------- -------------------- 
EdtResumen            Edt        editbox
ImgFoto               Img        image
LnkLink4              Lnk        textbox
LnkLink5              Lnk        textbox
LnkLink6              Lnk        textbox
LnkLink1              Lnk        textbox
LnkLink2              Lnk        textbox
LnkLink3              Lnk        textbox
Y construyo los objetos asi:
SELECT TmpObjetos
GO TOP 
SCAN 
	SCATTER MEMVAR 
	m.strobjeto=ALLTRIM(m.strobjeto)
	m.StrClaseObjeto=ALLTRIM(m.StrClaseObjeto)
	m.strprefijo = ALLTRIM(m.strprefijo)
	thisForm.AddObject(m.strobjeto,m.StrClaseObjeto)
	IF m.strprefijo='edt' OR m.strprefijo='Edt'
		comando = "thisform."+m.strobjeto+".width = thisform.Width"
		&comando
		comando = "thisform."+m.strobjeto+".top = thisform.top"
		&comando
		comando = "thisform."+m.strobjeto+".visible=.t."
		&comando
	ELSE 
		comando = "thisform."+m.strobjeto+".visible=.t."
		&comando
	ENDIF 
ENDSCAN 
Pero me quedan en desorden.
alguien sabe como poder distribuirlos bien?

Gracias!
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform