Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Set TextBox to editable

<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/>             </Grid.ColumnDefinitions>             <RadioButton Checked="EditableChecked" Grid.Column="0"                           HorizontalAlignment="Center" IsChecked="True"                          Margin="5" Name="editableRadioButton" >                 Editable</RadioButton>             <RadioButton Checked="EditableChecked" Grid.Column="1"                           HorizontalAlignment="Center" Margin="5"                          Name="readonlyRadioButton">                 Read Only</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 EditableChecked(sender As Object, e As RoutedEventArgs)       Dim button As RadioButton = TryCast(e.OriginalSource, RadioButton)       If e.OriginalSource Is editableRadioButton Then         textBox1.IsReadOnly = False       ElseIf e.OriginalSource Is readonlyRadioButton Then         textBox1.IsReadOnly = True       End If       textBox1.Focus()     End Sub   End Class End Namespace