主题：[求助]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吧

这也是办法哦

换一个方式

 

历史结余中有“年份”这一列，如果在该列中找到2015，那么就不再弹出？

 

应该也可以吧