ini文件的读取问题，急求！

来源：百度知道 编辑：UC知道 时间：2024/06/07 08:06:37
[COM]
a=56
b=22

[EXE]
a=44
b=549
请问用vb语言从上面格式的ini文件中根据[]内的字符不同如何读取到a,b不同的值呢？

'窗体代码
Private Sub Form_Load()
Dim a As String
Dim b As String

FlGetUserINI a, b

MsgBox a
MsgBox b

End Sub

'模块代码
Option Explicit

Public sIniFileDir As String

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

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

Public Function FlGetUserINI(ByRef a As String, ByRef b As String)
Dim lpOut As String