Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Format TextBox with MenuItem

<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="200" Width="300">     <DockPanel LastChildFill="True">         <Menu DockPanel.Dock="Top">             <MenuItem Header="_Edit">                 <MenuItem Header="Cu_t" Command="ApplicationCommands.Cut" />                 <MenuItem Header="_Copy" Command="ApplicationCommands.Copy" />                 <MenuItem Header="_Paste" Command="ApplicationCommands.Paste"/>                 <Separator/>                 <MenuItem Click="SelectAll_Click" Header="_Select All" />                 <MenuItem Click="Clear_Click" Header="_Clear" />             </MenuItem>             <MenuItem Header="_Format">                 <MenuItem Click="TextStyle_Click" Header="_Normal" Name="miNormal" />                 <MenuItem Click="TextStyle_Click" FontWeight="Bold" Header="_Bold" Name="miBold" />                 <MenuItem Click="TextStyle_Click" FontStyle="Italic" Header="_Italic" Name="miItalic" />             </MenuItem>         </Menu>         <TextBox Name="txtTextBox" TextWrapping="Wrap">             text         </TextBox>     </DockPanel> </Window> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Linq 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.Navigation Imports System.Windows.Shapes 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