Перебрать все контролы

[SmarT]

И не говорите что я ламер , сам знаю. Я никогда просто этим не пользовался. Как перебрать ВСЕ контролы на форме и изменить в них (в данном конкретном случае) forecolor и backcolor? Заранее пасиб.

[skiperski]

Код: Выделить всё

Option Explicit

Private Sub Form_Load()

    Dim v As Control
   
    On Error Resume Next
    For Each v In Controls
        v.ForeColor = vbRed
        v.BackColor = vbGreen
    Next
    On Error GoTo 0
   
End Sub

[SmarT]

пасиб, пашет, вот тока вопрос: как с фреймами быть? они в чем? frames не работает...

[Dmitriy2003]

Клевещете ^

Private Sub Form_Load()

Dim v As Control

On Error Resume Next

For Each v In Controls
If TypeOf v Is Frame Then
v.Caption = "Na ja"
End If
Next v

On Error GoTo 0

End Sub

[SmarT]

хе-хе , пасиба огромное skiperski, Dmitriy !! Как хитро