Question

vb6.0代码问题，我这个代码到底错在那啊，form1中就是不显示文本中的信息

Private Sub mnuFileOpen_Click()

dlgCommonDialog.ShowOpen
dlgCommonDialog.Filter = " (*.txt)|*.txt"
'设置数据打开类型
Dim b As String

Open "CommonDialog1.FileName" For Input As #1
'Open "G:\新建文本文档.txt" For Input As #1
Form1.Show
Dim a As String
i = 1
Do Until EOF(1) '是否到达文件尾
Line Input #1, a
Form1.Print a
Loop
Close #1
End Sub

Answer 1

Open "CommonDialog1.FileName" For Input As #1
改为
Open CommonDialog1.FileName For Input As #1