初始5分提问，满意后补20分 vb 读取注册表值的问题

来源：百度知道 编辑：UC知道 时间：2024/05/04 10:51:23
我创建注册表值的方法是：

Call SaveSetting(App.Title, Text1.Name, "text", Text1.Text)

会在注册表生成

HKEY_CURRENT_USER\Software\VB and VBA Program Settings\工程1\Text1

在Text1里，在右边名称有一个“text”，数据为“aaa”（该aaa是通过我在text1.text输入aaa后生成的）

我想通过读取这个值，来实现
Unload Form1
Form2.Show

请问：
这个值该如何读取呢？

GetSetting(App.Title, Text1.Name, "text", Text1.Text) = "我的值"

初始5分提问，满意后补20分

'================================
'注册表通用操作函数
'================================

'==================================================
'注册表操作声明
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias