关于VBa中getsetting和savesetting

weixin_45336076 2019-06-29 10:22:48

这两个函数(不知道能不能叫函数)，我看了很多介绍，但还是不是很懂，有没有哪位大神能给我详细解释一下，用通俗一点的语言解释一下？

...全文

126 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

threenewbee 2019-06-30

打赏
举报

回复

保存和读取设置，保存在注册表的currentuser下面，所以同一个计算机不同登录用户的设置是互相独立的

milaoshu1020 2019-06-30

打赏
举报

回复

就是把数据保存到注册表,读取保存在注册表中的数据;

一般来说保存/读取的数据类型是字符串;

试用期限制程序(VB6.0源代码编写)试用期限制程序，运行程序后，试用30天后，程序就不能启动。Dim ss As Date Dim dd As Integer If GetSetting(appname:="this", section:="user", Key:="time") = "" Then MsgBox "尊敬的用户：你好！你还没有注册软件，从现在开始，你的试用为30天！" SaveSetting appname:="this", section:="user", Key:="time", setting:=Date Else ss = GetSetting(appname:="this", section:="user", Key:="time") dd = Date - ss If dd > 30 Then MsgBox "对不起，你的试用期已到！ " Unload Me Else MsgBox "您现在还没有注册本软件，试用期还有" & 30 - dd & "天！" End If End If

Windows注册表是一个数据库，用于存储与计算机不同方面相关的设置，例如用户设置、应用程序设备、硬件设置等等。VB和VBA中提供了用于读写注册表的两个函数：GetSetting和SaveSetting。利用这两个函数可以与注册表直接交互，这不仅允许我们获取其它程序和硬件的信息，而且也能够使我们选择应用程序中的重要信息并将其存储在注册表中。但是这两个函数仅能访问下面的注册表句柄键： HK

函数原型: SaveSetting(AppName As String, Section As String, Key As String, Setting As String) GetSetting(AppName As String, Section As String, Key As String, [Default] As String) '卸载窗体 =============

1. 利用VBA内置的方法实现。VBA内置操作注册表的四个函数分别是SaveSetting（写入注册表）、GetSetting（读取注册表）、GetAllSettings（获得注册表的键和值）和DeleteSetting（删除键或值）。但内置方法只能操作注册表中的HKEY_CURRENT_USER\Software\VB and VBAprogramSettings下的子键或者注册表

使用函数GetAllSettings(aooName,section)可以获取程序或者工程appName下的section区域的所有注册表项及值；使用函数SaveSetting appName,section,key,value为注册表项设置值； GetSetting(appName,section,key [,default])返回指定注册表项的值； DeleteSetting appN...

2,462

社区成员

10,807

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章