Foxtable(狐表)用户栏目专家坐堂 → 如何自定义升级成功提示窗口呢?


  共有3745人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
如何自定义升级成功提示窗口呢?  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/17 17:28:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)没有办法使用自己的提示窗口  发帖心情 Post By:2022/5/17 17:31:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/17 17:37:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)没有办法。可以看看这个:http://www...  发帖心情 Post By:2022/5/17 19:57:00 [只看该作者]

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

或者更简单一些 假设已经添加项目到启动菜单里  楼上的代码  怎么实现如果有升级  直接重启电脑


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)小版本升级可以直接使用Application....  发帖心情 Post By:2022/5/18 11:48:00 [只看该作者]

在升级=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编辑过]

 回到顶部