通常情况下,我们设计一款软件,可能会设计试用版程序,那么如何控制试用次数呢,以下就是专门为你设计软件使用次数准备的一款实用程序,如果有兴趣的话,可以看看是否对你有所帮助。
设计原理,当软件打开时,程序首先检测窗体程序,只需要在窗体中加入部分代码即可在注册表中记录下打开本软件的次数和剩下的次数,当使用次数达到设计限制次数时,窗体关闭,程序不运行即可。
具体设计窗体代码如下:
Private Sub Form_Load()
'次数限制(如30次)如下:
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "times", 0)
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
If Rema