如何让VB程序有“记忆”功能?
我编了一个程序,每次运行前要输入一些参数。我想怎么能运行结束关闭程序后,再打开程序时,这些输入参数是上次输入的呢?比如text1.text,它可能每次都入都有新的变化,不能用form.load,但我只想运行程序时是上次那个输入的数。
请高手指点。
参考答案:有没有搞错,你刚问过的啊,我回答的很详细了
你如还不明白就QQ我吧 ***********
我编的一个程序中就有这个功能,
是通过读写INI文件来实现的,
思路如下:
1.将你的参数写进INI文件中
2.读出参数
为此我专门建了两个读和写ini文件的函数,如下:
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
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 lplFilename As String) As Long
'lpApplicationname 应用程序名
'lpKeyName 该应用程序在设置文件(ini)中信息字段名
'lsString 该字段的值
'lplFilename 要保存的配置文件名如win.ini
'lpDefault 指向缺省的字符串
'lpReturnedString 指向从文件中读出的信息
'nSize 指lpReturnedString所指空间的大小
Public Function FunIniWrite(ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lsString As String, _
ByVal lplFilename As String)
'此函数用来实现写入功能
'输入:程序名,信息字段名,该字段的值,设置文件全名(含路径)
'如写文件成功返加1,否则返回0
FunIniWrite = WritePrivateProfileString(lpApplicationname, lpKeyName, lsString, lplFilename)
End Function
Public Function FunIniRead(ByVal lpApplicationname As String, ByVal lpKeyName As String, _
ByVal lplFilename As String) As String
'此函数用来实现读出参数功能
Dim result As Long
Dim Temp As String * 100
result = GetPrivateProfileString(lpApplicationname, lpKeyName, lpDefault, Temp, Len(Temp), lplFilename)
If result = 0 Then
Beep
MsgBox "failed to read from win.ini"
FunIniRead = ""
Else
FunIniRead = Temp
End If
End Function
用上述函数就可以将相应的设置写进文件,
在Form_Load事件中加入读出设置文件的代码,就可设置成功
我的很多小程序就是用的上面的函数实现了该功能