Files
Emmanuele Sassi 8d6f740ede EgwWPFBaseLib :
- aggiunti EgwButton ed EgwToggleButton con CornerRadius
- aggiunto EgwSplitButton
- aggiunta pagina di esempio con nuovi controlli in DemoApplication
2026-08-06 11:03:56 +02:00

59 lines
2.0 KiB
VB.net

' Follow steps 1a or 1b and then 2 to use this custom control in a XAML file.
'
' Step 1a) Using this custom control in a XAML file that exists in the current project.
' Add this XmlNamespace attribute to the root element of the markup file where it is
' to be used:
'
' xmlns:MyNamespace="clr-namespace:EgwWPFBaseLib"
'
'
' Step 1b) Using this custom control in a XAML file that exists in a different project.
' Add this XmlNamespace attribute to the root element of the markup file where it is
' to be used:
'
' xmlns:MyNamespace="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib"
'
' You will also need to add a project reference from the project where the XAML file lives
' to this project and Rebuild to avoid compilation errors:
'
' Right click on the target project in the Solution Explorer and
' "Add Reference"->"Projects"->[Browse to and select this project]
'
'
' Step 2)
' Go ahead and use your control in the XAML file. Note that Intellisense in the
' XML editor does not currently work on custom controls and its child elements.
'
' <MyNamespace:EgwToggleButton/>
'
Imports System.Windows.Controls.Primitives
Public Class EgwToggleButton
Inherits ToggleButton
Public Shared ReadOnly CornerRadiusProperty As DependencyProperty =
DependencyProperty.Register(
NameOf(CornerRadius),
GetType(CornerRadius),
GetType(EgwToggleButton),
New PropertyMetadata(New CornerRadius(0))
)
Public Property CornerRadius As CornerRadius
Get
Return CType(GetValue(CornerRadiusProperty), CornerRadius)
End Get
Set(value As CornerRadius)
SetValue(CornerRadiusProperty, value)
End Set
End Property
Shared Sub New()
'This OverrideMetadata call tells the system that this element wants to provide a style that is different than its base class.
'This style is defined in themes\generic.xaml
DefaultStyleKeyProperty.OverrideMetadata(GetType(EgwToggleButton), new FrameworkPropertyMetadata(GetType(EgwToggleButton)))
End Sub
End Class