主题：给已开发好的项目，如何做补丁

蓝老师：下面是项目体验使用的次数代码

 

Dim RegOk As Boolean = getconfigvalue("注册状态",False)   '定义注册状态的变量
Dim usecount As Integer  = GetConfigValue("试用次数",1) '定义试用次数

Dim reg As WinForm.Label = e.Form.Controls("Label2")

If regok = False Then  '若未注册
    reg.text = "您使用的体验版,目前已使用" & usecount & "次,还能试用" & 50 - usecount & "次"
Else
    reg.text = "您使用的已经是正式版,无需再次注册"
End If

 

 

如果达到次数，想继续再体验，后续写一个补丁该如何写？

我这样写了一个新程序，但不发挥作用。

Dim RegOk As Boolean = getconfigvalue("注册状态", False) '定义注册状态的变量
Dim usecount As Integer = GetConfigValue("试用次数", 1) '定义试用次数
ClearConfigItem
MessageBox.Show("成功延期体验")

在使用的人比较多的情况下，我只是个人的想法，觉得这样更简单些