xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="WPF" Height="300" Width="300">
VerticalScrollBarVisibility="Visible">
this is a test
//File:Window.xaml.vb
Imports Microsoft.Win32
Imports System
Imports System.IO
Imports System.Windows
Imports System.Windows.Documents
Imports System.Windows.Markup
Namespace WpfApplication1
Public Partial Class Window1
Inherits Window
Private currentFileName As [String] = [String].Empty
Public Sub New()
InitializeComponent()
End Sub
Private Sub btnOpen_Click(sender As Object, e As RoutedEventArgs)
Dim dialog As New OpenFileDialog()
dialog.FileName = currentFileName
dialog.Filter = "XAML Files (*.xaml)|*.xaml"
If dialog.ShowDialog() = True Then
currentFileName = dialog.FileName
If True Then
Using stream As FileStream = File.Open(currentFileName, FileMode.Open)
Dim doc As FlowDocument = TryCast(XamlReader.Load(stream), FlowDocument)
If doc Is Nothing Then
MessageBox.Show("Could not load document.", Title)
Else
rtbTextBox1.Document = doc
End If
End Using
End If
End If
End Sub
Private Sub btnNew_Click(sender As Object, e As RoutedEventArgs)
rtbTextBox1.Document = New FlowDocument()
currentFileName = [String].Empty
End Sub
Private Sub btnSave_Click(sender As Object, e As RoutedEventArgs)
Dim dialog As New SaveFileDialog()
dialog.FileName = currentFileName
dialog.Filter = "XAML Files (*.xaml)|*.xaml"
If dialog.ShowDialog() = True Then
currentFileName = dialog.FileName
Using stream As FileStream = File.Open(currentFileName, FileMode.Create)
XamlWriter.Save(rtbTextBox1.Document, stream)
End Using
End If
End Sub
End Class
End Namespace