<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
高手帮下菜鸟我~ 想让Button 改变颜色
我有90个Button 它们的ID是 txt1 到txt90
我想用一个Event来做出每按下一个Button的时候那个Button的颜色会变成红色
再按下就变回原来的白色
有哪位高手帮帮忙,我是菜鸟麻烦大家了~~
__________________________________________________________________________
对了 忘了说下 我用的是VB。NET2003
__________________________________________________________________________
两种方式
1、做成自己的控件,简单得很,继承Button,增加index属性
2、动态增加按钮,动态绑定事件——你不要告诉我你是手动拖90个按钮进入程序的
__________________________________________________________________________
我就是自己手动拖进去的 o(∩_∩)o...哈哈
麻烦你详细点可以吗? 不懂~
__________________________________________________________________________
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
__________________________________________________________________________
我还真不得不佩服你啊,90个,汗~~
__________________________________________________________________________
高手帮下菜鸟我~ 想让Button 改变颜色
我有90个Button 它们的ID是 txt1 到txt90
我想用一个Event来做出每按下一个Button的时候那个Button的颜色会变成红色
再按下就变回原来的白色
有哪位高手帮帮忙,我是菜鸟麻烦大家了~~
__________________________________________________________________________
对了 忘了说下 我用的是VB。NET2003
__________________________________________________________________________
两种方式
1、做成自己的控件,简单得很,继承Button,增加index属性
2、动态增加按钮,动态绑定事件——你不要告诉我你是手动拖90个按钮进入程序的
__________________________________________________________________________
我就是自己手动拖进去的 o(∩_∩)o...哈哈
麻烦你详细点可以吗? 不懂~
__________________________________________________________________________
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
__________________________________________________________________________
我还真不得不佩服你啊,90个,汗~~
__________________________________________________________________________