程序1.prg

来自「一个异性表单的实例 在vfp中实现异性表单时可以参考」· PRG 代码 · 共 12 行

SET TALK OFF
ON SHUTDOWN do quitprg

do form 异型窗口
READ events
CLEAR EVENTS
PUBLIC jj1,jj2
jj1=.t.
jj2=.t.
QUIT