0

我正在将我的应用程序作为 exe 文件。在我的项目中，我使用设置变量来计算应用程序打开的次数。如果用户打开应用程序超过 5 次，我想限制用户再次打开应用程序. 为此，我使用以下编码形式显示

        Private Sub T01SaleBill_Shown(ByVal sender As Object, _ 
           ByVal e As System.EventArgs) Handles Me.Shown
                 if my.settings.openedtimes >5 then
                 me.close()
                 else
                 my.settings.openedtimes += 1;
                 my.settings.save()
                end if;

     End Sub

创建的 exe 文件通过我的 exe 运行良好。在应用程序打开 5 次后。表单关闭。现在我将 my.settings.openedtimes 重置为 0 并再次创建一个新的 exe。现在我卸载以前的exe ..并运行新的exe。这一次我的表格也关闭了。我认为设置变量 my.settings.openedtimes 的值与以前一样大于 5。我不明白这个设置变量有什么问题..谁能帮我这里有什么问题..

4

1 回答 1

0

添加一个名为 newvers 的布尔设置，并在设置设计器中将其设置为 true。然后试试这个

Private Sub Form1_Shown(sender As Object, _
                        e As EventArgs) Handles Me.Shown
    If My.Settings.newvers Then
        My.Settings.Upgrade() 'get previous values
        'change values that should not be carried over
        My.Settings.openedtimes = 1
        My.Settings.newvers = False 'turn new version off
    Else
        My.Settings.openedtimes += 1
    End If
    If My.Settings.openedtimes > 5 Then Me.Close()
    My.Settings.Save()
End Sub
于 2013-09-24T13:39:20.173 回答