For i As Integer = 0 To SelectCtlNames.count - 1
ctl = e.Form.Controls(SelectCtlNames(i))
ctl.BackColor = Color.red
Next
For i As Integer = 0 To SelectCtlNames.count - 1
ctl = e.Form.Controls(SelectCtlNames(i))
ctl.BackColor = Color.Transparent
Next
先设定ctl.BackColor = Color.red 再设定 ctl.BackColor = Color.Transparent
或者 设置 控件不可用 就是 控件 上面有条线 未遮罩
如果 先设定为其它颜色 再设定为 白色 则遮罩 正常。 应该 是程序有BUG