Mega Code Archive

 

Categories / VB.Net / WPF

 

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