在主程序前加代码如下即可: _Screen.AutoCenter=.t. _Screen.Caption="XXXX" _Screen.ClosAble=.t. _Screen.FontSize=10 _Screen.MaxButton=.t. _Screen.MinButton=.t. _Screen.MovAble=.t. _Screen.ControlBox=.F. _Screen.BorderStyle=3 _Screen.WindowState=2 _Screen.picture="XXX.BMP" SET MULTI ON SET EXACT ON SET ANSI ON set cent on set dele on set escape on set help on set proc to set talk off set safety off set excl OFFSET STATUS BAR ON set sysmenu to set sysmenu automatic set sysmenu to defa
在主程序中加入以下语句可以隐藏vf6的主窗口和工具条 set sysmenu save set sysmenu to _vfp.visible=.f.
*-- Releases all Visual FoxPro toolbars
*--aToolBars 为自定义属性,主要用于保存原值LOCAL iDIMENSION this.aToolBars[12,2]this.aToolBars[1,1] = "Form Designer"
this.aToolBars[2,1] = "Standard"
this.aToolBars[3,1] = "Layout"
this.aToolBars[4,1] = "Query Designer"
this.aToolBars[5,1] = "View Designer"
this.aToolBars[6,1] = "Color Palette"
this.aToolBars[7,1] = "Form Controls"
this.aToolBars[8,1] = "Database Designer"
this.aToolBars[9,1] = "Report Designer"
this.aToolBars[10,1] = "Report Controls"
this.aToolBars[11,1] = "Print Preview"
this.aToolBars[12,1] = "Command"FOR i = 1 TO ALEN(this.aToolBars, 1)
this.aToolBars[i,2] = WVISIBLE(this.aToolBars[i,1])
IF this.aToolBars[i,2]
HIDE WINDOW (this.aToolBars[i,1])
ENDIF
ENDFOR
_Screen.AutoCenter=.t.
_Screen.Caption="XXXX"
_Screen.ClosAble=.t.
_Screen.FontSize=10
_Screen.MaxButton=.t.
_Screen.MinButton=.t.
_Screen.MovAble=.t.
_Screen.ControlBox=.F.
_Screen.BorderStyle=3
_Screen.WindowState=2
_Screen.picture="XXX.BMP"
SET MULTI ON
SET EXACT ON
SET ANSI ON
set cent on
set dele on
set escape on
set help on
set proc to
set talk off
set safety off
set excl OFFSET STATUS BAR ON
set sysmenu to
set sysmenu automatic
set sysmenu to defa
set sysmenu save
set sysmenu to
_vfp.visible=.f.