首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

高手帮下初学者小弟我~ 想让Button 改变颜色

2012-01-30 
高手帮下菜鸟我~想让Button 改变颜色我有90个Button它们的ID是txt1到txt90我想用一个Event来做出每按下一

高手帮下菜鸟我~ 想让Button 改变颜色
我有90个Button         它们的ID是         txt1     到txt90    
我想用一个Event来做出每按下一个Button的时候那个Button的颜色会变成红色    
再按下就变回原来的白色    
有哪位高手帮帮忙,我是菜鸟麻烦大家了~~

[解决办法]
Sub AddButton()
Dim MyButton(0 To 98) As Button
Dim II As Integer
For II = 0 To 98
MyButton(II) = New Button
MyButton(II).Name = "Abc " & II
MyButton(II).Location = New Point(II * 5, II * 5)
'位置自行确定/绑定事件
AddHandler MyButton(II).Click, AddressOf DoIt
Me.Controls.Add(MyButton(II))
Next
End Sub
Sub DoIt(ByVal sender As Object, ByVal e As System.EventArgs)
执行变色
End Sub

热点排行