为什么老是提示错误？

Question

我编写读取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

Answer 1

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函数,你得先声明~~