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






Use RadioButton to control TextBox alignment

Use RadioButton to control TextBox alignment
   

<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

   
    
    
  








Related examples in the same category

1.Grouping radio buttons by parentGrouping radio buttons by parent
2.Grouping radio buttons by nameGrouping radio buttons by name
3.CheckRadio GroupCheckRadio Group
4.Image RadioButtonImage RadioButton
5.RadioButton click eventRadioButton click event
6.RadioButton checked event handlerRadioButton checked event handler