Question

在VB里，如何打开一个txt文档，并在RichTextBox1中显示它？

在VB里，如何打开特定的一个txt文档，并在RichTextBox1中显示它？
帮帮忙~~~~~~~~~~~
谢谢了~~~~~~~~~~~

Answer 1

Private Sub command1_click()
Dim readtext As String
Open "d:\1.txt " For Input As #1
While Not EOF(1)
Line Input #1, readtext
RichTextBox1.Text = RichTextBox1.Text & readtext & vbCrLf
Wend
'文件关闭的方法
Close #1
End Sub

Answer 2

不错，谢了