xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="WPF" Height="300" Width="300">
Name="textBox1" TextAlignment="Left" TextWrapping="Wrap"
VerticalScrollBarVisibility="Auto">
Default starting text.
HorizontalAlignment="Center" IsChecked="True"
Margin="5" Name="leftAlignRadioButton">
Left
HorizontalAlignment="Center" Margin="5"
Name="centerAlignRadioButton">
Center
HorizontalAlignment="Center" Margin="5"
Name="rightAlignRadioButton">
Right
//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