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
現在地區文本的內容 會卡一會一下子全部顯示出來 ，我想讓他讀一條顯示一條
uj5u.com熱心網友回復：
讀取……保存到字串陣列中。然后用Timer控制元件，以一定的周期“更新”顯示就行了。
uj5u.com熱心網友回復：
吧哪一段保存字串 現在不就是字串嗎
uj5u.com熱心網友回復：
這兩個“概念”是有很大區別的。
uj5u.com熱心網友回復：
在 List1.AddItem Mid(T, I, i1 - I) 這句下面加這兩句試試List1.AddItem t
List1.ListIndex = List1.ListCount - 1
uj5u.com熱心網友回復：
上面的錯了，最重要的一句是doevents，應該是下面這樣的的，在 List1.AddItem Mid(T, I, i1 - I) 這句下面加這兩句試試List1.ListIndex = List1.ListCount - 1
Doevents
uj5u.com熱心網友回復：
測驗了，可以實時一行一行顯示，就是顯示的太快，根本看不清讀的是啥。。。uj5u.com熱心網友回復：
看看這是不是你要的效果，一個表單，一個按鈕，一個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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40428.html
標籤：VB基礎類