Private Sub File1_Click()
Dim strinbuf As String
Dim strprefile As String
Txtpreview.Text = ""
strpreview.Text = file.Path + "\" + file.FileName
Open strprefile For Input As #1
Do While Not EOF(1)
Line Input #1, strinbuf
Txtpreview.Text = Txtpreview.Text + strinbuf
Loop
Close #1
End Sub
这段程序谁能帮解释一下。谢谢！

这段的作用应该是读出一个文件的全部内容并显示在Txtpreview.Text 上

我也是初学，呵呵

strpreview.Text = file.Path + "\" + file.FileName
Open strprefile For Input As #1
Do While Not EOF(1)
Line Input #1, strinbuf
Txtpreview.Text = Txtpreview.Text + strinbuf
这个作用我是知道的，但我不明白他们具体的意思如：
Open strprefile For Input As #1
Do While Not EOF(1)
Line Input #1, strinbuf
是什么意思？怎么解释。
还望指教

打开某个文件,然后将内容显示在文本框内

Do While Not EOF(1)
Line Input #1, strinbuf
没有错误的话输出吧~~~

谢谢