FoxPro/Visual FoxPro - Me pueden ayudar con un ejemplo de toolbar visual foxpro

   
Vista:
Imágen de perfil de william

Me pueden ayudar con un ejemplo de toolbar visual foxpro

Publicado por william lewiswrcm@yahoo.es (6 intervenciones) el 15/01/2013 21:01:02
buen dia, amigos.
estoy programando en visual foxpro.
he creado 2 clases toolbar.

SET STATUS OFF
SET EXCLUSIVE OFF
SET DELETED ON
SET SAFETY OFF
SET DATE TO british
SET DELETED ON
SET CENTURY on
SET PATH TO data, formas, pictures, clases, menus,prg,informes


_SCREEN.WINDOWSTATE = 2
_SCREEN.CAPTION = "WAREHOUSE MANUFACTORY SYSTEM"
_SCREEN.Icon="\sistema\pictures\ftp.ico"
_SCREEN.Closable= .F.


_SCREEN.ADDOBJECT("oImagen","Image")
WITH _Screen.oImagen
lcPicture = "\sistema\pictures\images23.jpeg" &&lcPicture = GETPICT()
.PICTURE = lcPicture
.STRETCH = 2 && 1=Mantiene las proporciones, 2=Cubre todo
*-- Solo si la imagen tiene transparencia
* .BACKSTYLE = 0 && 0=Transparente, 1=Opaca
.LEFT = 0
.TOP = 0
.WIDTH = _SCREEN.WIDTH
.HEIGHT = _SCREEN.HEIGHT
.ANCHOR = 15
.VISIBLE = .T.
ENDWITH


_SCREEN.ADDOBJECT('Image2','Image')
_SCREEN.image2.picture = '\sistema\logo8.jpeg'
_SCREEN.image2.top =(_SCREEN.HEIGHT/2)-(_SCREEN.IMAGE2.HEIGHT/2)
_SCREEN.image2.left =(_SCREEN.WIDTH/2)-(_SCREEN.IMAGE2.WIDTH/2)
_SCREEN.image2.visible = .t.


SET SYSMENU off
PUSH MENU _msysmenu
DO C:\sistema\menus\WMSMENU.MPR

SET CLASSLIB TO C:\sistema\clases\bmenu1.vcx additive
_screen.AddProperty("barra1")
_screen.barra1=CREATEOBJECT("barra1")
_screen.barra1.dock(0)
_screen.barra1.visible=.t.


READ EVENTS
*-eof



en el prg principal cargo la primera barra BARRA1.
al abrir cualquier formulario en mi menu principal necesito ocultar esta toolbar y hacer que aparezca otra toolbar (barra2), y al cerrar el formulario necesito que desaparezca barra2 y que aparezca barra1.

como hago esto?
me pueden enviar un codigo ejemplo en visual foxpro de como hacer esto?
gracias
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
Imágen de perfil de Edgar Zambrano

Me pueden ayudar con un ejemplo de toolbar visual foxpro

Publicado por Edgar Zambrano (72 intervenciones) el 21/02/2013 23:12:28
si solo la estas ocultando entonces alli tienes la respuesta vuelvela a mostrar

coloca esto en el QueryUnload del formulario

1
2
3
4
5
* presentar barra1
_screen.barra1.Visible = .t.
 
* liberar barra2 de memoria
release _screen.barra2 && esto lo haces en el caso de que crees la barra nuevamente


y en el load de cada formulario

1
2
3
4
5
* ocultar barra1
_screen.barra1.Visible = .f.
 
* aqui presentas barra 2 o la creas
...
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
Imágen de perfil de william

Me pueden ayudar con un ejemplo de toolbar visual foxpro

Publicado por william (6 intervenciones) el 22/02/2013 00:06:26
Gracias Amigo
voy a probarlo y te cuento como me fue.

Bendiciones.
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