请教！有没有历遍所有控件的函数？

sxgaobo

例如，要把窗体中所有标签的字体颜色改为红色？

zyp

dim myCtl as Control
For Each myCtl In Me.controls
    if myCtl.ControlType=acLabel Then
         myCtl.ForeColoer=vbRed
    end if
Next myCtl

sxgaobo

zyp 发表于 2019-5-2 08:52
dim myCtl as Control
For Each myCtl In Me.controls
    if myCtl.ControlType=acLabel Then

谢谢您的关注！
运行时报错：
运行时错误'438'，对象不支持该属性或方法，
在这一行：myCtl.ForeColoer = vbRed

sxgaobo

好了  改成：myCtl.ForeColor = vbRed