Question

VB中，设置打开一个TXT文件显示到一个TEXTBOX里面的程序该如何写

RT。。打开的程序我有了，就是如何使一个TXT文件内容显示到界面上的一个TEXTBOX里
在Shell CommonDialog1.FileName
这一行会报错。。可能原来给我程序的人的问题。。大哥帮忙！～谢谢

Answer 1

'在窗体上拖一个textbox控件，把Multiline属性设置为TRUE！
Private Sub open_Click(Index As Integer)

Dim sline as string
CommonDialog1.DialogTitle = "打开NC程序"
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "*.txt|*.txt;"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Shell CommonDialog1.FileName
End If
Open CommonDialog1.FileName For Input As #1
While Not EOF(1)
Line Input #1, sline
Text1.Text = Text1.Text & sline & vbCrLf
Wend
Close #1

End Sub