Default starting text.
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls
Namespace WpfApplication1
Public Partial Class Window1
Inherits Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub AppendButton_Click(sender As Object, e As RoutedEventArgs)
textBox1.AppendText("text")
End Sub
Private Sub ClearButton_Click(sender As Object, e As RoutedEventArgs)
textBox1.Clear()
End Sub
Private Sub CutButton_Click(sender As Object, e As RoutedEventArgs)
If textBox1.SelectionLength = 0 Then
MessageBox.Show("Select text to cut first.", Title)
Else
MessageBox.Show("Cut: " + textBox1.SelectedText, Title)
textBox1.Cut()
End If
End Sub
Private Sub InsertButton_Click(sender As Object, e As RoutedEventArgs)
textBox1.Text = textBox1.Text.Insert(textBox1.CaretIndex, "text")
End Sub
Private Sub PasteButton_Click(sender As Object, e As RoutedEventArgs)
textBox1.Paste()
End Sub
Private Sub PrependButton_Click(sender As Object, e As RoutedEventArgs)
textBox1.Text = textBox1.Text.Insert(0, "Prepend")
End Sub
Private Sub SelectAllButton_Click(sender As Object, e As RoutedEventArgs)
textBox1.SelectAll()
textBox1.Focus()
End Sub
Private Sub TextButton_Click(sender As Object, e As RoutedEventArgs)
textBox1.Text = "new value"
End Sub
Private Sub UndoButton_Click(sender As Object, e As RoutedEventArgs)
textBox1.Undo()
End Sub
End Class
End Namespace