主题：小版本升级时如何避免打开保存修改提示窗口?

此主题相关图片如下：save_20250527122624.png

'---先下载ftp服务器上的日期文件----------

If ftp.Download("\Update\Update.Txt", Path & "\Update.Txt") = True Then '如果下载升级日期文件及升级说明文件成功

    Dim ud() As String = FileSys.ReadAllText(Path & "\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 Then '大版本升级

        If ftp.Download("\Update\Update2.Zip", Path & "\Update2.Zip", True) = True Then '如果下载程序文件成功

            UpdatePath = Path

            RemoteUpdate = False

            If Syscmd.Project.Update(False, False) = True Then

                'Application.restart  '重新启动(大版本升级完成后需要手动重新打开项目)

                Return

            End If

        End If

    ElseIf Sdate1 > Cdate1 Then '小版本升级

        If ftp.Download("\Update\Update1.Zip", Path & "\Update1.Zip", True) = True Then '如果下载程序文件成功

            UpdatePath = Path

            RemoteUpdate = False

            If Syscmd.Project.Update(False, False) = True Then

                Application.restart '重新启动

                'Return '小版本更新不用返回才能自动打开程序

            End If

        End If

    End If

End If

如上图,每次小版本升级后都会弹出一个修改是否保存的窗口,此时若用户选择保存就会出错打不开项目,如果避免升级时不要出现这个弹窗?

这个窗口是在

If Syscmd.Project.Update(False, False) = True Then 

还是 Application.restart '重新启动后打开的?

谢谢!

代码在什么事件的？这个事件完整代码发上来看看。

这个是菜单上的一个手动升级的按钮的点击事件代码

升级按钮先保存一下再升级

好的,谢谢!可以了