您的位置：程序门 -> vb -> 基础类

窗体有40个文本框的值，要求从大到小，把前8个文本框的forecolor改为红色，其它为黑色

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

窗体有40个文本框的值，要求从大到小，把前8个文本框的forecolor改为红色，其它为黑色

发表于：2007-01-06 23:15:58 楼主

文本框名字为：b01，b02，b03……b40

发表于：2007-01-07 00:02:261楼得分:0

这么多,用控件数组好了,
dim ctl as control

for each ctl in me.controls
if ctl is textbox and val（mid（ctl.name,2)) <=8 then
ctl.forcecolor=vbred
else
ctl.forcecolor=vbblack
end if
next

随手写的,自己调试啊

发表于：2007-01-07 13:16:562楼得分:0

什么什么呀！不是小于8，是前8。

这是access里的一个窗体，没有控件数组的，和vb不一样。

下一篇：求个延迟函数（送20分）
上一篇：如何在安装程序时自动安装ie插件？

其他资讯