UC知道关于文件列表框的程序运行无结果，请高人指点下：
来源：百度知道 编辑：UC知道 时间：2024/06/07 02:30:03
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim x$
x$ = File1.Path & "\" & file.FileName
Print "x$="; x$
End Sub
我双击文件列表框中的文件，结果出现个对话框：对象错误。请问这是什么原因啊？
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim x$
x$ = File1.Path & "\" & file.FileName
Print "x$="; x$
End Sub
我双击文件列表框中的文件，结果出现个对话框：对象错误。请问这是什么原因啊？
少写了一个字，给你改过了
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim x$
x$ = File1.Path & "\" & File1.FileName'就是这里少了个字，你注意到了没？
Print "x$="; x$
End Sub
File1.Path & "\" & file.FileName
后面的file少了一个1，才能构成file1对象
授人以鱼不如授人以渔
今后初学VB如果还出现类似的错误(要求对象)，请仔细检查每个“.”前面的对象名是不是有问题