<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>
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition/>
<ColumnDefinition/>
<ColumnDefinition/>
</Grid.ColumnDefinitions>
<RadioButton Checked="AlignmentChecked" Grid.Column="0"
HorizontalAlignment="Center" IsChecked="True"
Margin="5" Name="leftAlignRadioButton">
Left</RadioButton>
<RadioButton Checked="AlignmentChecked" Grid.Column="1"
HorizontalAlignment="Center" Margin="5"
Name="centerAlignRadioButton">
Center</RadioButton>
<RadioButton Checked="AlignmentChecked" Grid.Column="2"
HorizontalAlignment="Center" Margin="5"
Name="rightAlignRadioButton">
Right</RadioButton>
</Grid>
</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 AlignmentChecked(sender As Object, e As RoutedEventArgs)
Dim button As RadioButton = TryCast(e.OriginalSource, RadioButton)
If e.OriginalSource Is leftAlignRadioButton Then
textBox1.TextAlignment = TextAlignment.Left
ElseIf e.OriginalSource Is centerAlignRadioButton Then
textBox1.TextAlignment = TextAlignment.Center
ElseIf e.OriginalSource Is rightAlignRadioButton Then
textBox1.TextAlignment = TextAlignment.Right
End If
textBox1.Focus()
End Sub
End Class
End Namespace
|
