vb 为什么在showopen窗口点击取消后会出现问题
On Error Resume Next
Dim n As String, fnr As Integer
fnr = FreeFile
CommonDialog1.DialogTitle = "载入文件 "
CommonDialog1.Filter = "文本文件(*.txt)|*.txt "
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #fnr
Do Until EOF(fnr)
Line Input #fnr, n
List1.AddItem n
Loop
Close #fnr
为什么在取消的时候出现问题，请问这么解决？？？？？？？？？
急啊，在线等，大家快来帮帮我啊
[解决办法]
呵呵,楼上说得对,
CommonDialog1.CancelError = true 取消时就会发生错误,open语句就不会执行了,所以要错误捕捉,
如果不想捕捉错误,就将CancelError设置为false,
在open文件之前判断CommonDialog1.FileName= " " 如果成立就 exit sub或者exit function
