VFP，主程序里写了以下代码，为什么系统提示关闭不了VFP？

clear eventsclear allset talk onset delete ondo form 表单1read events

2024-12-18 06:08:37

推荐回答（2个）

回答1：

1.系统设置
2.程序路径设置
3.打开数据库，菜单，初始登陆界面
4.非常重要的一句代码read events，否则程序一闪二过
5.例子：_screen这个是vfp主程序这个窗口，如果你用自己的表单，那么把它隐藏，否则直接用
SET TALK OFF
SET DELETED ON
SET ESCAPE OFF
SET EXCLUSIVE OFF
SET CONSOLE ON
SET DATE ANSI
SET CENTURY ON
SET SAFETY OFF
SET STATUS BAR off
SET SYSMENU OFF
SET SYSMENU TO
SET NOTIFY OFF
SET DEFAULT TO sys(5)+sys(2003)
CLEAR
CLEAR ALL
public auth,alert,nrecord
alert=0
nrecord=0
auth=0
do menus\main2.mpr
_SCREEN.CAPTION="单证处理系统"
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.PICTURE="PIC\C.JPG"
_SCREEN.LEFT=-1500
_SCREEN.TOP=0
_SCREEN.VISIBLE=.F.
OPEN DATABASE 单证
DO FORM forms\欢迎界面
READ EVENTS

回答2：

请在前面加入
on shut quit