即使在关闭程序vb后仍保持其价值的计数器？

Question

即使关闭程序后，如何声明一个保持其值的计数器？

只要程序正在运行，使用static就会保留该值，但是当我关闭它时，该值会回到零。我想保留这个价值。

这是我的功能：

Function counter() As Long
    Static total As Decimal = 20160500
    total += 1
    Return total
End Function

Answer 1

创建一个存储值的设置。它会保存在自动选择的位置，因此您不必担心文件。转到项目 - ＆gt; ...属性 - ＆gt;设置并在列表中添加一个初始值（20160500）。然后在代码中将其引用为My.Settings.Total

Function counter() As Long
    My.Settings.Total += 1
    Return My.Settings.Total
End Function

您可能还需要在程序退出时明确保存设置，但我认为这会自动完成。

My.Settings.Save()