vb.net 關于循環語句

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

崇義網站制作公司哪家好，找創新互聯！從網頁設計、網站建設、微信開發、APP開發、響應式網站設計等網站項目制作，到程序開發，運營維護。創新互聯從2013年成立到現在10年的時間，我們擁有了豐富的建站經驗和運維經驗，來保證我們的工作的順利進行。專注于網站建設就選創新互聯。

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("已經載入" i - 1 "個文件") End Sub注意：這樣的代碼是倒序的，第一個文本框顯示的是最后一個文件的內容！請酌情處理！

vb.net怎么無線循環編

一般多開線程寫無限循環行為。

//定義線程

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

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

//線程執行函數

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

While?True

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

Threading.Thread.Sleep(1000)

End?While

End?Sub

vb.NET中多個類似代碼如何用循環表達?

首先寫一個事件響應方法：

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

'一些代碼

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

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

End Sub

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

AddHandler xxTextBox.TextChanged, AddressOf dcwgl_zx_f5_TextChanged

推薦你動態創建這些控件并綁定事件（通常在Form的Load事件中）。假設你要創建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

你也可以靜態添加這些TextBox，當然事先要把它們放入某個容器中，比如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如何套循環,vbnet for循環
文章位置：http://m.newbst.com/article30/hsegso.html

成都網站建設公司_創新互聯，為您提供品牌網站設計、虛擬主機、營銷型網站建設、移動網站建設、企業建站、定制網站

廣告

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