VB中如何通过INI文件来控制参数

Question

1.如下是INI文件的一部分:
[DB]
;MXJのサーバーDBNAME1=gojyo
DBUSER1=gojyo
DBPASSWORD1=gojyo
ODBCDSN=heian2.以下是调用:
(1)API声明部分:
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'******************************************************************
'   関数名 ： OraConnect
'   機　能 ： DBに連接する
'   引　数 ： なし
'   戻り値 ： なし
'   作成日 ： 2001/11/01   作成者： 
'   修正日 ：              修正者：
'   備考   ：
'******************************************************************
Public Sub OraConnect()
    Set OraSession = CreateObject("OracleInProcServer.XoraSession")
    Set OraDatabase = OraSession.OpenDatabase(g_str_Dbname, g_str_Dbuser + "/" + g_str_Dbpassword, 0)
End Sub3.以下是读INI文件:
'******************************************************************
'   関数名 ： ReadInifile
'   機　能 ： 初期処理（iniファイルから変数を取得）
'   引　数 ： 無し
'   戻り値 ： 無し
'   作成日 ： 2001/11/07   作成者：
'   修正日 ： 2002/05/19   修正者：
'   備考   ：
'******************************************************************
Public Sub ReadInifile()
    Dim lngReturn As Long
    Dim strAppPath As String
    Dim strUserId As String
    
    g_str_Dbname = String(100, Chr$(0))
    g_str_Dbuser = String(100, Chr$(0))
    g_str_Dbpassword = String(100, Chr$(0))
    strAppPath = Left(App.Path, InStrRev(App.Path, "\") - 1)
    'データベース名
    lngReturn = GetPrivateProfileString("DB", 
            "DBNAME1", "None", g_str_Dbname, Len(g_str_Dbname) 
            + 1, strAppPath & "\" & g_str_IniFile)
    If Left(g_str_Dbname, lngReturn) = "None" Then
        Beep
        MsgBox GetErrorMessage("Err_ini_01"), 
           vbCritical,g_str_MsgTitle
        End
    End If
    'ユーザー名
    lngReturn = GetPrivateProfileString("DB", 
           "DBUSER1", "None", g_str_Dbuser, Len(g_str_Dbuser) 
           + 1, strAppPath & "\" & g_str_IniFile)
    If Left(g_str_Dbuser, lngReturn) = "None" Then
        Beep
        MsgBox GetErrorMessage("Err_ini_01"),vbCritical
              ,g_str_MsgTitle
        End
    End If    'パスワード
    lngReturn = GetPrivateProfileString("DB", "DBPASSWORD1", 
           "None", g_str_Dbpassword, Len(g_str_Dbpassword) 
           + 1, strAppPath & "\" & g_str_IniFile)    If Left(g_str_Dbpassword, lngReturn) = "None" Then
        Beep
        MsgBox GetErrorMessage("Err_ini_01"), 
            vbCritical, g_str_MsgTitle
        End
    End If    g_str_Dbname = TrimNullString(g_str_Dbname)
    g_str_Dbuser = TrimNullString(g_str_Dbuser)
    g_str_Dbpassword = TrimNullString(g_str_Dbpassword)End Sub
在这里是一个数据库连接的例子,其中:g_str_Dbname ,g_str_Dbuser ,
g_str_Dbpassword 定义成全局的.代码也许不可用,但已能说明问题了.