Usar todos los labels.

[тαптяα]

Quizas el titulo no explique muy bien mi estado de locura y ansiedad actual.

Bueno lo que intento hacer es que si le das a un boton:

Es que todos los labels hagan esto:

Código [Seleccionar] Expandir

Label1.BorderStyle = 0


Sin tener que escribir lo mismo..

¿se puede?

[agus0]

Lo Ideal Seria que uses Matrices entonces con un Bucle le haces eso a todos "De un saque"

[тαптяα]

Lo Ideal Seria que uses Matrices entonces con un Bucle le haces eso a todos "De un saque"

Ahora mismo, me aumenta la rabia, realmente todos los labels son iguales, pero se me ha ocurrido la brillante idea de no usar matrices, sino dejar cada label independiente..

¿Se puede o he de empezar de 0 ?

[BlackZeroX]

.
Esto te ayudara si no tienes un Array de controles.

Código (Vb) [Seleccionar] Expandir



Dim v   As Variant
    For Each v In Me.Controls   '  // Me = Form Actual  tambien puedes poner Form1.controls etc..
        If TypeName(v) = "Label" Then
            With v
                .BorderStyle = 0
                .BackColor = vbRed
            End With
        End If
    Next v



Temibles Lunas!¡.

[тαптяα]

Voy a probar eso puede que me ahorre unas 70 lineas jajajja

Edito: Gracias.