VB 实时错误 '424':要求对象
Private Sub Command4_Click()
CommonDialog1.DialogTitle = "请输入数据库文件名："
CommonDialog1.Flags = cdlOFNHideReadOnly 'Or cdlOFNOverwritePrompt
CommonDialog1.Filter = "Excel文件(*.xls)|*.xls"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen

Route.Text = CommonDialog1.FileName

Dim strLin As String

If Trim(Route.Text) = "" Then
MsgBox "数据库路径不能为空！", vbCritical, "错误"
Exit Sub
End If
End Sub


我也上网查了说控件不存在，我看了控件存在的。我另外一个类似的程序也有跟这完全一样的一段代码没有报错，Why？
[最优解释]
你是有CommonDialog1控件吧，ctrl+T，然後查找，在system32文件面，有comdlg32。OCX文件，中，然後打，然後定，在左工具盒里有一CommonDialog空件，双击它，就可以把CommonDialog控件加载到form里面了。然后就可以用了
[其他解释]
确定有CommonDialog1？
把CommonDialog1删除了再拖上个
[其他解释]
错误指向哪一行？
[其他解释]
Ctrl+T里面找microsoft Common Dialog Control 6.0

引用:

引用:

确定有CommonDialog1？
把CommonDialog1删除了再拖上个

CommonDialog1怎么加？我另外一个程序里也有CommonDialog1，但是也没有啊。

[其他解释]
你这个窗体上确定有一个叫Route的TextBox才可以
[其他解释]

引用:

错误指向哪一行？

我调试首先指向这行：CommonDialog1.DialogTitle = "请输入数据库文件名："
然后一行一行下走
[其他解释]

引用:

你这个窗体上确定有一个叫Route的TextBox才可以

有的。
[其他解释]

引用:

确定有CommonDialog1？
把CommonDialog1删除了再拖上个

CommonDialog1怎么加？我另外一个程序里也有CommonDialog1，但是也没有啊。
[其他解释]

引用:

Ctrl+T里面找microsoft Common Dialog Control 6.0
引用:
引用:

确定有CommonDialog1？
把CommonDialog1删除了再拖上个

CommonDialog1怎么加？我另外一个程序里也有CommonDialog1，但是也没有啊。

这个已经加了。要不另外一个程序也会出错的。
[其他解释]
我两个程序都用到了CommonDialog1，在两个工程—>部件下都加了Common Dialog控件，但是没有报错的那个程序删除不掉，报错的能删除掉，这是为什么？

引用:

Ctrl+T里面找microsoft Common Dialog Control 6.0
引用:
引用:

确定有CommonDialog1？
把CommonDialog1删除了再拖上个

CommonDialog1怎么加？我另外一个程序里也有CommonDialog1，但是也没有啊。

[其他解释]

引用:

你是有CommonDialog1控件吧，ctrl+T，然後查找，在system32文件面，有comdlg32。OCX文件，中，然後打，然後定，在左工具盒里有一CommonDialog空件，双击它，就可以把CommonDialog控件加载到form里面了。然后就可以用了

谢谢你，根据你的提示可以了。
也谢谢dbcontrols，他说的都是对的。
原因是我两个程序中可以用的那个程序的CommonDialog1放到了form范围外导致看不见(在form边上放CommonDialog1后缩小form)。多以我以为两个程序一样而困惑了好几天。
[其他解释]
试头像的