UC知道vb listbox中的文本怎么保存到注册表？
来源：百度知道 编辑：UC知道 时间：2024/06/21 19:57:07
代码如下：请帮忙完成
Private Sub Command1_Click()
List1.Text = Text1.Text
If List1.ListIndex <> -1 Then
MsgBox "已存在!", vbInformation, "提示:"
Exit Sub
End If
List1.AddItem Text1.Text
'保存到注册表
'未完成，请帮忙
'...........
End Sub
Private Sub Command2_Click()
Dim i As Long
Dim str1 As String
If List1.ListIndex = -1 Then Exit Sub
List1.RemoveItem List1.ListIndex
For i = 0 To List1.ListCount - 1
str1 = str1 & List1.List(i) & vbCrLf
Next
'保存到注册表
'未完成，请帮忙
'...........
End Sub
Private Sub Form_Load()
'从注册表中读取
'未完成，请帮忙
'...........
End Sub
能读写就行，位置没多大关系。复制粘贴的不要
谢谢你的回答。
问题已经解决，为了不浪费分数，还是将分给你了
需要定位要操作的注册表具体位置，只是一个字符串，别人怎么知道你要对注册表的什么位置进行操作？还是你自己慢慢学吧，写代码的，这些东西总是要学会的。
============================================================
VB 自身提供的关于注册表的函数 ：
在 Visual Basic 6.0 内部，已经提供了一个标准的注册位置，以存储创建于VB的应用程序的程序信息：HKEY_CURRENT_USER\Software\VB and VBA Programsettings\(为了叙述简单，以下将这一位置简称“标准位置”)。VB 提供了两个语句和两个函数来处理存储在应用程序注册位置的程序设置值：
函数GetSetting(appname, section, key[, default]): 检索注册表设置值。
语句SaveSetting appname，section，key，: 保存或创建注册表设置值。
函数GetAllSettings(appname, section): 返回一个包含多项注册表设置值的数组。
语句DeleteSetting appname, section[, key]: 删除注册表设置值。
以上所用参数的说明：
[ ]: 表示可选项。
appname：字符串表达式，包含应用程序或工程的名称，是标准位置下的一个子键。
section：字符串表达式，包含区域名称，是 appname 下的一个子键。
key：字符串表达式，标准位置\appname\section子键的键名( Name)。
字符串表达式，标准位置\appname\
section子键对应于键名( Name)的键值()。
default：表达式，如果注册表项设置中没有设置值，则返回默认值。如果省略，则 default 取值为长度为零的字符串 (“”)。
GetAllSettings返回Variant，是内容为字符串的二维数组，该二维数组包含指定区域中的所有注册表项设置