Aug 22
Buscando formularios abiertos utilizando la colección _Screen.Forms
Visual Fox Pro, Trucos Agregar ComentariosEn muchas ocasiones queremos determinar si un determinado formulario ya se encuentra ejecutado; en este ejemplo utilizamos la colección _Screen.Forms para averiguarlo.
En este ejemplo buscamos el formulario por el titulo y si lo encontramos le cambiamos el titulo
cCaption = "Titulo del Formulario"
oForm = BuscarForm(cCaption)
If Isnull(oForm)
=MessageBox("Formulario no ejecutado")
Else
oForm.Caption= "Nuevo Titulo"
EndIf
Procedure BuscarForm(cCaption As String)As Object
oFormRet = Null
If _Screen.FormCount> 0
For i = 1
To _Screen.FormCount
If Upper(_Screen.Forms[i].Caption) = Upper(cCaption)
oFormRet = _Screen.Forms[i]
Exit
EndIf
EndFor
EndIf
Return oFormRet
EndProc
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
