Bom dia a todos,

Preciso de uma ajuda.
Tenho diversas caixas de texto num form e gostaria de alterar a cor do texto das mesmas qdo o valor for inferior a ZERO.
Exite algum jeito de mudar a cor de todas caixa de uma só vez?

Abraços e desde já agradeço a atenção.

Existe:
Dim ctl As Control, frm As Form, I As Integer
Set frm = Me

For Each ctl In frm.Controls
If ctl.ControlType = acTextBox And ctl.Value <0 Then
ctl.forecolor = 255 'vermelho

End If

Next ctl

Balemberg,

A propriedade ControlType não é reconhecida pelo compilador do VB5. tem alguma outra maneira para resolver esse problema?

Kleber

Voce está usando o VISIAL BASIC 5?
Então voce postou no forum errado!!
Verifique no help do vb sobre:
For Each element [ As datatype ] In group
[ statements ]
[ Exit For ]
[ statements ]
Next [ element ]

This message has been edited. Last edited by: Balemberg,