主题：请教关于判断控件值的问题

Dim kjmc() As String '控件名称
Dim kjmcjh As String = "Button1,Button2,Button3,Button4,Button5,Button6,Button7,Button8,Button9,Button10,Button11,Button01,Button02" '控件名称集合
kjmc = kjmcjh.split(",")
For i As Integer=0 To kjmc.Length-1
    e.Form.Controls(kjmc(i)).BackColor = Color.fromargb(170,181,207,248)
           
Next

参照这个改改就可以，，，定义一个字符串，然后用SPLIT将其分到数组，，，，批量判断即可。。