大家请帮帮忙，我想让显示在richtextbox的文档一行一行的显示出来

Question

Private Sub open_Click()CommonDialog1.Filter = "all file(*.*)|*.*|text(*.txt)|*.txt"
CommonDialog1.FilterIndex = 2 '初始类型为文本文件
CommonDialog1.ShowOpen
RichTextBox1.LoadFile (打开.FileName)
'将文件打开到文本框中显示
End Sub
请大家改一下，谢谢

Answer 1

'我服你了！ 一个定时器，Enabled 设置成False  一个按钮，一个通用对话框
Option Explicit
Dim m_intFileNum As IntegerPrivate Sub Command1_Click()
    CommonDialog1.FileName = ""
    CommonDialog1.ShowOpen
    m_intFileNum = FreeFile
    Open CommonDialog1.FileName For Input As #m_intFileNum
    Timer1.Interval = 1000 '显示速度
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    Dim s As String
    If EOF(m_intFileNum) Then
        Timer1.Enabled = False
        Close #m_intFileNum
    Else
        Input #m_intFileNum, s
        RichTextBox1.Text = RichTextBox1.Text & vbCrLf & s
    End If
End Sub

Answer 2

最好可以在一个button上写代码，一按就可以显示效果

Answer 3

我服了你了，你真的什么都会阿？
我在richtextbox上的右边加了一个滚动条，可以使打开的文本向下滚动，代码~~~~~~

Answer 4

为什么编译说错误的文件名或代码？“If EOF(m_intFileNum) Then”这句

Answer 5

你声明变量了吗？你用FreeFile分配文件号了吗？

Answer 6

我都写到这个份上了，你还不懂我真没办法了。Option Explicit
Dim m_intFileNum As Integer
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SCROLL = &HB5
Private Const SB_LINEDOWN = 1Private Sub Command1_Click()
    CommonDialog1.FileName = ""
    CommonDialog1.ShowOpen
    m_intFileNum = FreeFile
    Open CommonDialog1.FileName For Input As #m_intFileNum
    Timer1.Interval = 1000 '显示速度
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    Dim s As String
    If EOF(m_intFileNum) Then
        Timer1.Enabled = False
        Close #m_intFileNum
    Else
        Input #m_intFileNum, s
        RichTextBox1.Text = RichTextBox1.Text & vbCrLf & s
    End If
    '很奇怪，如果加一行代码不管用。两行同样的代码才管用
    SendMessage RichTextBox1.hwnd, EM_SCROLL, SB_LINEDOWN, ByVal 0&
    SendMessage RichTextBox1.hwnd, EM_SCROLL, SB_LINEDOWN, ByVal 0&
End Sub

Answer 7

怎么结贴阿？结帖方法：
1、在回复人后的文本框中填入分数，
2、在密码文本框中输入密码，
3、单击"给分"链接，
4、等待页面重新生成才能关闭窗口。
可是找不到地方啊？ 
还有怎么还是那个错误，错误号52
错误的文件名或号码If EOF(m_intFileNum) Then这句

Answer 8

如果你自己写代码，那么必须在
Option Explicit
的后面加上这句
Dim m_intFileNum As Integer而且在打开文件的代码之前加上这句m_intFileNum = FreeFile

Answer 9

哦
刚才的问题解决了，
您能不能帮我在richtextbox1上加一个竖的滚动条？

Answer 10

哦
刚才的问题解决了，
您能不能帮我在richtextbox1上加一个竖的滚动条？
===========================================================
ScrollBars=3 就行了