请问一下，有人知道怎么做VB程序的配置文件吗？

Question

请问一下，有人知道怎么做VB程序的配置文件吗？

Answer 1

我看到的就是用INI文件做的，不过就是不知道怎么做啊。

Answer 2

'模块代码:Option ExplicitPublic Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long
Public s As Long
Public entry As String
Public iniPath1 As String
Public Function GetFromINI(AppName As String, KeyName As String, filename As String) As String  '定义读取ini文件数据函数
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))
End Function'FORM1代码:
private form_load()
     iniPath1$ = App.path + "\GTLED.INI"          '读取INI文件
     text1.text = Val(GetFromINI("通讯端口设置", "COM口", iniPath1))
     text2.text = Val(GetFromINI("通讯端口设置", "波特率", iniPath1))
end subprivate savecomd_click()       '保存INI文件
entry$ = text1.text
      s = WritePrivateProfileString("通讯端口设置", "COM口", entry, iniPath1)
entry$=text2.text
      s = WritePrivateProfileString("通讯端口设置", "COM口", entry, iniPath1)
end sub