vb讀寫(xiě)iniword版(編輯修改稿)
2024-09-14 16:27 本頁(yè)面
【文章內(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
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1