VB读取INI报错

来源：百度知道 编辑：UC知道 时间：2024/05/28 18:17:44
Dim tini As Integer '测试配置文件

Dim ResultString As String '测试配置文件

ResultString = Space(100)

tini = GetPrivateProfileString("setinfo", "Exposure", "aaaa", ResultString, 100, App.path & "\HQDL.ini")

GetIniS = Mid(ResultString, 1, tini)

一运行就在 Dim ResultString As String '测试配置文件

ResultString = Space(100)
Space报错说是找不到工程或库
求解决方法
我把Space换成随便一个变量也不行

这是我常用的ini模块文件。拿去用吧。
inifunc.bas:

Attribute VB_Name = "IniFuncs"
Private 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
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long
Const inifilename = "\note.ini"

Public Sub Write_ini(ByVal Appname As String, ByVal Itemname As String, ByVal Value A