Dim?s?As?String?=?"123456789"
創(chuàng)新互聯(lián)公司專注于企業(yè)營銷型網(wǎng)站建設、網(wǎng)站重做改版、宜都網(wǎng)站定制設計、自適應品牌網(wǎng)站建設、H5開發(fā)、商城網(wǎng)站制作、集團公司官網(wǎng)建設、成都外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應式網(wǎng)頁設計等建站業(yè)務,價格優(yōu)惠性價比高,為宜都等各大城市提供網(wǎng)站開發(fā)制作服務。
For?i?=?1?To?Len(s)
TextBox1.Text?=?TextBox1.Text??Mid(s,?i,?1)
System.Threading.Thread.Sleep(1000)
Application.DoEvents()
Next
我寫了一段代碼,注意你讀取的方法,我改進了一下 Imports System.IO ‘代碼窗體的最上端一定要聲明
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意選擇編碼方式,按你原來的方法,未設置編碼,顯示的是亂碼!路徑請按你的情況改! TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已經(jīng)載入" i - 1 "個文件") End Sub注意:這樣的代碼是倒序的,第一個文本框顯示的是最后一個文件的內(nèi)容!請酌情處理!
我每太明白你的意思。
但我很費解為何你要用計時器來檢測是否DocumentComplete。
WebBrowser1有現(xiàn)成的方法 DownloadBegin,來檢測網(wǎng)頁是否載入新的內(nèi)容。
何不在在WebBrowser1_DownloadBegin事件中就一句代碼停止你所謂的采集呢?
然后在WebBrowser1_DocumentComplete再重新啟動采集。