[VB.NET]有关控件组的问题!
2008-12-28 11:37
351 查看
<script type="text/javascript"><!--
google_ad_client = "pub-8333940862668978";
/* 728x90, 创建于 08-11-30 */
google_ad_slot = "4485230109";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
有关控件组的问题!
Private Timer_BaoJing(3) As System.Timers.Timer
Private lblAd(3) As Label
我就是想把这两个控件一一对应起来
在timer的事件里操作label,
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i = 0 To 3
lblAd(i) = New Label
lblAd(i).TextAlign = ContentAlignment.MiddleCenter
lblAd(i).Top = 100 ''随便给的位置
lblAd(i).Left = 100 ''随便给的位置
lblAd(i).Visible = True
lblAd(i).AutoSize = False
lblAd(i).Name = i
lblAd(i).Text = i
lblAd(i).Show()
Me.Controls.Add(lblAd(i))
Next
''**********************************************************
For i = 0 To 2
Timer_BaoJing(i) = New System.Timers.Timer
Timer_BaoJing(i).AutoReset = True
AddHandler Timer_BaoJing(i).Elapsed, AddressOf BaoJing_Timer
Timer_BaoJing(i).Interval = 1000 * i + 3000
Timer_BaoJing(i).Enabled = True
Next
End Sub
Private Sub BaoJing_Timer(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
For i = 0 To 2
If sender.Equals(Timer_BaoJing(i)) Then
a = i
lblAd(i).BackColor = Color.Blue ''到这里就出错了,线程之间的问题
End If
Next
End Sub
__________________________________________________________________________
请问怎么在这个timer的事件里控制别的控件!???
__________________________________________________________________________
Public Class Form1
Private Timer_BaoJing(3) As System.Timers.Timer
Private lblAd(3) As Label
Private i As Integer
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i = 0 To 3
lblAd(i) = New Label
lblAd(i).TextAlign = ContentAlignment.MiddleCenter
lblAd(i).Top = 100 * i ''随便给的位置
lblAd(i).Left = 100 ''随便给的位置
lblAd(i).Visible = True
lblAd(i).AutoSize = False
lblAd(i).Name = i
lblAd(i).Text = i
lblAd(i).Show()
Me.Controls.Add(lblAd(i))
Next
''**********************************************************
For i = 0 To 2
Timer_BaoJing(i) = New System.Timers.Timer
Timer_BaoJing(i).AutoReset = True
AddHandler Timer_BaoJing(i).Elapsed, AddressOf BaoJing_Timer
Timer_BaoJing(i).Interval = 1000 * i + 1000
Timer_BaoJing(i).Enabled = True
Next
End Sub
Private Sub BaoJing_Timer(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
For i = 0 To 2
If sender.Equals(Timer_BaoJing(i)) Then
''a = i
lblAd(i).BackColor = Color.Blue ''到这里就出错了,线程之间的问题
End If
Next
End Sub
End Class
代码没什么大问题,定义一下变量i,屏蔽无用代码a=i后 可以正常运行啊。
__________________________________________________________________________
如果有线程之间的问题,可以使用委托的方式,如:
Public Class Form1
Private Timer_BaoJing(3) As System.Timers.Timer
Private lblAd(3) As Label
Private i As Integer
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i = 0 To 3
lblAd(i) = New Label
lblAd(i).TextAlign = ContentAlignment.MiddleCenter
lblAd(i).Top = 100 * i ''随便给的位置
lblAd(i).Left = 100 ''随便给的位置
lblAd(i).Visible = True
lblAd(i).AutoSize = False
lblAd(i).Name = i
lblAd(i).Text = i
lblAd(i).Show()
Me.Controls.Add(lblAd(i))
Next
''**********************************************************
For i = 0 To 2
Timer_BaoJing(i) = New System.Timers.Timer
Timer_BaoJing(i).AutoReset = True
AddHandler Timer_BaoJing(i).Elapsed, AddressOf BaoJing_Timer
Timer_BaoJing(i).Interval = 1000 * i + 3000
Timer_BaoJing(i).Enabled = True
Next
End Sub
Private Sub BaoJing_Timer(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
For i = 0 To 2
If sender.Equals(Timer_BaoJing(i)) Then
''a = i
''lblAd(i).BackColor = Color.Blue ''到这里就出错了,线程之间的问题
Me.Invoke(New MySub(AddressOf ChangeBackColor), i) ''使用委托的方法
End If
Next
End Sub
Private Delegate Sub MySub(ByVal i As Integer)
Private Sub ChangeBackColor(ByVal i As Integer)
lblAd(i).BackColor = Color.Blue
End Sub
End Class
__________________________________________________________________________
用select case sender.tabindex end select 这样的选择结构
__________________________________________________________________________
相关文章推荐
- 请教vs.net中有关.ascx控件的显示问题
- VB.NET章鱼哥出品—怎样解决MDI子窗口被父窗口中的控件覆盖的问题
- [VB.NET]请问题如何使用 正值表达式 来控制使用者Textbox控件输入内容?
- VB.NET章鱼哥出品—如何解决MDI子窗体被父窗体中的控件覆盖的问题
- [VB.NET]反射问题,怎么通过动态创建的控件得到控件的方法!
- 有关C#+ASP.NET中用户控件(webusercontrol)使用问题2则
- [VB.NET][求助]有关ACCESS表中 主键/关键字 为 自动编号 时与实际数据库同步的问题????
- [VB.NET]困挠很多人的 透明控件问题 vb.net
- 控件输入判断问题,VB.NET的请帮助!
- [VB.NET]怎样才可以右击选中datagridview控件中的单元格(1000分问题)
- [VB.NET]一个有关“fileinfo”的问题,请教~~
- 解决VB.net使用COM控件加载Excel文件速度慢的问题
- [VB.NET]vb.net中控件的问题
- vb.net控件数组的问题
- [VB.NET]openFileDialog控件的问题:以下两种代码哪个更优化一些?
- 关于ASP.NET中GridView控件中编辑和删除按钮布局问题
- Asp.net 2.0自定义控件(点击HyperLink后执行事件)[网友问题: DataList里HyperLink控件激发事件,在哪定义?]
- 关于vb.net 调用win32API Reamprocessmemory的问题
- 章鱼哥—VB.NET 如何实现代码自动生成控件 添加绑定事件
- 关于ASP.NET控件DropDownList控件的问题