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

創(chuàng)新互聯(lián)服務緊隨時代發(fā)展步伐,進行技術革新和技術進步,經(jīng)過十年的發(fā)展和積累,已經(jīng)匯集了一批資深網(wǎng)站策劃師、設計師、專業(yè)的網(wǎng)站實施團隊以及高素質售后服務人員,并且完全形成了一套成熟的業(yè)務流程,能夠完全依照客戶要求對網(wǎng)站進行網(wǎng)站建設、成都網(wǎng)站設計、建設、維護、更新和改版,實現(xiàn)客戶網(wǎng)站對外宣傳展示的首要目的,并為客戶企業(yè)品牌互聯(lián)網(wǎng)化提供全面的解決方案。
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)容!請酌情處理!
要弄清楚這兩個問題,就要明白For循環(huán)語句的語法規(guī)則:
For循環(huán)語句,首先是判斷循環(huán)條件,如果循環(huán)條件不合理,則循環(huán)不執(zhí)行。
那么看第一個語句,循環(huán)范圍是 i = -3.5 to 5.5,顯然這個是一個從-3.5到5.5的遞增范圍,可是后面的Step卻是一個負數(shù),表示以0.5的步長遞減。取值范圍要求從小到大,可是步長改變卻是由大變小,顯然這個循環(huán)條件自相矛盾,所以循環(huán)將不會執(zhí)行,也就是循環(huán)執(zhí)行的次數(shù)是0次!
如果循環(huán)條件合理,則開始執(zhí)行循環(huán)語句,直到根據(jù)步長變換,下一個值超出循環(huán)范圍則終止。
For j = 6 to 2 Step -2
Next
完整寫法就是:
For j = 6 to 2 Step -2
Next j
Next j的意思就是下一個j值。結合本題,下一個j值等于6-2=4,這個時候,就是循環(huán)語句的第二個規(guī)則,判斷循環(huán)變量的值是否超出循環(huán)范圍,我們這里的j=4,顯然是在6 to 2這個范圍之內(nèi),所以循環(huán)繼續(xù),到下一個j的時候為2,依然在循環(huán)范圍內(nèi);到這里,6,4,2我們的循環(huán)執(zhí)行了3次,準備第4次循環(huán)的時候j = 2 -2 = 0超過了6 to 2這個范圍,那么循環(huán)終止。
所以i循環(huán)內(nèi)的每一個j循環(huán)將執(zhí)行3次。
ListBox操作需要用Invoke。另外多線程方式并不是并行處理。
建議采用.net framework 4 帶的并行處理循環(huán)操作,若不是4.0版本的framework,可以使用Aforge的并行庫比較方便。
dim s() as string
For Each fm1 In Panel1.Controls
dim i=0
if fm1.GetType.ToString = "System.Windows.Forms.TextBox" Then
s(i)=fm1.text
i+=1
End If
Next
軟糖來回答吧,VB.net用循環(huán)是這樣的
Dim?k?=?New?Integer(9)?{1,?2,?3,?4,?5,?6,?7,?8,?9,?10}
Dim?和?As?Integer
For?i?=?0?To?k.Count?-?1
和?+=?k(i)
Next
計算數(shù)組中各元素之和更簡單的方法是
使用擴展方法Sum或者Lambda表達式,以下兩種均可
Dim?和1?=?k.Sum()
Dim?和2?=?k.Aggregate(Function(m,?n)?m?+?n)
分享題目:vb.net循環(huán)用法,vbnet while循環(huán)
地址分享:http://chinadenli.net/article38/dsescsp.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供用戶體驗、網(wǎng)站營銷、小程序開發(fā)、標簽優(yōu)化、Google、網(wǎng)站維護
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)