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

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

崇義網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站設(shè)計(jì)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營維護(hù)。創(chuàng)新互聯(lián)從2013年成立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(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) ’注意選擇編碼方式，按你原來的方法，未設(shè)置編碼，顯示的是亂碼！路徑請按你的情況改！ TextBox.Text = sr.ReadToEnd()

i += 1 End If

Next

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

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

一般多開線程寫無限循環(huán)行為。

//定義線程

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

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

//線程執(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中多個類似代碼如何用循環(huán)表達(dá)?

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

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

'一些代碼

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

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

End Sub

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

AddHandler xxTextBox.TextChanged, AddressOf dcwgl_zx_f5_TextChanged

推薦你動態(tài)創(chuàng)建這些控件并綁定事件（通常在Form的Load事件中）。假設(shè)你要創(chuàng)建x個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)然事先要把它們放入某個容器中，比如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

文章名稱：vb.net如何套循環(huán),vbnet for循環(huán)
文章位置：http://vcdvsql.cn/article30/hsegso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站設(shè)計(jì)、虛擬主機(jī)、營銷型網(wǎng)站建設(shè)、移動網(wǎng)站建設(shè)、企業(yè)建站、定制網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)