Use RadioButton to control TextBox alignment : RadioButton « Windows Presentation Foundation « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows Presentation Foundation
3. RadioButton

<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

16.14.RadioButton
	16.14.1.	Grouping radio buttons by parent
	16.14.2.	Grouping radio buttons by name
	16.14.3.	CheckRadio Group
	16.14.4.	Image RadioButton
	16.14.5.	RadioButton click event
	16.14.6.	Use RadioButton to control TextBox alignment
	16.14.7.	RadioButton checked event handler