程序1.prg

一个异性表单的实例 在vfp中实现异性表单时可以参考

SET TALK OFF
ON SHUTDOWN do quitprg

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