Button按钮上的图片的循环处理
开发工具:VS2005 WinForm
在一个界面上放置了许多的Button
现在想给每个按钮增加一个图片,使其更加的好看一些,
一个一个的增加工作量特别的大,用Select....Case 虽然可以实现,但也还是比较复杂....
如果按照下面的方法来写可以吗?(当然我现在写的这个是有问题的)
Dim i as integer = 0
For i = 0 to 50 Setp 1
If MyButton(x).Name.Length > 8 Then
Dim strPrgTag As String
strPrgTag = MyButton(x).Tag.ToString.Trim
MyButton(x).Image = Global.CompanyStart.My.Resources.Resources.strPrgTag
End If
Next
很显然上面的语句是编译不过的呵,请问一下应该如何修改可以让它能顺利的编译呢?
MyButton(x)是一个控件数组.
先谢过各位了@@@@
[解决办法]
解决方法有两个:
1. 在窗体设计器中 手工逐个设置每个button的image属性,而无须写任何代码(推荐)
2. 给出下面的代码供参考:
For Each c As Control In Me.Controls If TypeOf c Is Button Then With DirectCast(c, Button) If .Tag IsNot Nothing AndAlso .Tag.ToString.Length > 0 Then .Image = CType(My.Resources.ResourceManager.GetObject(c.Tag.ToString), Image) End If End With End IfNext