【文章內(nèi)容簡介】
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。這里定義了一個classIniFile類 39。 39。程序編寫:中國青島許家國 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