Load or Save the Content of a RichTextBox : RichTextBox « Windows Presentation Foundation « VB.Net Tutorial

Home
VB.Net Tutorial
1.Language Basics
2.Data Type
3.Operator
4.Statements
5.Date Time
6.Class Module
7.Development
8.Collections
9.Generics
10.Attributes
11.Event
12.LINQ
13.Stream File
14.GUI
15.GUI Applications
16.Windows Presentation Foundation
17.2D Graphics
18.I18N Internationlization
19.Reflection
20.Regular Expressions
21.Security
22.Socket Network
23.Thread
24.Windows
25.XML
26.Database ADO.net
27.Design Patterns
VB.Net
VB.Net by API
VB.Net Tutorial » Windows Presentation Foundation » RichTextBox 
16.17.10.Load or Save the Content of a RichTextBox
<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">
    <DockPanel>
        <StackPanel DockPanel.Dock="Top" Orientation="Horizontal">
            <Button Content="_New" Name="btnNew" Click="btnNew_Click" />
            <Button Content="_Open" Name="btnOpen" Click="btnOpen_Click" />
            <Button Content="_Save" Name="btnSave" Click="btnSave_Click" />
        </StackPanel>
        <RichTextBox DockPanel.Dock="Bottom" Name="rtbTextBox1"
                     HorizontalScrollBarVisibility="Visible" 
                     VerticalScrollBarVisibility="Visible">
            <FlowDocument>
                <Paragraph>this is a test</Paragraph>
                <Paragraph>this is a test</Paragraph>
            </FlowDocument>
        </RichTextBox>
    </DockPanel>
</Window>

//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
WPF Load Or Save The Content Of A Rich Text Box
16.17.RichTextBox
16.17.1.Programmatically Insert Text into a RichTextBoxProgrammatically Insert Text into a RichTextBox
16.17.2.Get selected text from RichTextBox by using RichTextBox.Selection.TextGet selected text from RichTextBox by using RichTextBox.Selection.Text
16.17.3.Get Caret Position in a RichTextBox by using RichTextBox.CaretPosition.GetPositionAtOffsetGet Caret Position in a RichTextBox by using RichTextBox.CaretPosition.GetPositionAtOffset
16.17.4.Get the content from the rich text box.Get the content from the rich text box.
16.17.5.Add / Remove TextChanged event for RichTextBoxAdd / Remove TextChanged event for RichTextBox
16.17.6.Clear any formatting applied to the text with TextRange.ClearAllProperties();Clear any formatting applied to the text with TextRange.ClearAllProperties();
16.17.7.Apply Syntax Highlighting in a Text ControlApply Syntax Highlighting in a Text Control
16.17.8.Select all text from RichTextBox and cutSelect all text from RichTextBox and cut
16.17.9.Use Application Command to edit RichTextBoxUse Application Command to edit RichTextBox
16.17.10.Load or Save the Content of a RichTextBoxLoad or Save the Content of a RichTextBox
16.17.11.Display a Password Entry Box and get the inputDisplay a Password Entry Box and get the input
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.