不简单，又不难的问题。

Question

在VB6中有如下代码：
Dim 变量 As Integer
Private Sub Command1_Click()
变量 = 变量 + 1
End Sub
那么单击一次Command1，变量的值会增加1，只要不关闭程序VB会一直记住变量的值，但是当关闭程序，再重新打开程序时，变量又会变成默认的0了！我想关闭程序，再重新打开程序，VB仍然记住变量的值，VB6可以做到吗？

Answer 1

Private Sub Command1_Click()    Static s As Long
    s = s + 1
    Text1.Text = sEnd Sub

Answer 2

Private Sub Command1_Click()    Static s As Long
    
    Text1.Text = s
    s = s + 1End Sub

Answer 3

当然可以,可以通过好多方法实现
(1)注册表记录
(2)Ini文件记录
(3)数据库记录
等等,一下给出注册表记录的方法Dim 变量 As IntegerPrivate Sub Command1_Click()
    变量 = 变量 + 1
    Me.Caption = 变量
End SubPrivate Sub Form_Load()
    变量 = Val(GetSetting("VB程序", "变量", "变量", "0"))
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    SaveSetting "VB程序", "变量", "变量", Str$(变量)
End Sub

Answer 4

大多数人都是采用ini记录吧,如果这个变量常用的话两个api,网上很多这类例子Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long