UC知道VB问题 问题 急！！！！！！！！！
来源：百度知道 编辑：UC知道 时间：2024/05/17 22:45:12
Private Sub Command1_Click()
With commondialog1
initdir = "F:\"
showopen
End With
Picture1.Picture = LoadPicture(commondialog1.FileName)
End Sub
这是我的代码
但是当我运行的时候 出现提示说 子程序或函数未定义且第一行代码黄色高亮 showopen那一行蓝色高亮
当我在showopen前加上commondialog1时就不出现这种情况
是怎么回事
还有 在通用对话框里的initdir书上说是用来指定对话框中显示的其始目录 但是我不太懂
With commondialog1
initdir = "F:\"
showopen
End With
Picture1.Picture = LoadPicture(commondialog1.FileName)
End Sub
这是我的代码
但是当我运行的时候 出现提示说 子程序或函数未定义且第一行代码黄色高亮 showopen那一行蓝色高亮
当我在showopen前加上commondialog1时就不出现这种情况
是怎么回事
还有 在通用对话框里的initdir书上说是用来指定对话框中显示的其始目录 但是我不太懂
With commondialog1
.initdir = "F:\"
.showopen
End With
在用with的时候 都是.属性
initdir是指你打开的时候 默认的路径！~
少打了一个点儿，这样写
.initdir="f:\"
.showopen
去看一下WITH的用法就知道了。
With对象里面的东西要用点(.)来调用。
With CommonDialog1
.InitDir="F:\"
.ShowOpen
End With
你原来的initdir = "F:\"没报错，只是因为VB自动创建了一个毫不相关的initdir变量……