xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="WPF" Height="100" Width="300">
A TextBox control with ContextMenu.
//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