建站
咨詢
售后
建站咨詢
新聞中心
vb2013 net combobox 要把ComboBox中的內(nèi)容保存到文本文件、INI文件、注冊(cè)表。問(wèn)怎么存，怎么取。要代碼
Private Sub Form_Load()
創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的平輿網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！
'運(yùn)行程序時(shí)
'自動(dòng)將EXE文件所在目錄下的一個(gè)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)
'關(guān)閉程序時(shí)
'自動(dòng)將ComboBox中的數(shù)據(jù)保存至EXE文件所在目錄下的一個(gè)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存取注冊(cè)表項(xiàng)的幾個(gè)函數(shù)
1、首先引用命名空間：using Microsoft.Win32;?
2、幾個(gè)基本主鍵：
Registry.ClassesRoot;對(duì)應(yīng)于HKEY_CLASSES_ROOT主鍵
Registry.CurrentUser;? ?對(duì)應(yīng)于HKEY_CURRENT_USER主鍵
Registry.LocalMachine;? ?對(duì)應(yīng)于 HKEY_LOCAL_MACHINE主鍵
Registry.User;? ?對(duì)應(yīng)于 HKEY_USER主鍵
Registry.CurrentConfig;? ?對(duì)應(yīng)于HEKY_CURRENT_CONFIG主鍵
Registry.DynDa;?對(duì)應(yīng)于HKEY_DYN_DATA主鍵
Registry.PerformanceData;?對(duì)應(yīng)于HKEY_PERFORMANCE_DATA主鍵
3、返回或創(chuàng)建一個(gè)注冊(cè)表鍵
Dim?Key1?As?Microsoft.Win32.RegistryKey
Key1?=?My.Computer.Registry.CurrentUser???'返回當(dāng)前用戶鍵
Dim?Key2?As?Microsoft.Win32.RegistryKey
Key2?=?Key1.OpenSubKey("northsnow")???????'返回當(dāng)前用戶鍵下的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 '打開(kāi)XXX路徑的XXX文件（雙引號(hào)里表示文件位置和文件名）
Print #1, Text1.Text '寫入Text1的Text內(nèi)容
Close #1 '關(guān)閉
讀?。?/p>
Open "D:\123.txt" For Input As #1 '打開(kāi)打開(kāi)XXX路徑的XXX文件（雙引號(hào)里表示文件位置和文件名）
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 '關(guān)閉
VB點(diǎn)虐 中讀寫文件主要使用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()
如何實(shí)現(xiàn)VB.NET退出程序保存設(shè)置
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
文章標(biāo)題：vb點(diǎn)虐 保存到注冊(cè)表 vbnet lib
URL地址：http://fisionsoft.com.cn/article/ddipcee.html
