将设置保存到注册表。
SaveSetting(应用程序名称、部分、键、设置)
SaveSetting "AffectedTerminals", "frmMain", "LastDir", szPathname
然后,您可以在应用程序下次运行时使用 getsetting 检索设置,以便可以使用它。
GetSetting(应用程序名称,部分,键[,默认])
Dim szLastDir As String
szLastDir = GetSetting("AffectedTerminals", "frmMain", "LastDir", "P:\AttEngineering")
编辑:解释了应用程序名称和部分参数。
应用程序名称和部分可以是您想要的任何内容。最好能描述一下环境。在上面的代码中,AffectedTerminals 是我的应用程序的名称。因此,如果您有一个处理 IT 发票的电子表格,那么您可以将应用程序名称命名为“ITinvoices”。该部分只是注册表条目的一个子部分(某种子目录)。
设置将保存在此位置
HKEY_CURRENT_USER/Software/VB 和 VBA 程序设置/appname/Section/key/value/
So for mine it is saved as
保存设置功能
AppName
必需的。包含应用程序或应用设置的项目名称的字符串表达式。
Section
必需的。包含保存密钥设置的部分名称的字符串表达式。
Key
必需的。包含正在保存的键设置名称的字符串表达式。
Setting
必需的。包含要设置 Key 的值的表达式。
获取设置函数
appname
必需的。字符串表达式,包含请求其密钥设置的应用程序或项目的名称。
section
必需的。包含找到关键设置的部分名称的字符串表达式。
key
必需的。包含要返回的键设置名称的字符串表达式。
default
选修的。包含在键设置中未设置值时返回的值的表达式。如果省略,默认值被假定为零长度字符串 ("")。