狐表的自动升级功能,只能升级项目内部的文件,不能升级可执行文件,所以呢,我自己找了一个可以发布自动升级的小软件,用着还可以,如果对语言不是很精通的,可以下载这个软件进行设置了。
升级设置方法:在项目事件中:
BeforeOpenProject
事件,设置打开自动升级程序代码:调用代码为:Dim pathup As String = ApplicationPath & "update.exe"
Dim Proc As New Process
Proc.File = pathup
Proc.Start
proc.WaitForExit()
代码解释:调用程序主路径,再加上可执行文件,然后打开文件,最后一句代码表示:等到这个软件自动退出之后,才继续执行以后的代码。
如果用户不升级的话,那么,可以在系统登录窗口中,加入代码,判断你发布的文件版本号是否和你服务器上的版本号一样,当然你要增加一个表,表名可以设置为:
限制表:版本号,
如果表中的版本号不等于本地可执行文件版本号,那么就强制退出!
自动升级文件下载地址: