Question

我有一个名为随机数的变量，当应用程序关闭或计算机已关闭时，需要存储该变量。每次使用此号码时，我还需要+1。

我当前的vb6应用程序中有一些变量需要在应用程序启动时关闭并加载时保存。这可能吗？我可以使用文本文件或配置文件来存储变量吗？

EDIT ---------------------------------------------- ---------------------------------

我设法解决了这个问题，只是使用了一个简单的输入和输出文本文件。如果您遇到同样的问题并需要帮助，请阅读下面的答案。

Answer 1

在VB6应用程序中保存值的标准方法是使用INI文件。如果我记得有几个Win32函数可以读/写它们。

它们是GetPrivateProfileString和WritePrivateProfileString。

Answer 2

使用注册表是正确的方法。

VB内置函数SaveSetting和GetSetting，用于写入和读取注册表。

请参阅registry tutorial或Stack Overflow question以帮助您。

Answer 3

我设法通过在C盘中创建一个文件并将数字“123”放入文本文件的顶行来完成任务。然后我写了下面的代码：

Function GetPOIRandomNum()

    Dim LineA As String

    'Collect stored variables
    Open "C:\TestPartner\Config\POIRandomNum.txt" For Input As #1

    While Not EOF(1)
        Line Input #1, LineA 'Read the first line in the file
        POIRandomNum = LineA + 1 'Give POIRandomNum the integer from line 1 and add 1 to it
    Wend
    Close #1

    'Save the new random number variable to the file
    Open "C:\TestPartner\Config\POIRandomNum.txt" For Output As #1 'Open for output to replace the old number
        Write #1, POIRandomNum 'Input the new number to the text file
    Close #1
End Function

现在每当需要随机数变量时，我都会调用上面的函数。

永久保存变量

3 个答案: