vb讀寫(xiě)iniword版-wenkub
2022-09-15 16:27:57 本頁(yè)面
【正文】 E－Mail: goj2000許家國(guó) 39。 39。******************************************************Dim lngSuccess As LonglngSuccess = WritePrivateProfileString(strSectionName, strTopic, strContent, strINIfilename)If lngSuccess = 0 Then DisplayMessage 寫(xiě)入INI文件失??！End IfExit SubEnd SubPublic 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參數(shù)： [strSectionName] 要在其中寫(xiě)入新字符串的[小節(jié)名]
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1