【文章內(nèi)容簡(jiǎn)介】
bPublic Function MyReadINI(ByVal strSectionName As String, ByVal strTopic As String, ByVal strINIfilename As String) As StringDim lngRet As LongDim buff As Stringbuff = String(255, 0)lngRet = GetPrivateProfileString(strSectionName, strTopic, , buff, 256, strINIfilename)If lngRet 0 Then MyReadINI = buffEnd IfExit FunctionEnd Function : Option Explicit 39。 代碼 39。這里定義了一個(gè)classIniFile類(lèi) 39。 39。程序編寫(xiě):中國(guó)青島許家國(guó) 39。 39。E-Mail: goj2000@ 39。HomePage: 39。 39。Private member that holds a reference to 39。the path of our ini file Private strINI As String 39。Windows API Declar