如何批量改控件的特殊效果?

olive_fy

我试着用for each来改,但是没有反应,大家帮忙看看.
Dim ctrl As Control
For Each ctrl In Me.Controls
ctrl.SpecialEffect = 1
Next

但是应用后提示"对象不支持该属性和方法",哪里错了呢?

chaojianan

请注意你的ctl类型，控制好ctl范围即可。
用if ctl.controltype=actextbox  then
....
endif

olive_fy

已解决.
非常感谢!!

ACMAIN_CHM

提示"对象不支持该属性和方法",

不是所有的对象都支持这个属性的。 建议对ControlType判断一下再进行对属性的设置。


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

Henry D. Sy

也可以利用控件的标记属性，来标识。