有CommonDialog控件则进程结束不了
在主窗体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