Routed Event Demo : RoutedCommand « Windows Presentation Foundation « VB.Net
Routed Event Demo
<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="WpfApplication1.RoutedEventDemo.RoutedEventDemo"
Title="Routed Event Demo">
<TextBlock Name="txtblk">TextBlock with Context Menu
<TextBlock.ContextMenu>
<ContextMenu MenuItem.Click="MenuItemOnClick">
<MenuItem Header="Red" />
<MenuItem Header="Orange" />
<MenuItem Header="Yellow" />
<MenuItem Header="Green" />
<MenuItem Header="Blue" />
<MenuItem Header="Indigo" />
<MenuItem Header="Violet" />
</ContextMenu>
</TextBlock.ContextMenu>
</TextBlock>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Input
Imports System.Windows.Media
Namespace WpfApplication1.RoutedEventDemo
Public Partial Class RoutedEventDemo
Inherits Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub MenuItemOnClick(sender As Object, args As RoutedEventArgs)
Dim str As String = TryCast(TryCast(args.Source, MenuItem).Header, String)
Dim clr As Color = CType(ColorConverter.ConvertFromString(str), Color)
txtblk.Foreground = New SolidColorBrush(clr)
End Sub
End Class
End Namespace
