如何将排序改成数组

来源:百度知道 编辑:UC知道 时间:2024/06/27 21:46:55
'改变按钮颜色
If Index = 0 Then
dcButton1.BackColor = vbButtonFace
dcButton1.BackColor = vbWindowBackground
dcButton1.ForeColor = vbWindowText
dcButton2.BackColor = vbButtonFace
dcButton2.BackColor = vbWindowBackground
dcButton2.ForeColor = vbWindowText
dcButton3.BackColor = vbButtonFace
dcButton3.BackColor = vbWindowBackground
dcButton3.ForeColor = vbWindowText
dcButton4.BackColor = vbButtonFace
dcButton4.BackColor = vbWindowBackground
dcButton4.ForeColor = vbWindowText
dcButton5.BackColor = vbButtonFace
dcButton5.BackColor = vbWindowBackground
dcButton5.ForeColor = vbWindowText
dcButton6.BackColor = vbButtonFace
dcButton6.BackColor = vbWindowBackground
dcButton6.ForeColor = vbWindowText
dcButton7.BackColor = vbButtonFace

把按钮复制粘贴 创建空间数组!! 然后用个循环就可以了
for i=0 to (几个控件就写几个)-1
dcbutton(i)..BackColor = YFSkin1.BackColor
dcButton(i).ForeColor = YFSkin1.ActiveColor
next
这样代码就剩多了 简单明了~~

你把所有按钮改为相同名称就可以了.