有CommonDialog控件则进程结束不了

[caimps]

在主窗体frmMain里有一个CommonDialog控件，在一个treeview里点击叶子节点调用，调用后关闭窗体，进程不结束，如果不调用，关闭正常

代码：
On Error Resume Next
frmMain.CommonDialog1.CancelError = True
frmMain.CommonDialog1.Flags = cdlOFNHideReadOnly

frmMain.CommonDialog1.Filter = " 文件(*.x)|*.x"

frmMain.CommonDialog1.ShowOpen
If Err.Number = 32755 Then '取消
MsgBox "cancle"
Else
Open frmMain.CommonDialog1.FileName For Output As #1
MsgBox "open"
Close #1
frmMain.CommonDialog1.FileName = ""
End If

[dwei]

调用后，
打开文件没有关闭，
可能导致有问题，

可以加End语句，
强制程序退出，
不过不是很好的习惯。

^_^

[caimps]

我的程序里有关闭啊 >_< ?

[tztz520]

看代码是没有问题的.
你先看一下你点"确定"退不出来,还是按了"取消"退不出来的呢?

[caimps]

heh
界面方案没定,所以还没地方划按钮,我做了退出菜单
Unload Me

点菜单退出和点窗口上的 X 效果一样，都不结束
但只要不去调CommonDialog，就没事

[of123]

Unload frmMain
Unload Me

[tztz520]

用end来结束呢?

[of123]

原因是你调用了另一个窗体 frmMain 的控件，因此隐含地执行了
Load frmMain
它处于 Hide 状态。

只要有处于 Hide 状态的窗体没有退出，进程就不结束。
估计你是处于调试阶段，直接使用工程属性将某一窗体设置为启动窗体来单独执行，没有通过 frmMain 进入和退出。

[caimps]

解决了
原因就是frmMain的隐含调用
结帖给分