为什么老是提示错误？

[zizaiwang]

我编写读取ini的函数的时候，为什么总是提示:getprivateprofilestring 子函数或函数未定义



Private Function ReadFromIni(ByVal Filename As String, ByVal Section As String, ByVal Key As String) As String
Dim i As Long
Dim buff As String * 128
getprivateprofilestring Section, Key, "", buff, 128, Filename
i = InStr(buff, Chr(0))
ReadFromIni = Trim(Left(buff, i - 1))
End Function

[射天狼]

Public 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

这是API函数,你得先声明~~

[zizaiwang]

谢谢！