Office中国论坛/Access中国论坛

标题: 如何写这样的代码 [打印本页]

作者: xwwei 时间: 2005-2-21 01:07
标题: 如何写这样的代码
我想用代码来给不同的文本框赋背景色，80个文本框，我想用for...next...来编写，可是如何定义text(n)

例如：

dim n as interge

for n-1 to 80

if text(n)="enable" then

me.text(n).backcolor=0

endif

next n

如何编写

作者: 异乡客 时间: 2005-2-21 03:48
背景应该是backcolor吧，也就是me.text(n).backcolor=**********，********是颜色值

作者: xwwei 时间: 2005-2-21 03:50
对，但是text(n)这种变量写法好像不对，我就是要问如何编这种写法，而不用写80句 if 语句

作者: 异乡客 时间: 2005-2-21 03:51
哦。我看错问题了，你把文本框的名称改成text()不行吗？

作者: 情比金坚 时间: 2005-2-21 04:31
应该用条件格式吧

作者: 异乡客 时间: 2005-2-21 20:27
控件名字为textndim s as stringdim n as intergefor n-1 to 80 s = "text" & nme.controls(s).backcolor=0endifnext n如何编写试试

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)