主题：[求助]2016的弹窗问题。

2016的版本推出了了，试了一下弹  窗的效果，好奇的是：

 

窗体是一下子就出来了，里面的内容是向上滚动出现的，

 

想问的是：系统本身就是这种效果，还是我设计的有问题？

按理说：应该和QQ或其他类似的软件一样，整体窗体都是从底部慢慢升起的才好看啊

 嗯嗯，我的也是这个效果。不同系统，效果不太一样好像。

感觉很难受，这个效果。

还好。没办法。

我测试效果，就是整体慢慢出现的

Vars("Mark2")写在项目的全局变量中，初始值为false

项目打开后执行：

If Vars("Mark2") = False Then
    Dim Year As Integer = Date.today.year
    Dim d1 As Date
    Dim d2 As Date
    d1 = New Date(Year,12,31)
    d2 = new Date(Year,12,25)
    If Date.today >= d2 And Date.today <= d1 Then
        forms("弹窗").open
    End If
End If

 

那么凡是在此时间段，均弹出该窗口，通过“一键结余”按钮来执行当年结余计算，可

问题来了：

 

比如：用户在今天执行了“一键结余”，明天这个窗口依旧会弹出!

 

于是:

 

在“一键结余”按钮中加入代码：

 

 If Vars("Mark2") = False Then

  Vars("Mark2") =true

end if

 

但是，好像没有起到效果！

 

 

即使上述代码可以完成预期效果，即：

  Vars("Mark2") =true

 

那么同样会带来一个麻烦：这个窗口就永久不会再开了，也就是在2016年结束的时候，它不会再弹出来了。

 

 

整理一下，希望的效果：

 

每年的12月25日至12月31日，弹出该窗口提醒用户执行“一键结余”

 

如果用户执行了该操作,则不再弹出

 

 

可能还是有bug吧

你可以用一个表，记录其年份嘛。

 

比如2014，点击了，就记录2014；

 

在代码里面，判断年份是否点击了，没有点击的话，就弹出。

这也是办法哦