VB错误提示:必选参数(不知何解?)

来源:百度知道 编辑:UC知道 时间:2024/06/01 23:11:33
由于限制字数,我把问题放论坛里了。
http://intercourse.love.topzj.com/thread-110769-1-1.html

这样改:
Dim KeyValue$
Dim characters As Long
FilePathName = App.Path + "\config.inf"
KeyValue$ = String$(FileLen(FilePathName), 0)

characters = GetPrivateProfileString("config", "计费中心", "", KeyValue$, Len(KeyValue$) - 1, FilePathName)
If characters > 0 Then Me.Command3 = StrConv(LeftB(StrConv(KeyValue$, vbFromUnicode), characters), vbUnicode)
characters = GetPrivateProfileString("config", "本地电影", "", KeyValue$, Len(KeyValue$) - 1, FilePathName)
If characters > 0 Then Me.Command4 = StrConv(LeftB(StrConv(KeyValue$, vbFromUnicode), characters), vbUnicode)
characters = GetPrivateProfileString("config", "常用工具", "", KeyValue$, Len(KeyValue$) - 1, FilePathName)
If characters > 0 Then Me.Command5 = StrConv(LeftB(StrConv(KeyValue$, vbFromUnicode), characters), vbUnicode)
characters = GetPrivateProfileString("config