ayuda con fondo
Publicado por mark (18 intervenciones) el 06/11/2004 20:50:23
como agrego una foto de fondo a este formulario , gracias desde ya
frmMyForm = CREATEOBJECT('Form') && Crea un formulario
***********************************************
frmMyForm.CurrentX = 0
frmMyForm.CurrentY = 0
Desktop = .f.
frmMyForm.WindowState = 2
***********************************************
frmMyForm.Closable = .f.
frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')
frmMyForm.AddObject('cmdCommand2','cmdMyCmdBtn1')
frmMyForm.AddObject('cmdCommand3','cmdMyCmdBtn2')
frmMyForm.AddObject('cmdCommand4','cmdMyCmdBtn3')
frmMyForm.AddObject('cmdCommand5','cmdMyCmdBtn4')
frmMyForm.AddObject('cmdCommand6','cmdMyCmdBtn5')
frmMyForm.AddObject('cmdCommand7','cmdMyCmdBtn6')
frmMyForm.AddObject('cmdCommand8','cmdMyCmdBtn7')
frmMyForm.AddObject('cmdCommand9','cmdMyCmdBtn8')
frmMyForm.AddObject('cmdCommand10','cmdMyCmdBtn9')
frmMyForm.AddObject('cmdCommand11','cmdMyCmdBtn10')
frmMyForm.cmdCommand11.Visible =.T.
frmMyForm.cmdCommand10.Visible =.T.
frmMyForm.cmdCommand9.Visible =.T.
frmMyForm.cmdCommand8.Visible =.T.
frmMyForm.cmdCommand7.Visible =.T.
frmMyForm.cmdCommand6.Visible =.T.
frmMyForm.cmdCommand5.Visible =.T.
frmMyForm.cmdCommand4.Visible =.T.
frmMyForm.cmdCommand3.Visible =.T.
frmMyForm.cmdCommand2.Visible =.T.
frmMyForm.cmdCommand1.Visible =.T.
frmMyForm.SHOW
frmMyForm = CREATEOBJECT('Form') && Crea un formulario
***********************************************
frmMyForm.CurrentX = 0
frmMyForm.CurrentY = 0
Desktop = .f.
frmMyForm.WindowState = 2
***********************************************
frmMyForm.Closable = .f.
frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')
frmMyForm.AddObject('cmdCommand2','cmdMyCmdBtn1')
frmMyForm.AddObject('cmdCommand3','cmdMyCmdBtn2')
frmMyForm.AddObject('cmdCommand4','cmdMyCmdBtn3')
frmMyForm.AddObject('cmdCommand5','cmdMyCmdBtn4')
frmMyForm.AddObject('cmdCommand6','cmdMyCmdBtn5')
frmMyForm.AddObject('cmdCommand7','cmdMyCmdBtn6')
frmMyForm.AddObject('cmdCommand8','cmdMyCmdBtn7')
frmMyForm.AddObject('cmdCommand9','cmdMyCmdBtn8')
frmMyForm.AddObject('cmdCommand10','cmdMyCmdBtn9')
frmMyForm.AddObject('cmdCommand11','cmdMyCmdBtn10')
frmMyForm.cmdCommand11.Visible =.T.
frmMyForm.cmdCommand10.Visible =.T.
frmMyForm.cmdCommand9.Visible =.T.
frmMyForm.cmdCommand8.Visible =.T.
frmMyForm.cmdCommand7.Visible =.T.
frmMyForm.cmdCommand6.Visible =.T.
frmMyForm.cmdCommand5.Visible =.T.
frmMyForm.cmdCommand4.Visible =.T.
frmMyForm.cmdCommand3.Visible =.T.
frmMyForm.cmdCommand2.Visible =.T.
frmMyForm.cmdCommand1.Visible =.T.
frmMyForm.SHOW
Valora esta pregunta


0