以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  系统自动升级  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102474)
--  作者：newsun2k
--  发布时间：2017/6/20 14:44:00
--  系统自动升级
在afteropenproject中，判断是否有了新版本，如果有提示升级。
点升级后，希望能够显示一个“系统正在升级，请稍等”的界面。
如何实现？
用了一个独立窗口，并且用上了application.doevents，结果该窗口还是没有出现。
另外，如果希望在该界面上显示一个动画，有可能吗？
--  作者：有点色
--  发布时间：2017/6/20 15:12:00
--  

 要加一段检测的代码

 

try
    Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\\update.txt" ,"" ,"" ,False, 100000, True) \'下载update.txt文件
    Dim ud() As String = FileSys.ReadAllText("d:\\update.txt").Split("|") \'获取文件内容
    Dim Sdate1 As Date = Cdate(ud(0)) \'服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) \'服务器Version.txt发布日期
    Dim Cdate1 As Date = PublishDate \'客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") \'客户端Version.txt发布日期
    
    If Sdate2 > Cdate2 OrElse Sdate1 > Cdate1 Then 
        msgbox("有新版本")

        \'静默升级代码 Syscmd.Project.Update(False,False)
    End If
catch ex As exception
    msgbox("下载失败")
End try
--  作者：newsun2k
--  发布时间：2017/6/20 15:28:00
--  
这个我有了，我把升级记录保存在数据库中，有更新了，就从服务器下载到本地，然后升级。
我是想有个提示，不然什么都没有，等了半天，然后弹出升级成功，不太友好。
--  作者：有点色
--  发布时间：2017/6/20 15:47:00
--  
以下是引用newsun2k在2017/6/20 15:28:00的发言：
这个我有了，我把升级记录保存在数据库中，有更新了，就从服务器下载到本地，然后升级。
我是想有个提示，不然什么都没有，等了半天，然后弹出升级成功，不太友好。

 

有更新了，不是可以弹出你的提示窗口，然后再更新？不是很简单？
--  作者：HappyFt
--  发布时间：2017/6/20 16:15:00
--  
foxtable默认的只是弹出有更新的简单提示,如果要弹出一个窗口然后显示本次更新的内容,用户再确定是否更新这样的窗口要怎么设计才行?
--  作者：有点色
--  发布时间：2017/6/20 16:33:00
--  
以下是引用HappyFt在2017/6/20 16:15:00的发言：
foxtable默认的只是弹出有更新的简单提示,如果要弹出一个窗口然后显示本次更新的内容,用户再确定是否更新这样的窗口要怎么设计才行?

 

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=80202&skin=0