请高手帮帮忙!!!!

于之 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

请高手帮帮忙,谢谢!



...全文
27 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧