Display a Context Menu with Opacity : Menu « Windows Presentation Foundation « VB.Net Tutorial






<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
WPF Display A Context Menu With Opacity








16.22.Menu
16.22.1.Mixed MenusMixed Menus
16.22.2.Sidebar MenuSidebar Menu
16.22.3.Put a Menu and toolbar on the top of a DockPanelPut a Menu and toolbar on the top of a DockPanel
16.22.4.Nesting content inside MenuItem.HeaderNesting content inside MenuItem.Header
16.22.5.Multiple command targetsMultiple command targets
16.22.6.Commands with a menu and text boxCommands with a menu and text box
16.22.7.Set Access key for Menu with underscoreSet Access key for Menu with underscore
16.22.8.Menu and MenuItemMenu and MenuItem
16.22.9.MenuItem Commands And EventsMenuItem Commands And Events
16.22.10.Display a Context Menu with OpacityDisplay a Context Menu with Opacity
16.22.11.MenuBar and ToolBarMenuBar and ToolBar
16.22.12.Add Menu to NavigationWindow ContentAdd Menu to NavigationWindow Content
16.22.13.Menu item action handlerMenu item action handler