FoxPro/Visual FoxPro - como hacer ejecutable un formulario de vfp

 
Vista:

como hacer ejecutable un formulario de vfp

Publicado por joel (13 intervenciones) el 01/02/2001 18:09:54
bueno, yo soy u principiante el}n lo de la programacion oriente}ada a objetos, y he logrado hacer un sistema para un video club pero tengo un inconveniente, no se hacer ejecutable mi proyecto con todas las formas contenidas en el, espero puedan contestar lo mas pronto posible
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 hacer ejecutable un formulario de vfp

Publicado por Rafael Chang (62 intervenciones) el 01/02/2001 18:59:06
Checa este codigo modificalo a tu conveniencia.
esto lo pones en un Pgr y con click derecho lo estableces como principal.

Set Default To CurDir()
Set Exclusive Off
Set Notify Off
Set Escape Off
Set Talk Off
Set Status Bar Off
Set Confirm On
Set Century On
Set Century To 19 RollOver 50
Set Date To British

Hide Menu _MSYSMENU

With _Screen
.LockScreen=.T.
.BackColor=RGB(0,0,0)
.Caption='SISTE - Sistema de Tesorería'
.BorderStyle=2
.Closable=.F.
.ControlBox=.F.
.MaxButton=.F.
.MinButton=.T.
.Movable=.F.
.Height=400
.Width=400
.MaxHeight=400
.MaxWidth=400
.AutoCenter=.T.
.Picture=CurDir()+'Source\SigIntro.jpg'
.ControlBox=.F.
.LockScreen=.F.
.TiTleBar = 0
EndWith

&& Pausa en la introduccion
=Inkey(5,'H')

With _Screen
.LockScreen=.T.
.CurrentX=0
.CurrentY=0
.BackColor=RGB(0,0,0)
.TiTleBar = 1
.BorderStyle=2
.Closable=.F.
.ControlBox=.F.
.MaxButton=.F.
.MinButton=.T.
.Movable=.F.
.MaxHeight=590
.MaxWidth=795
.Height=590
.Width=795
.Caption='SISTE- Sistema de Tesorería'
.Picture=CurDir()+'Source\BgaBack.sys'
.Icon=CurDir()+'Source\Fdez.ico'
.AutoCenter=.T.
.ControlBox=.T.
.WindowState = 2
.LockScreen=.F.
.Refresh
EndWith
set sysmenu to

Public nForm
Store 0 To nForm
Use (Sys(05)
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