Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何在更新后显示更新日志窗口


  共有3050人关注过本帖树形打印复制链接

主题：[求助]如何在更新后显示更新日志窗口
帅哥哟，离线，有人找我吗？
13865161910
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：396 积分：3297 威望：0 精华：0 注册：2014/12/13 14:35:00 		[求助]如何在更新后显示更新日志窗口  发帖心情 Post By：2015/11/4 11:13:00 [显示全部帖子]

请教，想设计一个更新日志窗口，在项目启动的时候判定是否有更新，无更新，正常打开下一步窗口，已解决
有更新，在更新完毕后，会需要重新启动项目，再次启动程序，这时候能打开设计好的更新日志窗口，且只在第一次打开后提示，该如何实现？

看到有人提到用SaveConfigValue和GetConfigValue来实现，请教代码如何实现？



[此贴子已经被作者于2015/11/4 11:15:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
13865161910
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：396 积分：3297 威望：0 精华：0 注册：2014/12/13 14:35:00 		回复：（大红袍）发布的前，执行SaveConfigValue("打...  发帖心情 Post By：2015/11/4 11:32:00 [显示全部帖子]

发布的前，执行没弄明白是什么意思，发布前如何执行？是手动执行保存吗？这两段代码要写在何处呢？
[此贴子已经被作者于2015/11/4 11:32:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
13865161910
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：396 积分：3297 威望：0 精华：0 注册：2014/12/13 14:35:00 		回复：（大红袍）1、发布前前手动运行代码；?...  发帖心情 Post By：2015/11/4 12:37:00 [显示全部帖子]

1、必须要在发布前手动执行改代码吗？有什么别的思路 可以通过自动的方式实现呢？
2、是否需要将count的值保存到注册表中？仅仅是在本地程序发布前，进行手动运行保存次数即可吗？如何保证用户所更新的*.zip 文件包中，也会直接将打开次数重置为0，从而判断是否显示更新窗口
3、由于设计的登录窗口中的文本框，是通过读取本地txt文件内容，来显示的，是不是我在编辑好此txt文本内容后，可将其直接放在project文件夹中，然后一起发布，不用另外设置下载到某个路径
[此贴子已经被作者于2015/11/4 14:03:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
13865161910
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：396 积分：3297 威望：0 精华：0 注册：2014/12/13 14:35:00 		回复：（大红袍）把txt文件放到project文件夹下，命名...  发帖心情 Post By：2015/11/4 14:59:00 [显示全部帖子]

这样写不知是否正确，代码写在afteropenproject中
 Dim Count1 = GetConfigValue("打开次数", 0)
 If count1 = 0 Then
         If FileSys.FileExists(projectPath & "Prompt update\更新.txt", ) Then '如果文件“更新.txt”存在
             Forms("更新").Show '显示更新日志
         End If
     SaveConfigValue("打开次数", 1)
 End If
然后再更新窗口的确认或关闭按钮设置代码：
FileSys.RenameFile(projectPath & "Prompt update\更新.txt", "更新-已读.txt")

e.Form.Close


不知此方法可对？另外有个疑问，当更新日志已读后，项目再次更新，当第二次阅读此更新文档后，重命名是否会出现文件已存在的情况，从而出错，还是直接重命名覆盖保存？


是否要在窗口的按钮代码做个判断，如判断已读文件是否存在，如存在删除，然后在对目录下的更新.txt进行重命名操作？

[此贴子已经被作者于2015/11/4 15:00:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
13865161910
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：396 积分：3297 威望：0 精华：0 注册：2014/12/13 14:35:00 		回复：（大红袍）重命名或者删除，都可以的。你喜欢。...  发帖心情 Post By：2015/11/5 11:00:00 [显示全部帖子]

If FileSys.FileExists(projectPath & "Prompt update\更新.txt", ) Then '如果文件“更新.txt”存在
      Forms("更新").Show '显示更新日志
End If

代码中的路径如果使用系统变量，相对路径读取，提示我

此主题相关图片如下：qq截图20151105110006.jpg
按此在新窗口浏览图片

如何直接将路径改为
If FileSys.FileExists(projectPath & "更新.txt", ) Then '如果文件“更新.txt”存在
      Forms("更新").Show '显示更新日志
End If
又会提示找不到project路径下的文件

[此贴子已经被作者于2015/11/5 11:01:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
13865161910
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：396 积分：3297 威望：0 精华：0 注册：2014/12/13 14:35:00 		回复：（大红袍）If FileSys.FileExists(projectPath ...  发帖心情 Post By：2015/11/5 11:07:00 [显示全部帖子]

对，就是编辑的这个，我刚刚双引号标错位置了，您看截图的图片上提示的内容


额，问题解决了，多了个逗号图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
[此贴子已经被作者于2015/11/5 11:08:18编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 5 次数据查询