vb建立与读取.ini文件

vb建立与读取.ini文件2010-01-15虽然进入win95之後，一般读写ini文件被读写Registry所取代，但我们还是可以透过win31的传统方式读写ini文件，以存程式目前的相关设定，而於下一次程式执行时再读回来。目前建议使用GetSetting SaveSetting的方式存於Registry中，不用目前的方式。储存程式的设定

"请於form中放3个TextBox，一个CommandBox
Private Declare Function GetPrivateProfileString Lib "kernel32" _
  Alias "GetPrivateProfileStringA" （ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpDefault As String, _
  ByVal lpReturnedString As String, ByVal nSize As Long, _
  ByVal lpFileName As String） As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" _
  Alias "WritePrivateProfileStringA" （ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpString As Any, _
  ByVal lpFileName As String） As Long
Private Sub Command1_Click（）
Dim success As Long
success = WritePrivateProfileString（"MyApp", "text1", Text1.Text, "c:aa.ini"）
"叁数一 Section Name
"叁数二 於.ini中的项目
"叁数三 项目的内容
"叁数四 .ini文件的名称
success = WritePrivateProfileString（"MyApp", "text2", Text2.Text, "c:aa.ini"）
success = WritePrivateProfileString（"MyApp2", "text3", Text3.Text, "c:aa.ini"）
End Sub
Private Sub Form_load（）
Dim ret As Long
Dim buff As String
buff = String（255, 0）
ret = GetPrivateProfileString（"Myapp", "text1", "text1", buff, 256, "c:aa.ini"）
"若.ini MyApp中无text1，则采用叁数三的值
Text1.Text = buff
buff = String（255, 0）
ret = GetPrivateProfileString（"Myapp", "text2", "text2", buff, 256, "c:aa.ini"）
Text2.Text = buff
buff = String（255, 0）
ret = GetPrivateProfileString（"Myapp2", "text3", "text3", buff, 256, "c:aa.ini"）
Text3.Text = buff
End Sub