【vfp开源代码栏目提醒】:网学会员,鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“aa.PRG”一文,供大家参考学习!
SET ESCAPE ON
ON ESCAPE DO IsExit
lTag=.T.
i=1
DO WHILE lTag
?REPLICATE("*",i) &&显示星花
IF i=20
i=1
ELSE
i=i+1
ENDIF
ENDDO
PROCEDURE IsExit
IF MESSAGEBOX("确实要退出循环吗?",4+32,"提示")=6
ON ESCAPE &&取消Esc键定义
lTag=.F.
ELSE
RETURN
ENDIF
ENDPROC