none
¿Me pueden traducir por favor este pequeño código de C# a VB.Net? RRS feed

  • Pregunta

  •   private class MiRenderizador: ToolStripProfessionalRenderer
        {
            protected override void OnRenderMenuItemBackground(ToolStripItemRenderEventArgs e)
            {
                if (!e.Item.Selected) base.OnRenderMenuItemBackground(e);
                else
                {
                    Rectangle rc = new Rectangle(Point.Empty, e.Item.Size);
                    e.Graphics.FillRectangle(Brushes.Yellow, rc); //Elige el color que desees
                    e.Graphics.DrawRectangle(Pens.Black, 1, 0, rc.Width - 2, rc.Height - 1);
                }
            }
        }

    miércoles, 16 de septiembre de 2020 22:01

Respuestas

  • Hola James2016-2,

    Private Class MiRenderizador
        Inherits ToolStripProfessionalRenderer
    
        Protected Overrides Sub OnRenderMenuItemBackground(ByVal e As ToolStripItemRenderEventArgs)
            If Not e.Item.Selected Then
                MyBase.OnRenderMenuItemBackground(e)
            Else
                Dim rc As Rectangle = New Rectangle(Point.Empty, e.Item.Size)
                e.Graphics.FillRectangle(Brushes.Yellow, rc)
                e.Graphics.DrawRectangle(Pens.Black, 1, 0, rc.Width - 2, rc.Height - 1)
            End If
        End Sub
    End Class

    Espero que te sea de ayuda.  Por favor no olvides marcar una respuesta si resolviste tu consulta. Quedo pendiente de cualquier actualización. Gracias por levantar tu consulta en los foros de msdn.

     

    Saludos cordiales

    Gabriel Castro

     ____________________________ 

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 


    jueves, 17 de septiembre de 2020 0:50
    Moderador

Todas las respuestas

  • Hola James2016-2,

    Private Class MiRenderizador
        Inherits ToolStripProfessionalRenderer
    
        Protected Overrides Sub OnRenderMenuItemBackground(ByVal e As ToolStripItemRenderEventArgs)
            If Not e.Item.Selected Then
                MyBase.OnRenderMenuItemBackground(e)
            Else
                Dim rc As Rectangle = New Rectangle(Point.Empty, e.Item.Size)
                e.Graphics.FillRectangle(Brushes.Yellow, rc)
                e.Graphics.DrawRectangle(Pens.Black, 1, 0, rc.Width - 2, rc.Height - 1)
            End If
        End Sub
    End Class

    Espero que te sea de ayuda.  Por favor no olvides marcar una respuesta si resolviste tu consulta. Quedo pendiente de cualquier actualización. Gracias por levantar tu consulta en los foros de msdn.

     

    Saludos cordiales

    Gabriel Castro

     ____________________________ 

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 


    jueves, 17 de septiembre de 2020 0:50
    Moderador
  • Gracias.
    jueves, 17 de septiembre de 2020 1:03