请高手帮帮忙!!!!
于之 2003-11-19 02:40:09 一个很好心的朋友发给我一个程序:
一个ctrlini.cls 类 其中的内容为:
Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName _
As String, lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpRetunedString 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 lplFileName As String) As Long
Public Function iniread(iAppName As String, iKeyName As String, iFileName As String) As String
Dim iStr As String
iStr = String(255, Chr(0))
iniread = Left(iStr, GetPrivateProfileString(iAppName, ByVal iKeyName, "", iStr, Len(iStr), iFileName))
iniread = Replace$(iniread, Chr(0), "")
End Function
Public Function INIWrite(iAppName As String, iKeyName As String, iKeyString As String, iFileName As String)
r% = WritePrivateProfileString(iAppName, iKeyName, iKeyString, iFileName)
End Function
有一个zzh.ini文件,里面的内容是:
[用户信息]
公司名称=广东xxxx有限公
而在程序中有一个:
Private Sub Form_Load()
Me.Caption = "【" & ini.iniread("用户信息", "公司名称", App.Path & "\zzh.ini") & "】" & "《" & VB.LoadResString(101) & "》" & "标准版 V" & App.Major & "." & App.Minor & "." & App.Revision '应用程序版本号
End Sub
可是,运行时,却老提示"实时错误 424, 要求对象,并停在ini.iniread
请高手帮帮忙,谢谢!