Display a Context Menu with Opacity : Menu « Windows Presentation Foundation « VB.Net
Display a Context Menu with Opacity
<Window x:Class="WpfApplication1.Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="WPF" Height="100" Width="300">
<Grid>
<TextBox FontSize="16" Height="23" Name="txtTextBox" >
<TextBox.ContextMenu>
<ContextMenu HasDropShadow="True" Opacity=".8">
<MenuItem Command="Cut" Header="Cu_t" />
<MenuItem Command="Copy" Header="_Copy" />
<MenuItem Command="Paste" Header="_Paste" />
<Separator/>
<MenuItem Click="SelectAll_Click" Header="_Select All" />
<MenuItem Click="Clear_Click" Header="_Clear" />
<Separator/>
<MenuItem Header="Format">
<MenuItem Click="TextStyle_Click" Header="_Normal" Name="miNormal"></MenuItem>
<MenuItem Click="TextStyle_Click" FontWeight="Bold" Header="_Bold" Name="miBold"></MenuItem>
<MenuItem Click="TextStyle_Click" FontStyle="Italic" Header="_Italic" Name="miItalic"></MenuItem>
</MenuItem>
</ContextMenu>
</TextBox.ContextMenu>
A TextBox control with ContextMenu.
</TextBox>
</Grid>
</Window>
//File:Window.xaml.vb
Imports System.Windows
Namespace WpfApplication1
Public Partial Class Window1
Inherits Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub Clear_Click(sender As Object, e As RoutedEventArgs)
txtTextBox.Clear()
End Sub
Private Sub SelectAll_Click(sender As Object, e As RoutedEventArgs)
txtTextBox.SelectAll()
End Sub
Private Sub TextStyle_Click(sender As Object, e As RoutedEventArgs)
If sender Is miNormal Then
txtTextBox.FontWeight = FontWeights.Normal
txtTextBox.FontStyle = FontStyles.Normal
ElseIf sender Is miBold Then
txtTextBox.FontWeight = FontWeights.Bold
ElseIf sender Is miItalic Then
txtTextBox.FontStyle = FontStyles.Italic
End If
End Sub
End Class
End Namespace
