vb點虐 保存到注冊表 vbnet lib

vb2013 net combobox 要把ComboBox中的內(nèi)容保存到文本文件、INI文件、注冊表。問怎么存，怎么取。要代碼

Private Sub Form_Load()

創(chuàng)新互聯(lián)公司堅持“要么做到，要么別承諾”的工作理念，服務領域包括：網(wǎng)站設計、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務，滿足客戶于互聯(lián)網(wǎng)時代的平輿網(wǎng)站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡建設合作伙伴！

'運行程序時

'自動將EXE文件所在目錄下的一個INI文件中的數(shù)據(jù)調(diào)入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中的數(shù)據(jù)保存至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存取注冊表項的幾個函數(shù)

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、返回或創(chuàng)建一個注冊表鍵

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")??'如果鍵不存在就創(chuàng)建它

End?If

VB如何將程序的數(shù)據(jù)保存？

VB6.0

寫入：

Open "D:\123.txt" For Output As #1 '打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）

Print #1, Text1.Text '寫入Text1的Text內(nèi)容

Close #1 '關閉

讀?。?/p>

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表示循環(huán)讀取文件的內(nèi)容，并讓Text1.Text=內(nèi)容

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()

如何實現(xiàn)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://muchs.cn/article44/ddipcee.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供、ChatGPT、營銷型網(wǎng)站建設、云服務器、全網(wǎng)營銷推廣、網(wǎng)站維護

廣告

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