ImportActions.vb

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraRichEdit.API.Native
Imports DevExpress.XtraRichEdit.Import

Namespace RichEditDocumentServerAPIExample.CodeExamples

    Friend Class ImportActions

        Public Shared ImportRtfTextAction As System.Action(Of DevExpress.XtraRichEdit.RichEditDocumentServer) = AddressOf RichEditDocumentServerAPIExample.CodeExamples.ImportActions.ImportRtfText

        Public Shared BeforeImportAction As System.Action(Of DevExpress.XtraRichEdit.RichEditDocumentServer) = AddressOf RichEditDocumentServerAPIExample.CodeExamples.ImportActions.BeforeImport

        Private Shared Sub ImportRtfText(ByVal wordProcessor As DevExpress.XtraRichEdit.RichEditDocumentServer)
#Region "#ImportRtfText"
            ' Specify the formatted text.
            Dim rtfString As String = "{\rtf1\ansi\ansicpg1252\deff0\deflang1049
{\fonttbl{\f0\fswiss\fprq2\fcharset0 Arial;}
{\f1\fswiss\fcharset0 Arial;}}
{\colortbl ;\red0\green0\blue255;}
\viewkind4\uc1\pard\cf1\lang1033\b\f0\fs32 Test.\cf0\b0\f1\fs20\par}"
            ' Access a document.
            Dim document As DevExpress.XtraRichEdit.API.Native.Document = wordProcessor.Document
            ' Import formatted text to the document.
            document.RtfText = rtfString
#End Region  ' #ImportRtfText
        End Sub

        Private Shared Sub BeforeImport(ByVal wordProcessor As DevExpress.XtraRichEdit.RichEditDocumentServer)
#Region "#HandleBeforeImportEvent"
            ' Handle the Before Import event.
            AddHandler wordProcessor.BeforeImport,
                Sub(s, e)
                    ' Specify the encoding before plain text is imported to the document.
                    If e.DocumentFormat = DevExpress.XtraRichEdit.DocumentFormat.PlainText Then
                        CType(e.Options, DevExpress.XtraRichEdit.Import.PlainTextDocumentImporterOptions).Encoding = System.Text.Encoding.GetEncoding(20866)
                    End If
                End Sub
            ' Load a document from a file.
            wordProcessor.LoadDocument("Documents\TerribleRevengeKOI8R.txt")
#End Region  ' #HandleBeforeImportEvent
        End Sub
    End Class
End Namespace