你有控件是沒錯(cuò),有方法也沒錯(cuò)
在成都做網(wǎng)站、網(wǎng)站建設(shè)中從網(wǎng)站色彩、結(jié)構(gòu)布局、欄目設(shè)置、關(guān)鍵詞群組等細(xì)微處著手,突出企業(yè)的產(chǎn)品/服務(wù)/品牌,幫助企業(yè)鎖定精準(zhǔn)用戶,提高在線咨詢和轉(zhuǎn)化,使成都網(wǎng)站營銷成為有效果、有回報(bào)的無錫營銷推廣。成都創(chuàng)新互聯(lián)專業(yè)成都網(wǎng)站建設(shè)10余年了,客戶滿意度97.8%,歡迎成都創(chuàng)新互聯(lián)客戶聯(lián)系。
但是你沒有為控件添加對應(yīng)的委托,即沒有把事件處理方法(Bt_Click)添加到控件的事件隊(duì)列中去
你應(yīng)該使用AddHandler語句,具體請查看MSDN
可以用循環(huán)來實(shí)現(xiàn)的,結(jié)合窗體的Controls屬性,達(dá)到引用空間組的成員的目的
代碼如下:
Private Sub command1_click()
Dim i As Long
For i = 1 To 10
Me.Controls("Label" i).Caption = i
Next i
End Sub
參照VB6,在VB.net應(yīng)該也差不多
方法一,讓它們形成控件數(shù)組
for i=1 to 5
textbox(i).text=1
next i
方法二,假設(shè)這些控件的名稱有規(guī)律,分別是textbox1,textbox2等
for i=1 to 5
controls("textbox" i ).text=1
next i
在VB6中能通過,希望對你有幫助
因?yàn)閒oreach是通過迭代來工作的,當(dāng)你刪除了一個(gè)元素后,這個(gè)集合內(nèi)部元素之間的關(guān)系就會(huì)被破壞,所以你得不到正確的結(jié)果
你最好用for循環(huán),或者先將要?jiǎng)h除的控件放到一個(gè)數(shù)組中,foreach結(jié)束之后,統(tǒng)一刪除,
給你個(gè)多線程執(zhí)行任務(wù)的例子
先添加BackgroundWorker1、TextBox1、Button1,都是標(biāo)準(zhǔn)控件(窗體)在工具箱中找
vb.net2008
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BackgroundWorker1.WorkerReportsProgress = True '可以傳值
BackgroundWorker1.WorkerSupportsCancellation = True '可以暫停
TextBox1.Text = "開始多任務(wù)"
Button1.Text = "0"
BackgroundWorker1.RunWorkerAsync() '調(diào)用多任務(wù)程序
End Sub
'多任務(wù)程序
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
System.Threading.Thread.Sleep(20000) '暫停時(shí)間,可以是你的非常耗時(shí)程序任務(wù)
BackgroundWorker1.ReportProgress(100) '傳出0-100數(shù)值
End Sub
'接收傳出數(shù)值
Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
'TextBox1.Text = e.ProgressPercentage
TextBox1.Text = "結(jié)束多任務(wù)"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text += 1
End Sub
End Class
在啟動(dòng)程序后可以不停點(diǎn)擊Button1看到數(shù)值的增加而不會(huì)卡死,20秒后TextBox1就會(huì)改成"結(jié)束多任務(wù)",實(shí)際上看你的程序是什么了,傳值和接收傳出數(shù)值的部分可取消
當(dāng)前名稱:vb.net控件循環(huán) vbnetfor循環(huán)
分享鏈接:http://m.rwnh.cn/article26/hiiicg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站導(dǎo)航、做網(wǎng)站、網(wǎng)頁設(shè)計(jì)公司、微信公眾號、電子商務(wù)、網(wǎng)站內(nèi)鏈
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)