为什么取消文件打开时会出现死机现象呢?

Question

Private Sub MenuOpenHEXile_Click()
  Dim fileno As Integer
fileno = FreeFile
On Error Resume Next
CommonDialog1.ShowOpen
If Err.Number = 32755 Then          'cacel处理
CommonDialog1.FileName = ""
End If
Label5.Caption = CommonDialog1.FileName 
if len(Label5.Caption)<>0 then                                Open Label5.Caption For Input As #fileno
        
        Do While Not EOF(fileno)
          Line Input #fileno, AnsiTxt              '读入文件内容
          In_Str_Line(line_num) = AnsiTxt
          line_num = line_num + 1
        Loop
       Close #fileno 
                                   '关闭文件   end if
  End Sub  

Answer 1

要钭对话框的
cancelerr=false