以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  计划代码写法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70531)
--  作者：cjl333333333
--  发布时间：2015/6/23 22:27:00
--  计划代码写法

这个代码是一个计划信息窗口代码，我怎么才能让它提示后就如果还没看那它就别再弹提示窗口了。我这个是设定5分钟提示一次的，结果前面那个提示窗口还没来得及打开看它就要来一个了。怎么才能让它在弹出提示窗口后就停止计划，待关闭后再重新执行？

 

Dim id As Integer = DataTables("信息表").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("信息表").AppendLoad(Filter, False)
Dim dr As DataRow = DataTables("信息表").Find("接收者 = \'" & _UserName & "\' And 接收时间 Is Null")
If dr IsNot Nothing Then
    MessageBox.Show("您有信息,请接收!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Forms("信息接收窗口").Open
End If
--  作者：大红袍
--  发布时间：2015/6/23 22:33:00
--  

Dim id As Integer = DataTables("信息表").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("信息表").AppendLoad(Filter, False)
Dim dr As DataRow = DataTables("信息表").Find("接收者 = \'" & _UserName & "\' And 接收时间 Is Null")
If dr IsNot Nothing Then
    If Forms("信息接收窗口").Opened = False Then
        MessageBox.Show("您有信息,请接收!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Forms("信息接收窗口").Open
    End If
End If

 
--  作者：cjl333333333
--  发布时间：2015/6/23 22:40:00
--  

谢谢
--  作者：cjl333333333
--  发布时间：2015/6/23 22:58:00
--  

这样不对哦，因为我先是弹出提示窗口然后才会弹出要打开的窗口哦。

所以，在信息窗口没打开之前它还是在不断打开提示窗口哦。

 
--  作者：大红袍
--  发布时间：2015/6/24 0:12:00
--  

 方法一：

 

Dim id As Integer = DataTables("信息表").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("信息表").AppendLoad(Filter, False)
Dim dr As DataRow = DataTables("信息表").Find("接收者 = \'" & _UserName & "\' And 接收时间 Is Null")
If dr IsNot Nothing Then
    MyTimers("任务一").Enabled = False
    MessageBox.Show("您有信息,请接收!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    MyTimers("任务一").Enabled = True
    Forms("信息接收窗口").Open
End If

 

方法二：MessageBox 弄成一个自己设计的窗口提示，弄成模式窗口，再加上2楼的opened判断