以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]网络监控窗口不能自动关闭  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180197)
--  作者：2425004926
--  发布时间：2022/10/6 12:10:00
--  [求助]网络监控窗口不能自动关闭
项目已经打开了，连接云端数据库，
如果断网，打开网络监控窗口，且不能关闭，窗口按钮可以关闭项目，如果网络这时连通，网络监控窗口自动关闭，
下面的代码，窗口可以自动打开，却不能自动关闭，老师看看，怎么能解决一下
If e.IsAvailable = True Then
    If Forms("网络监控").Opened Then
        Forms("网络监控").close()
    End If
ElseIf e.IsAvailable = False Then
    If Forms("网络监控").Opened = False Then
        Forms("网络监控").open()
    End If
End if
--  作者：有点蓝
--  发布时间：2022/10/7 9:30:00
--  
msgbox（e.IsAvailable）
If e.IsAvailable = True Then
msgbox("网络连通后这里能不能弹出来")
    If Forms("网络监控").Opened Then
        Forms("网络监控").close()
    End If
--  作者：2425004926
--  发布时间：2022/10/8 12:42:00
--  
项目打开，关网，弹出Forms("网络监控")，连网，先要手动关闭Forms("网络监控")，msgbox("网络连通后这里能不能弹出来")才可以弹出
Forms("网络监控")是一个模式窗口
--  作者：有点蓝
--  发布时间：2022/10/8 13:44:00
--  
方法1、改为独立窗口
2、改为在计划管理中打开模式窗口，就是

If e.IsAvailable = True Then
    If Forms("网络监控").Opened Then
        Forms("网络监控").close()
    End If
ElseIf e.IsAvailable = False Then
    If Forms("网络监控").Opened = False Then
        MyTimers("计划1").Enabled=true
    End If
End if

计划1里
MyTimers("计划1").Enabled=false
Forms("网络监控").open()
--  作者：2425004926
--  发布时间：2022/10/8 17:38:00
--  
 谢谢老师！