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

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

 

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

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

没有办法使用自己的提示窗口

那有没有办法再升级完后，系统自动弹出自定义的窗口，然后倒计时重启呢？

没有办法。可以看看这个：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140043&authorid=0&page=0&star=2

参照操作  还是没有达到预期

小版本升级可以直接使用Application.ReStart。大版本升级是没有任何办法的，必须手工打开程序！

在升级=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