社区 › VB › 请问在vba中，如何保存用户在窗体中的输入状态，以便在用户下次使用时读取

gotop 发表于 2007-6-3 21:14:00

请问在vba中，如何保存用户在窗体中的输入状态，以便在用户下次使用时读取

请问在vba中，如何保存用户在窗体中的输入状态，以便在用户下次使用时读取

zzcctt 发表于 2007-6-5 16:35:00

其实也不难,可以将窗体中的值写到文件或注册表中,下次启动的时候读入值就可以了

gotop 发表于 2007-6-5 19:22:00

请问如何将窗体中的值写到文件或注册表中？
能提示一下用什么语句实现吗？

hmxmylove 发表于 2007-6-6 16:50:00

写注册表用
GetAllSettings
GetSetting
SaveSetting
这三个函数，
写ini文件用
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
这四个API函数

gotop 发表于 2007-6-6 17:12:00

Thx a lot!!!
GetAllSettings
GetSetting
SaveSetting
这三个函数我在vba的手册中找到了
但是写ini文件用的四个API函数找不到

hmxmylove 发表于 2007-6-10 13:31:00

这四个API函数要自己将我刚才给你发过去的四个定义放在一个标准模块里面才能使用，否则会出错的，用VB的API views程序可以查找这四个函数

wlcome 发表于 2007-7-6 21:09:00

我是初学，能否结合一个实例讲解一下四个API函数的实际使用

查看完整版本: 请问在vba中，如何保存用户在窗体中的输入状态，以便在用户下次使用时读取