用代码实现批量修改窗体文本框的颜色

胜利　发表于：2008-09-27 19:00:21 　

复制

有一批文本框：txt1、txt2、txt3……txt600和一个命令按钮cmd1

怎样实现点击命令按钮实现批量将上述文本框颜色设置成红色

窗体见附件(精简的例子)

点击下载此附件

Top

小ビビ2UのB8 发表于：2008-09-27 21:46:30

点击下载此附件

Top

小ビビ2UのB8 发表于：2008-09-27 21:47:02

颜色代码自己去搞,,,方法是这样,,,,

Top

竹笛发表于：2008-09-27 23:36:35

Private Sub cmd1_Click()
    Dim x As Long
    Dim y As Long
    y = 2    '这里改你的文本框个数，比如600
    For x = 1 To y
        Me("txt" & x).BackColor = vbRed
    Next x
End Sub

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

用代码实现批量修改窗体文本框的颜色