VB编程 读取文件 一行一行显示的问题

[20086-猫头鹰]

While Not EOF(1)

Input #1, T

I = InStr(1, T, "GET") + 5

i1 = InStr(I, T, " Mozilla/5.0+(compatible;+Baidu")

If I > 0 And i1 > 0 Then

For i2 = 0 To List1.ListCount - 1

If List1.List(i2) = Mid(T, I, i1 - I) Then List1.RemoveItem i2

Next

List1.AddItem Mid(T, I, i1 - I)

End If

Wend
ProgressBar1.Max = List1.ListCount - 1

For I = 0 To List1.ListCount - 1
ProgressBar1.Value = I
DoEvents
ProgressBar1.Value = I
Next
现在地区文本的内容 会卡一会一下子全部显示出来 ，我想让他读一条显示一条

[舉杯邀明月]

读取……保存到字符串数组中。
然后用Timer控件，以一定的周期“更新”显示就行了。

[20086-猫头鹰]

引用 1 楼 舉杯邀明月 的回复:

读取……保存到字符串数组中。
然后用Timer控件，以一定的周期“更新”显示就行了。

吧哪一段保存字符串 现在不就是字符串吗

[舉杯邀明月]

引用 2 楼 weixin_44424222 的回复:

[quote=引用 1 楼 舉杯邀明月 的回复:]
读取……保存到字符串数组中。
然后用Timer控件，以一定的周期“更新”显示就行了。

吧哪一段保存字符串 现在不就是字符串吗[/quote]

这两个“概念”是有很大区别的。

[VB业余爱好者]

上面的错了，最重要的一句是doevents，应该是下面这样的的，在 List1.AddItem Mid(T, I, i1 - I) 这句下面加这两句试试

List1.ListIndex = List1.ListCount - 1
Doevents

[VB业余爱好者]

测试了，可以实时一行一行显示，就是显示的太快，根本看不清读的是啥。。。

[VB业余爱好者]

在 List1.AddItem Mid(T, I, i1 - I) 这句下面加这两句试试

List1.AddItem t
List1.ListIndex = List1.ListCount - 1

[脆皮大雪糕]

看看这是不是你要的效果， 一个窗体，一个按钮，一个textbox 一个timer,粘贴下面的代码，运行戳按钮看效果。

Option Explicit
Dim strTest() As String

Private Sub Command1_Click()
    ReDim strTest(10)
    Dim i As Integer
    For i = 1 To 10
        strTest(i) = "这是第" & i & "个字符串"
    Next
    Timer1.Interval = 20
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Static deg As Double
    Static strPoint As Long
    Dim intLight As Integer
    
    intLight = Fix(255 * (Cos(deg / 180 * 3.1415926) + 1) / 2)
    Text1.ForeColor = RGB(intLight, intLight, intLight)
    DoEvents
    If deg Mod 360 = 0 Then
        strPoint = strPoint + 1
        If strPoint > UBound(strTest) Then
            Timer1.Enabled = False
            Text1.Text = "完毕"
            Text1.ForeColor = vbBlack
            
            Exit Sub
        Else
            Text1.Text = strTest(strPoint)
        End If
    End If
    deg = deg + 3
End Sub