记事本.,..文件内容的显示

Question

Open CommonDialog1.FileName For Input As #1
FileStr = ""
Do Until EOF(1)
 Line Input #1, TempStr
 FileStr = FileStr & TempStr & Chr$(13) & Chr$(10)
Loop
ChildForms(frm).Caption = CommonDialog1.FileTitle
Opened = True
ChildForms(frm).Text1.Text = ""
Opened = True
ChildForms(frm).Text1.Text = FileStr
File(frm) = CommonDialog1.FileTitle
PFile(frm) = CommonDialog1.FileName
Close #1
OpenCanceled:个位上面这么一段是什么意思呀

Answer 1

Open CommonDialog1.FileName For Input As #1    '打开公共对话框选定文件（读）
FileStr = ""
Do Until EOF(1)             ’没到文件结束
 Line Input #1, TempStr    ‘读文件的一整行
 FileStr = FileStr & TempStr & Chr$(13) & Chr$(10)   ’添加回车和换行
Loop
ChildForms(frm).Caption = CommonDialog1.FileTitle   ‘子窗体的标题条为所选的文件名（不含路径）
Opened = True
ChildForms(frm).Text1.Text = ""
Opened = True
ChildForms(frm).Text1.Text = FileStr
File(frm) = CommonDialog1.FileTitle
PFile(frm) = CommonDialog1.FileName
Close #1
OpenCanceled:

Answer 2

Opened 应该是作者自定义的布尔型变量，要结合上下文理解