[SOLUCIONADO] Error con variable

[truskyvb]

Hola,

Pido ayuda con este código por si podéis echarme un cable:

Tengo 10 label que no están indexadas.
El caption cambia según opciones.
Trato de que cuando todas tengan caption 0 salte una función, por ejemplo Picture1.visible=false

El código es este pero salta cuando una sola label tiene caption 0 y no espera a que todas lo tengan.

Dim xControl As Control
For Each xControl In Me.Controls
If TypeOf xControl Is Label Then
If xControl.Caption = "0" Then
Picture1.Visible = False
End If
End If
Next

Gracias de antemano

[erbuson]

Debes tener una variable para controlar todo el ciclo y actuar solo al salir de el, por ejemplo algo así:

Código vb:

Dim xControl As Control
  Dim TodoCeros As Boolean
  ' Para empezar suponemos que todas serán 0
  TodoCeros = True
  For Each xControl In Me.Controls
    If TypeOf xControl Is Label Then
      'Si el Label NO es 0 Borramos TodoCeros
      If xControl.Caption <> "0" Then TodoCeros = False
    End If
  Next
  ' Si todos son cero lo oculta sino lo visualiza
  If TodoCeros Then Picture1.Visible = False Else Picture1.Visible = True
 

Saludos

[truskyvb]

El código que has puesto funciona perfectamente.
Muchas gracias por la ayuda.
Un saludo