vb.net 關(guān)于循環(huán)語(yǔ)句

我寫(xiě)了一段代碼，注意你讀取的方法，我改進(jìn)了一下 Imports System.IO ‘代碼窗體的最上端一定要聲明

崇義網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、APP開(kāi)發(fā)、響應(yīng)式網(wǎng)站設(shè)計(jì)等網(wǎng)站項(xiàng)目制作，到程序開(kāi)發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)從2013年成立到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。

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) ’注意選擇編碼方式，按你原來(lái)的方法，未設(shè)置編碼，顯示的是亂碼！路徑請(qǐng)按你的情況改！ TextBox.Text = sr.ReadToEnd()

i += 1 End If

Next

MsgBox("已經(jīng)載入" i - 1 "個(gè)文件") End Sub注意：這樣的代碼是倒序的，第一個(gè)文本框顯示的是最后一個(gè)文件的內(nèi)容！請(qǐng)酌情處理！

vb.net怎么無(wú)線循環(huán)編

一般多開(kāi)線程寫(xiě)無(wú)限循環(huán)行為。

//定義線程

Dim?th?As?New?Threading.Thread(New?Threading.ParameterizedThreadStart(AddressOf?test))

th.Start("aaa")//開(kāi)始線程，可以傳參

//線程執(zhí)行函數(shù)

Public?Sub?test(ob?As?Object)

While?True

Console.WriteLine("線程正在運(yùn)行中"??ob)

Threading.Thread.Sleep(1000)

End?While

End?Sub

vb.NET中多個(gè)類似代碼如何用循環(huán)表達(dá)?

首先寫(xiě)一個(gè)事件響應(yīng)方法：

Protected Sub dcwgl_zx_f5_TextChanged(ByVal sender As Object, ByVal e As EventArgs)

'一些代碼

'如果你想使用這個(gè)響應(yīng)事件的控件，用CType(sender,TextBox)表達(dá)

'例如Dim thisTextBox As TextBox = CType(sender, TextBox)

End Sub

用如下代碼就可以綁定事件了：

AddHandler xxTextBox.TextChanged, AddressOf dcwgl_zx_f5_TextChanged

推薦你動(dòng)態(tài)創(chuàng)建這些控件并綁定事件（通常在Form的Load事件中）。假設(shè)你要?jiǎng)?chuàng)建x個(gè)TextBox：

For i = 0 To x

Dim tb As New TextBox()

'把它加入父容器的控件集合

Form1.Controls.Add(tb)

'綁定事件

AddHandler tb.TextChanged, AddressOf dcwgl_zx_f5_TextChanged

Next i

你也可以靜態(tài)添加這些TextBox，當(dāng)然事先要把它們放入某個(gè)容器中，比如GroupBox1，再綁定事件（在Load事件中）：

For Each con As Control In GroupBox1.Controls

If TypeOf con Is TextBox Then

Dim tb As TextBox = CType(con,TextBox)

AddHandler tb.TextChanged, AddressOf dcwgl_zx_f5_TextChanged

End If

Next