Hola a todos veran, necesito traducir una lineas de C# a vb.net pero me ha resultado dificil, las lineas son las siguiente:
faceInnerR = Rectangle.FromLTRB(faceOuterR.Left + 1, faceOuterR.Top + 1, faceOuterR.Right + (If(button.SizeMode = RibbonElementSizeMode.Large, -1, 0)), faceOuterR.Bottom + (If(button.SizeMode = RibbonElementSizeMode.Large, 0, -1)))
Dim innerR As Rectangle = Rectangle.FromLTRB(outerR.Left + 1, outerR.Top + (If(button.SizeMode = RibbonElementSizeMode.Large, 1, 0)), outerR.Right - 1, outerR.Bottom - 1)
Dim faceInnerR As Rectangle = Rectangle.FromLTRB(faceOuterR.Left + 1, faceOuterR.Top + 1, faceOuterR.Right + (If(button.SizeMode = RibbonElementSizeMode.Large, -1, 0)), faceOuterR.Bottom + (If(button.SizeMode = RibbonElementSizeMode.Large, 0, -1)))
If Not list.ButtonDownEnabled Then
DrawButtonDisabled(g, list.ButtonDownBounds, If(list.ButtonDropDownPresent, Corners.None, Corners.SouthEast))
ElseIf list.ButtonDownPressed Then
DrawButtonPressed(g, list.ButtonDownBounds, If(list.ButtonDropDownPresent, Corners.None, Corners.SouthEast))
ElseIf list.ButtonDownSelected Then
DrawButtonSelected(g, list.ButtonDownBounds, If(list.ButtonDropDownPresent, Corners.None, Corners.SouthEast))
e.Graphics.FillPath(If(f.WindowState = FormWindowState.Maximized, Brushes.White, Brushes.Black), path)
Se que talvez les parecera abusado, pero necesito una orientacion de como podria poner en lenguaje vb. Me marca un error en el IF. Pareciera que esta instruccion no es acepta en vb
Saludos,
