none
Por qué no funciona mi código RRS feed

  • Pregunta

  • Necesito que me ayuden a solucionarlo porque lo que intento que haga es cuando pulse un botón este cambie de color y cuando pulse otro se vuelva al color de antes. Tengo este código pero el problema es que si quito cuando llamo al otro procedimiento funciona pero necesito que esté también. Si hubiese alguna forma de hacerlo lo agradezco.

    Private Sub ColorClicked(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
    
            ColorOtros()
    
            Dim Kolor As Color = Color.FromArgb(0, 84, 193, 79)
    
            DirectCast(sender, Button).BackColor = Kolor
    
        End Sub
    
        Private Sub ColorOtros() 'Lo uso para restaurar los colores.
    
            Dim trans As Color = Color.Tomato 'Es de ejempli
    
            Button1.BackColor = trans
            Button2.BackColor = trans
            Button3.BackColor = trans
    
    
        End Sub


    Si la contestación te ha servido de ayuda márcala como respuesta. Si lo que publico no funciona, no tengo la culpa, SOY HUMANO, no una máquina.

    viernes, 28 de noviembre de 2014 16:56

Respuestas

  • Ya encontré la solución el problema es que el canal Alpha que le pase a la variable era transparente por eso no me surtía ningún efecto en el control. Pongo el error que tenía:

    Dim Kolor As Color = Color.FromArgb(0, 84, 193, 79)
    
    'lo tenía que cambiar por:
    
    Dim Kolor As Color = Color.FromArgb(255, 84, 193, 79)


    Si la contestación te ha servido de ayuda márcala como respuesta. Si lo que publico no funciona, no tengo la culpa, SOY HUMANO, no una máquina.

    • Marcado como respuesta LTNs sábado, 29 de noviembre de 2014 16:11
    sábado, 29 de noviembre de 2014 16:11

Todas las respuestas

  • En principio, el código que has escrito está bien y debería funcionar. Si no lo hace, tiene que estar interfiriendo algún otro factor que no se ve en el código que has presentado, por ejemplo, un segundo manejador de eventos que también cambia el color, o algo por el estilo.
    sábado, 29 de noviembre de 2014 7:19
  • Ya encontré la solución el problema es que el canal Alpha que le pase a la variable era transparente por eso no me surtía ningún efecto en el control. Pongo el error que tenía:

    Dim Kolor As Color = Color.FromArgb(0, 84, 193, 79)
    
    'lo tenía que cambiar por:
    
    Dim Kolor As Color = Color.FromArgb(255, 84, 193, 79)


    Si la contestación te ha servido de ayuda márcala como respuesta. Si lo que publico no funciona, no tengo la culpa, SOY HUMANO, no una máquina.

    • Marcado como respuesta LTNs sábado, 29 de noviembre de 2014 16:11
    sábado, 29 de noviembre de 2014 16:11