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

本文題目：vb點虐 保存到注冊表 vbnet lib
標題URL：http://vcdvsql.cn/article44/ddipcee.html

成都網站建設公司_創新互聯，為您提供、ChatGPT、營銷型網站建設、云服務器、全網營銷推廣、網站維護

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯