易语言怎么让程序第一次打开失效 打开第二次才运行正常 ?.

2025-03-04 18:05:35
推荐回答(1个)
回答1:

以下源码仅供参考
.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

编辑框1.内容 = 到文本 (读入文件 (“C:\Documents and Settings\Administrator\桌面\123.txt”))
编辑框1.内容 = 到文本 (到数值 (编辑框1.内容) + 1)
写到文件 (“C:\Documents and Settings\Administrator\桌面\123.txt”, 到字节集 (编辑框1.内容))
.如果 (到数值 (编辑框1.内容) % 2 = 1)
信息框 (“打开失效,请重新运行”, 0, )
结束 ()
.否则
信息框 (“运行正常”, 0, )