Mega Code Archive
ControlTemplates and style xaml file
<![CDATA[
<Window x:Class="ControlTemplates.GradientButtonTest"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="GradientButtonTest" Height="280" Width="322"
>
<Window.Resources>
<ResourceDictionary>
<ResourceDictionary.MergedDictionaries>
<ResourceDictionary Source="a.xaml"></ResourceDictionary>
</ResourceDictionary.MergedDictionaries>
</ResourceDictionary>
</Window.Resources>
<StackPanel>
<Button Margin="10" Padding="5" Click="Clicked" Name="cmdOne">A Simple Button with a Custom Template</Button>
<Button Margin="10" Padding="5" IsEnabled="False" Click="Clicked" Name="cmdFour" >A Disabled Button</Button>
<CheckBox Margin="10" Checked="chkGreen_Checked" Unchecked="chkGreen_Unchecked">Use Alternate Theme</CheckBox>
</StackPanel>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Shapes
Namespace ControlTemplates
Public Partial Class GradientButtonTest
Inherits System.Windows.Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub Clicked(sender As Object, e As RoutedEventArgs)
MessageBox.Show("You clicked " & DirectCast(sender, Button).Name)
End Sub
Private Sub chkGreen_Checked(sender As Object, e As RoutedEventArgs)
Dim resourceDictionary As New ResourceDictionary()
resourceDictionary.Source = New Uri("a.xaml", UriKind.Relative)
Me.Resources.MergedDictionaries(0) = resourceDictionary
End Sub
Private Sub chkGreen_Unchecked(sender As Object, e As RoutedEventArgs)
Dim resourceDictionary As New ResourceDictionary()
resourceDictionary.Source = New Uri("b.xaml", UriKind.Relative)
Me.Resources.MergedDictionaries(0) = resourceDictionary
End Sub
End Class
End Namespace
]]>