以文本方式查看主题

-  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=177326)
--  作者：cnsjroom
--  发布时间：2022/5/17 17:23:00
--  如何自定义升级成功提示窗口呢？

如何自定义升级成功提示窗口呢？  

 

设定了升级提示窗口，下述代码运行后，并没有弹出自定义升级成功提示的窗口 

Dim ipFile As String = ProjectPath & "\\Attachments\\ip.txt"
    Dim up As Boolean
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        If TryConnectHost(ip) = True Then
            Dim hc As New HttpClient(UpdatePath & "/update.txt")
            hc.SkipError = True
            If hc.GetFile(ProjectPath &"update.txt") Then
                up = Syscmd.Project.Update(False,False)
                 froms("升级提示").open
            End If   
        End If
    End If

[此贴子已经被作者于2022/5/17 17:25:30编辑过]
--  作者：有点蓝
--  发布时间：2022/5/17 17:28:00
--  
没有办法使用自己的提示窗口
--  作者：cnsjroom
--  发布时间：2022/5/17 17:31:00
--  回复：（有点蓝）没有办法使用自己的提示窗口
那有没有办法再升级完后，系统自动弹出自定义的窗口，然后倒计时重启呢？
--  作者：有点蓝
--  发布时间：2022/5/17 17:37:00
--  
没有办法。可以看看这个：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140043&authorid=0&page=0&star=2
--  作者：cnsjroom
--  发布时间：2022/5/17 19:57:00
--  回复：（有点蓝）没有办法。可以看看这个：http://www...
参照操作  还是没有达到预期

或者更简单一些 假设已经添加项目到启动菜单里  楼上的代码  怎么实现如果有升级  直接重启电脑
--  作者：有点蓝
--  发布时间：2022/5/17 20:33:00
--  
小版本升级可以直接使用Application.ReStart。大版本升级是没有任何办法的，必须手工打开程序！

最简单的用法

If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
    Forms("窗口1").open()
    \'后续其它代码
else
Application.ReStart
End If
--  作者：cnsjroom
--  发布时间：2022/5/18 11:48:00
--  回复：（有点蓝）小版本升级可以直接使用Application....

在升级=true的时候 ，会弹出升级成功，重启项目，点击确定后  系统才重新启动

有没有办法实现  小版本升级成功后，不弹出升级成功的提示，直接系统重启呢   大版本再提示手动点击重启项目

 

 

完整代码如下：

Dim File As String = ProjectPath & "\\Attachments\\Connect.Ini"
Dim ErrMsg As String
Dim Conn As String = FileSys.ReadAllText(File)
If Connections.TryConnect(Conn,ErrMsg) = False Then
    MessageBox.Show("数据源无法连通" & vbcrlf & "原因:" & ErrMsg    & vbcrlf & "点击确定,退出当前系统,请重新启动程序!"  ,"温馨提示") 
    vars("数据源状态")=False
    Syscmd.Project.Exit()
Else
    If Connections.Contains("无纸化会议")=True  Then
    Else
        Connections.Add("无纸化会议",Conn)
    End If


\'判断是否可以升级\'   
    Dim ipFile As String = ProjectPath & "\\Attachments\\ip.txt"
    Dim up As Boolean
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        If TryConnectHost(ip) = True Then
            Dim hc As New HttpClient(UpdatePath & "/update.txt")
            hc.SkipError = True
            If hc.GetFile(ProjectPath &"update.txt") Then
                up = Syscmd.Project.Update(False,False)         
            End If
        End If
    End If
    If up = False Then \'如果没有升级
        MainTable=Tables("表a")
        TableCaptionVisible = False
        Forms("会议系统").open
        basemainform.WindowState = 1
        If FileSys.DirectoryExists(ProjectPath & "下载文件") Then
        Else
            FileSys.CreateDirectory(ProjectPath & "下载文件")
        End If
        If FileSys.DirectoryExists(ProjectPath & "上传文件")  Then
        Else
            FileSys.CreateDirectory(ProjectPath & "上传文件")
        End If
    Else  \'如果升级成功
        Application.ReStart   \'小版本升级完成后自动重启项目\'
    End If
End If

[此贴子已经被作者于2022/5/18 12:37:14编辑过]