高手帮下菜鸟我~ 想让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