如果有主程序文件的话,请在主程序文件中写上
set sysmenu off &&在程序执行期间,当 Visual FoxPro 等待诸如 BROWSE、READ 和 MODIFY COMMAND 等命令的键盘输入时,启用 Visual FoxPro 主菜栏。
set sysmenu to &&将主菜单栏恢复为默认设置。如果对主菜单栏或它的菜单做过修改,可发出 SET SYSMENU TO DEFAULT 命令恢复。使用 SET SYSMENU SAVE 可以指定默认设置。
_screen.caption="" &&可加上你的设计的标题
do form 表单名.scx &&调用某个表单,你所需要运行的
read event &&当发出 read events 命令时,Visual FoxPro 启动事件处理。
set sysmenu on &&在程序执行期间废止 Visual FoxPro 主菜单栏。
set sysmenu to defau &&将主菜单栏恢复为默认设置。如果对主菜单栏或它的菜单做过修改,可发出 SET SYSMENU TO DEFAULT 命令恢复。使用 SET SYSMENU SAVE 可以指定默认设置。
保存后,将该主程序文件设置为主文件,试试!!
为了避免单击表单右上角的“×”关闭表单,出现软件无法退出的现象,可在表单的
QueryUnload事件中加入:
if main.runing=.t.
if 1=messagebox('确认退出系统吗?',1,'提示')
thisform.release
else
nodefaul
endif
endif
在环境设置中添加以下语句即可
_Screen.Show
并在运行菜单语句后加
read events
with _screen
visible=.f.
windowstate=2
endwith
set talk off
set escape off
set safety off
set deleted on
set date ansi
do form e:\vfp\1.scx
read events
高手给我看看!这个主程序问题在哪儿?