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="editableRadioButton" >
Editable
HorizontalAlignment="Center" Margin="5"
Name="readonlyRadioButton">
Read Only
//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