189 8069 5689
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有自己的设置，不需要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函数
‘说明同上。
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