1 de 4 (WinForm): cambiar la propiedad FlatStyle de todos los controles

[Bravenap]

Aquí empiezo una serie de preguntas que he preferido no juntarlas. De esta manera, les será más fácil encontrarlas en el buscador a personas que tengan las mismas dudas. Además no tienen nada que ver una con otra.

En fin, 1 de 4:

Me gustaría poder cambiar la propiedad FlatStyle de todos los controles que la tengan en tiempo de ejecución. Ya tenía el formulario hecho con muchos controles y pensé en ponerlos al estilo de Windows XP. Pero para eso tenía que cambiar FlatStyle de Standard a System uno por uno en el diseñador y era un poco tedioso.

Supongo que habrá una colección que recoja todos los controles del formulario de manera que con un bucle, por ejemplo, se les puedan cambiar las propiedades.

¿Se puede?

Un saludo y gracias.

[RootK]

Puedes hacer ésto en tu page_load

For Each c As Control In Me.Controls
Dim sType As String = c.GetType().Name
Select Case sType
Case "Button"
Dim btn As Button = CType(c, Button)
btn.FlatStyle = FlatStyle.Flat

Case "TextBox"
Dim txt As TextBox = CType(c, TextBox)
txt.BorderStyle = BorderStyle.FixedSingle

Case "ComboBox"

case ....

End Select

Next

Con ello puedes hacer que afecte a los controles deseados, (textbox, button, etc..)

Salu2

[Bravenap]

Muchas gracias, RootK, esto me vale. Pero ¿se podría hacer algo así?

Dim control As c.GetType().Name = CType(c, c.GetType().Name)
control.FlatStyle = FlatStyle.Flat

De manera que sea para todos los controles y no sólo para los seleccionados con Select case. A lo mejor haría falta una función como eval() que, por cierto, se ha comentado en otro tema.

Muchas gracias de nuevo.

[RootK]

Pero ¿se podría hacer algo así?

Si se puede, solo que algunos controles no tienen la propiedad FlatStyle, como por ejemplo un textbox, listbox, etc, ya que tienen la propiedad BorderStyle, es por eso que los había manejado con Case, pero todo depende de como lo implementes.

Salu2

[Bravenap]

Y si no tienen esa propiedad, supongo que dará error ¿no? En ese caso se podría arreglar con un condicional:

If control.FlatStyle Then

control.FlatStyle = ....

End If