vb点虐 保存到注册表 vbnet lib

vb2013 net combobox 要把ComboBox中的内容保存到文本文件、INI文件、注册表。问怎么存，怎么取。要代码

Private Sub Form_Load()

创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站设计、成都做网站、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的平舆网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

'运行程序时

'自动将EXE文件所在目录下的一个INI文件中的数据调入ComboBox

Dim Stri As String

Open App.Path "\ComboData.INI" For Input As #1

Do Until EOF (1)

Input #1,Stri

Combo1.AddItem Stri

Loop

Close #1

End Sub

Private Sub Form_Unload(Cancel As Integer)

'关闭程序时

'自动将ComboBox中的数据保存至EXE文件所在目录下的一个INI文件

Open App.Path "\ComboData.INI" For Output As #1

For i = 0 to Combo.Listcount - 1

Print #1, Combo.List (i)

Next

Close #1

End Sub

Private Sub Command1_Click()

Combo1.AddItem Text1.Text

End Sub

VB.NET存取注册表项的几个函数

1、首先引用命名空间：using Microsoft.Win32; 

2、几个基本主键：

Registry.ClassesRoot;对应于HKEY_CLASSES_ROOT主键

Registry.CurrentUser;   对应于HKEY_CURRENT_USER主键

Registry.LocalMachine;   对应于 HKEY_LOCAL_MACHINE主键

Registry.User;   对应于 HKEY_USER主键

Registry.CurrentConfig;   对应于HEKY_CURRENT_CONFIG主键

Registry.DynDa; 对应于HKEY_DYN_DATA主键

Registry.PerformanceData; 对应于HKEY_PERFORMANCE_DATA主键

3、返回或创建一个注册表键

Dim Key1 As Microsoft.Win32.RegistryKey

Key1 = My.Computer.Registry.CurrentUser   '返回当前用户键

Dim Key2 As Microsoft.Win32.RegistryKey

Key2 = Key1.OpenSubKey("northsnow")       '返回当前用户键下的northsnow键

If Key2 Is Nothing Then

Key2 = Key1.CreateSubKey("northsnow")  '如果键不存在就创建它

End If

VB如何将程序的数据保存？

VB6.0

写入：

Open "D:\123.txt" For Output As #1 '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）

Print #1, Text1.Text '写入Text1的Text内容

Close #1 '关闭

读取：

Open "D:\123.txt" For Input As #1 '打开打开XXX路径的XXX文件（双引号里表示文件位置和文件名）

Do While Not EOF(1)

Line Input #1, s

Text1.Text = s

Loop 'Do...Loop表示循环读取文件的内容，并让Text1.Text=内容

Close #1 '关闭

VB点虐 中读写文件主要使用System.IO命名空间。

① 使用 File.ReadAllText 读取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 读取，注意编码格式和写入的编码保持一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

如何实现VB.NET退出程序保存设置

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

SaveSetting("appname", "Startup", "text1", TextBox1.Text)

SaveSetting("appname", "Startup", "text2", TextBox2.Text)

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim text1 As Double

Dim text2 As Double

text1 = GetSetting("appname", "startup", "text1", 8)

text2 = GetSetting("appname", "Startup", "text2", 6)

TextBox1.Text = text1

TextBox2.Text = text2

End Sub