你有控件是没错,有方法也没错
在成都做网站、网站建设中从网站色彩、结构布局、栏目设置、关键词群组等细微处着手,突出企业的产品/服务/品牌,帮助企业锁定精准用户,提高在线咨询和转化,使成都网站营销成为有效果、有回报的无锡营销推广。成都创新互联专业成都网站建设10余年了,客户满意度97.8%,欢迎成都创新互联客户联系。
但是你没有为控件添加对应的委托,即没有把事件处理方法(Bt_Click)添加到控件的事件队列中去
你应该使用AddHandler语句,具体请查看MSDN
可以用循环来实现的,结合窗体的Controls属性,达到引用空间组的成员的目的
代码如下:
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应该也差不多
方法一,让它们形成控件数组
for i=1 to 5
textbox(i).text=1
next i
方法二,假设这些控件的名称有规律,分别是textbox1,textbox2等
for i=1 to 5
controls("textbox" i ).text=1
next i
在VB6中能通过,希望对你有帮助
因为foreach是通过迭代来工作的,当你删除了一个元素后,这个集合内部元素之间的关系就会被破坏,所以你得不到正确的结果
你最好用for循环,或者先将要删除的控件放到一个数组中,foreach结束之后,统一删除,
给你个多线程执行任务的例子
先添加BackgroundWorker1、TextBox1、Button1,都是标准控件(窗体)在工具箱中找
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 = "开始多任务"
Button1.Text = "0"
BackgroundWorker1.RunWorkerAsync() '调用多任务程序
End Sub
'多任务程序
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
System.Threading.Thread.Sleep(20000) '暂停时间,可以是你的非常耗时程序任务
BackgroundWorker1.ReportProgress(100) '传出0-100数值
End Sub
'接收传出数值
Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
'TextBox1.Text = e.ProgressPercentage
TextBox1.Text = "结束多任务"
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
在启动程序后可以不停点击Button1看到数值的增加而不会卡死,20秒后TextBox1就会改成"结束多任务",实际上看你的程序是什么了,传值和接收传出数值的部分可取消