none
Rutina para BackColor de tabpage RRS feed

  • Pregunta

  • Buenas! 
    Me gustaria saber si pudieran ayudarme, deseo cambiar los backcolor de los tabpages de un tabcontrol

    pero como son muchos y tengo varios tabcontrol es un poco tedioso hacerlo desde las propiedades.

    encontre una subrutina que me ayudo pero esta me cambia los backcolor de todos los componentes del tabcontrol y yo solo deseo los tabpage's

    desde ya muchas gracias, espero haberme explicado

    esta es la sub rutina que encontre:

     Private Sub ResetAllControlsBackColor(control As Control)
            control.BackColor = Color.FromArgb(209, 226, 242)
            control.ForeColor = Color.Black
          
            If control.HasChildren Then
                ' Recursively call this method for each child control.
                Dim childControl As Control
                For Each childControl In control.Controls
                    ResetAllControlsBackColor(childControl)
                Next childControl
            End If
    
    
    
        End Sub
    
    


    Julia Lan

    martes, 30 de diciembre de 2014 2:33

Respuestas

  • hola

    >>encontre una subrutina que me ayudo pero esta me cambia los backcolor de todos los componentes del tabcontrol y yo solo deseo los tabpage's

    pero los tabpage no son parte de la colecion de Controls, son parte de la coleccion de TabPages

    deberias recorrer

    For Each page As TabPage In TabPage1.TabPages
    
      'aqui trabajas con el tab
    
    Next

    o sea si la idea es trabjar con el tabpage no se usa la propiedad Controls

    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    • Marcado como respuesta Julia Lan martes, 30 de diciembre de 2014 3:32
    martes, 30 de diciembre de 2014 3:05

Todas las respuestas

  • hola

    >>encontre una subrutina que me ayudo pero esta me cambia los backcolor de todos los componentes del tabcontrol y yo solo deseo los tabpage's

    pero los tabpage no son parte de la colecion de Controls, son parte de la coleccion de TabPages

    deberias recorrer

    For Each page As TabPage In TabPage1.TabPages
    
      'aqui trabajas con el tab
    
    Next

    o sea si la idea es trabjar con el tabpage no se usa la propiedad Controls

    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    • Marcado como respuesta Julia Lan martes, 30 de diciembre de 2014 3:32
    martes, 30 de diciembre de 2014 3:05
  • Private Sub ResetAllControlsBackColor(control As TabControl)
    
        For Each page As TabPage In control.TabPages
    
              page.BackColor = Color.Aqua
    
        Next
    
    End Sub

    así quedo Leandro 

    muchísimas gracias por tu aporte!!

    \\o//

    martes, 30 de diciembre de 2014 3:32