VB.NET 本地保存数据

VB可以用任何格式保存文件数据不仅仅是注册表\XML\INI

我们提供的服务有：网站设计、成都网站制作、微信公众号开发、网站优化、网站认证、正安ssl等。为上1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的正安网站制作公司

甚至于未知的格式。我教你命令：

open "C:\setup.safe" for output as #1

print #1,"object"

close #1

其中setup.safe就是一个文件，后缀为.safe，当然可以改成.dat包括其他任何后缀.

object就是你要写入setup.safe的内容.

【vb.net】求个用VS2013读写INI的代码

vb.net有自己的设置，不需要ini，在工程【属性】-【设置】中设置。

——————

ini设置属性。

'声明API函数

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long

Return WritePrivateProfileString(Section, AppName, lpDefault, FileName)

End Function

‘调用writeini函数存储属性。

‘section为节点，也就是ini中带[]符号的节点文本

’APPname为存储的名称，即ini文件中等于符号前面的文本

’ipdefault为存储的属性，即等于符号右边的文本。

‘filename为存储的ini文件地址，如d:\save.ini

————————

ini返回属性。

'声明API函数

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32

Private Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

Dim Str As String = ""

Str = LSet(Str, IniCount)

GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)

Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

End Function

’调用getini函数

‘说明同上。

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保存ini vbnet keydown
分享网址：http://pwwzsj.com/article/doiogsd.html