<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="300" Width="300">
<StackPanel>
<TextBox AcceptsReturn="True" Height="100" IsReadOnly="True"
Name="textBox1" TextAlignment="Left" TextWrapping="Wrap"
VerticalScrollBarVisibility="Auto">
Default starting text.
</TextBox>
<WrapPanel Margin="10">
<Button Margin="5" Name="textButton" Width="75" Click="TextButton_Click">Set Text</Button>
<Button Margin="5" Name="selectAllButton" Width="75" Click="SelectAllButton_Click">Select All</Button>
<Button Margin="5" Name="clearButton" Width="75" Click="ClearButton_Click">Clear</Button>
<Button Margin="5" Name="prependButton" Width="75" Click="PrependButton_Click">Prepend</Button>
<Button Margin="5" Name="insertButton" Width="75" Click="InsertButton_Click">Insert</Button>
<Button Margin="5" Name="appendButton" Width="75" Click="AppendButton_Click">Append</Button>
<Button Margin="5" Name="cutButton" Width="75" Click="CutButton_Click">Cut</Button>
<Button Margin="5" Name="pasteButton" Width="75" Click="PasteButton_Click">Paste</Button>
<Button Margin="5" Name="undoButton" Width="75" Click="UndoButton_Click">Undo</Button>
</WrapPanel>
</StackPanel>
</Window>
//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
|
