Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
El objeto ya existe!!!
Message
From
27/06/2002 20:46:08
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
 
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Miscellaneous
Thread ID:
00672997
Message ID:
00673138
Views:
14
No es por criticar; pero sólo quería recordarte - por si no estuvieras consciente - que hay un foro especial para VFP / Español. Lo puedes seleccionar como opción adicional en tus preferencias de usuario (Account Setup).

Saludos, Hilmar.

>Hola a todos...
>
>Tengo una pequeña clase que lo que me hace es agregarme
>un objeto label(con efecto de sombra) en la pantalla
>principal de VFP...
>
>y quiero llamar dicho programita en repetidas ocaciones
>pero luego a la segunda ves de ejecutarlo me dice :
>
> "Ya existe un objeto miembro con este nombre"
>
>esto haciendo referencia al siguiente codigo:
>_screen.AddObject('lblAreaShadow','LABEL')
>_screen.AddObject('lblArea','LABEL')
>
>
>Todo el codigo lo e puesto aqui:
>
> cArea = 'MiAreademiCompañia'
> nFontSize = 25
> nPosTop = 200
> nPosLeft = 125
> _screen.AddObject('lblAreaShadow','LABEL')
> _screen.AddObject('lblArea','LABEL')
> with _screen.lblAreaShadow
> .Visible = .T.
> .Top = (nPostop)
> .Left = (nPosLeft)
> .caption = (cArea)
> .fontsize = (nFontSize)
> .autosize = .t.
> .forecolor = 12632256
> .backstyle = 0
> endwith
> with _screen.lblArea
> .Visible = .T.
> .Top = (nPostop)+6
> .Left = (nPosLeft)+3
> .caption = (cArea)
> .fontsize = (nFontSize)
> .autosize = .t.
> .backstyle = 0
> endwith
> return
>
>como puedo "liberar" esta definicion cada
>ves que deseo usarlo sin emplear "CLEAR ALL"
>
>gRACIAS!!!!!!
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform