Hi Esteban,
As far as I know, there is no FlatStyle for RadControls, but please try this and let me know any adjustments that you would like to make
Richard
Imports
Telerik.WinControls.UI
Imports
Telerik.WinControls
Imports
Telerik.WinControls.Primitives
Public
Class
MyRadSplitButton
Inherits
RadSplitButton
Public
Sub
New
()
MyBase
.
New
()
Me
.ThemeClassName =
"Telerik.WinControls.UI.RadSplitButton"
End
Sub
Protected
Overrides
Sub
OnLoad(
ByVal
desiredSize
As
System.Drawing.Size)
Dim
shape
As
New
RoundRectShape()
shape.BottomLeftRounded =
True
shape.BottomRightRounded =
False
shape.TopLeftRounded =
False
shape.TopRightRounded =
False
shape.Radius = 0
Me
.DropDownButtonElement.Shape = shape
CType
(
Me
.DropDownButtonElement.Children(1).Children(0).Children(0), FillPrimitive).BackColor = Color.White
CType
(
Me
.DropDownButtonElement.Children(1).Children(0).Children(0), FillPrimitive).GradientStyle = GradientStyles.Solid
CType
(
Me
.DropDownButtonElement.Children(1).Children(1).Children(0), FillPrimitive).BackColor = Color.White
CType
(
Me
.DropDownButtonElement.Children(1).Children(1).Children(0), FillPrimitive).GradientStyle = GradientStyles.Solid
Me
.DropDownButtonElement.ForeColor = Color.DarkGreen
MyBase
.OnLoad(desiredSize)
End
Sub
End
Class