/
ImportActions.vb
44 lines (38 loc) · 1.88 KB
/
ImportActions.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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
Private Shared Sub ImportRtfText(ByVal wordProcessor As DevExpress.XtraRichEdit.RichEditDocumentServer)
#Region "#ImportRtfText"
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}"
Dim document As DevExpress.XtraRichEdit.API.Native.Document = wordProcessor.Document
document.RtfText = rtfString
#End Region ' #ImportRtfText
End Sub
Private Shared Sub BeforeImport(ByVal wordProcessor As DevExpress.XtraRichEdit.RichEditDocumentServer)
#Region "#HandleBeforeImportEvent"
AddHandler wordProcessor.BeforeImport, AddressOf RichEditDocumentServerAPIExample.CodeExamples.ImportActions.BeforeImportHelper.BeforeImport
wordProcessor.LoadDocument("Documents\TerribleRevengeKOI8R.txt")
#End Region ' #HandleBeforeImportEvent
End Sub
#Region "#@HandleBeforeImportEvent"
Private Class BeforeImportHelper
Public Shared Sub BeforeImport(ByVal sender As Object, ByVal e As DevExpress.XtraRichEdit.BeforeImportEventArgs)
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
End Class
#End Region ' #@HandleBeforeImportEvent
End Class
End Namespace