隐藏与显示VFP主窗口的控制
我想刚开时就只有一个验证窗口，
然后验证，正确后，
就进入VFP自带的主窗口
登录窗口代码如下：
Try
Use admin In 0
Select admin
Catch
Select admin
Finally
gh=Alltrim(Thisform.txtgh.Value)
mm=Alltrim(Thisform.txtmm.Value)
Locate All For gh==Alltrim(admin.工号)
If Found() Then
Messagebox( "登录成功 ",0+64, '信息提示 ')
***DO FORM zxyy
Thisform.Release
***_Screen=On&&&隐藏VFP窗口
Else
Messagebox( "你的输入有误，请重新输入！ ",0+16, '信息提示 ')
thisform.txtgh.Value = " "
thisform.txtmm.Value = " "
Endif
Endtry
请问怎么样才可以有控制VFP自已的主窗口啊。
[解决办法]
_SCREEN.VISIBLE=.F.
DO FORM 登录窗口
READ EVENTS
_SCREEN.VISIBLE=.T.
运行你的菜单和主表单
如果登录成功，CLEAR EVENTS
如果登录失败，QUIT
[解决办法]
_SCREEN.VISIBLE并不能仅隐藏VFP主窗口，最好的办法是注册
Declare integer FindWindow IN Win32api integer,string
Declare integer ShowWindow IN Win32api integer,Integer
来隐藏显示指定的窗口
