隐藏vfp的主窗口.txt

Vfp 文档 一些经典编程文章 可供初学者学习编程时使用

隐藏Visual FoxPro的主窗口 
  
蒋清野 

（清华大学土木工程系） 

在Visual FoxPro程序设计中，经常令程序员大感头疼的就是Visual FoxPro的主窗口。事实上，很多应用程序需要使用自己设计的主窗口代替Visual FoxPro的主窗口。在Visual FoxPro的帮助文件中指出，内存变量_Screen（也就是主窗口对象）具有Hide方法和Visual属性，因此我们希望能够使用_Screen.Hide或者是_Screen.Visible=.F.语句来隐藏Visual FoxPro的主窗口。但是事实证明，这两个语句都没有能够达到我们的目的。 

这种情况是由于Visual FoxPro的一个设计缺陷造成的。当一个表单或者是一个表单集被隐藏起来时，上一个被激活的对象将被重新激活，如果已经没有其他事先被激活的对象，Visual FoxPro的主窗口将被激活。如果_Screen.Hide或者是_Screen.Visible=.F.语句能够生效的话，那么在当前的Visual FoxPro应用程序中将没有任何被激活的对象。因此，主窗口对象_Screen的Hide方法和Visual属性实际上是无效的。 

值得庆幸的是，主窗口对象_Screen还具有Top和Left等其他属性。虽然我们不能够真正的清除主窗口对象，但是可以调整主窗口在屏幕上的位置。如果我们把Visual FoxPro的主窗口搬到屏幕以外，是不是可以获得我们所需要的效果呢？以下的这段程序就是根据这个思路编写的，它不但很好地将Visual FoxPro的主窗口隐藏了起来，还可以在需要的时候把它重新找回来。 
 

* 创建窗口HideDeskTop 

frmHideDesktop = CREATEOBJECT("HideDeskTop") 

frmHideDesktop.SHOW(1) 

　 

* 定义窗口HideDeskTop 

DEFINE CLASS HideDeskTop AS FORM 

TOP = 17 

LEFT = 24 

DESKTOP = .T. 

CAPTION = "隐藏Visual FoxPro主窗口的示例程序" 

MDIFORM = .T. 

oleft = .F. && 变量oleft存储Visual FoxPro主窗口的左位置 

　 

* 在窗口HideDeskTop添加按钮HideShow 

ADD OBJECT cmdHideShow AS HideShow WITH ; 

TOP = 156, ; 

LEFT = 175, ; 

HEIGHT = 29, ; 

WIDTH = 150, ; 

CAPTION = "隐藏主窗口", ; 

NAME = "Command2" 

　 

* 在窗口HideDeskTop添加按钮CloseButton 

ADD OBJECT cmdClose AS CloseButton WITH ; 

TOP = 196, ; 

LEFT = 175, ; 

HEIGHT = 29, ; 

WIDTH = 150, ; 

CAPTION = "关闭本程序", ; 

NAME = "cmdClose" 

　 

ENDDEFINE 

　 

* 定义按钮HideShow 

DEFINE CLASS HideShow AS COMMANDBUTTON 

　 

PROCEDURE CLICK 

IF THIS.CAPTION = "隐藏主窗口" 

THIS.CAPTION = "显示主窗口" 

* 存储Visual FoxPro主窗口的左位置 

THISFORM.oleft = _SCREEN.LEFT 

* 将Visual FoxPro主窗口移到屏幕以外 

_SCREEN.LEFT = -10000 

ELSE 

THIS.CAPTION = "隐藏主窗口" 

* 将Visual FoxPro主窗口恢复到原来的位置 

_SCREEN.LEFT = THISFORM.oleft 

ENDIF 

ENDPROC 

ENDDEFINE 

　 

* 定义按钮CloseButton 

DEFINE CLASS CloseButton AS COMMANDBUTTON 

PROCEDURE CLICK 

* 将Visual FoxPro主窗口恢复到原来的位置 

_SCREEN.LEFT = THISFORM.oleft 

* 释放窗口HideDeskTop 

THISFORM.RELEASE 

ENDPROC 

ENDDEFINE