Question

vb编程问题 关于在text文本框里显示cnt文件的内容

我打开commondialog通用对话框，显示了一个cnt格式的文本，文本里面是目录。要使主窗体上的text1文本框里显示cnt目录应该怎么编码
结果TEXT1里面什么都没有啊

Answer 1

Private Sub Command1_Click()
On Error GoTo 取消
CommonDialog1.ShowOpen
CommonDialog1.CancelError = True
CommonDialog1.FileTitle = "cnt文件（*.cnt）|*.cnt"
Text1 = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, s
Text1 = Text1 & s & vbCrLf
Loop
Close #1
Exit Sub
取消:
End Sub

要是有什么不对的，我们再联系