-
Notifications
You must be signed in to change notification settings - Fork 0
/
MainWindow.xaml.vb
62 lines (52 loc) · 2.55 KB
/
MainWindow.xaml.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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Imports System
Imports System.Windows
Imports DevExpress.XtraRichEdit.API.Native
Imports DevExpress.XtraRichEdit
'#Region "#usings"
Imports DevExpress.Services
'#End Region ' #usings
Namespace ProgressIndicator
''' <summary>
''' Interaction logic for MainWindow.xaml
''' </summary>
Public Partial Class MainWindow
Inherits Window
Public Sub New()
Me.InitializeComponent()
End Sub
Private Sub richEditControl1_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
Me.richEditControl1.ApplyTemplate()
Me.richEditControl1.LoadDocument("Docs\invitation.docx")
Me.richEditControl1.Options.MailMerge.DataSource = New SampleData()
End Sub
Private Sub btnMailMerge_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim myMergeOptions As MailMergeOptions = Me.richEditControl1.Document.CreateMailMergeOptions()
myMergeOptions.MergeMode = MergeMode.NewSection
Me.richEditControl1.Document.MailMerge(myMergeOptions, Me.richEditControl2.Document)
Me.tabControl.SelectedIndex = 1
End Sub
Private Sub richEditControl1_MailMergeStarted(ByVal sender As Object, ByVal e As MailMergeStartedEventArgs)
'#Region "#servicesubst"
Me.richEditControl1.ReplaceService(Of IProgressIndicationService)(New MyProgressIndicatorService(Me.richEditControl1, Me.progressBarControl1))
'#End Region ' #servicesubst
End Sub
Private Sub richEditControl1_MailMergeFinished(ByVal sender As Object, ByVal e As MailMergeFinishedEventArgs)
Me.richEditControl1.RemoveService(GetType(IProgressIndicationService))
End Sub
Private Sub richEditControl1_MailMergeRecordStarted(ByVal sender As Object, ByVal e As MailMergeRecordStartedEventArgs)
' Imitating slow data fetching
Threading.Thread.Sleep(100)
End Sub
Private Sub richEditControl1_MailMergeRecordFinished(ByVal sender As Object, ByVal e As MailMergeRecordFinishedEventArgs)
e.RecordDocument.AppendDocumentContent("Docs\bungalow.docx", DocumentFormat.OpenXml)
End Sub
Private Sub tabControl_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Xpf.Core.TabControlSelectionChangedEventArgs)
Select Case Me.tabControl.SelectedIndex
Case 0
Me.btnMailMerge.IsEnabled = True
Case 1
Me.btnMailMerge.IsEnabled = False
End Select
End Sub
End Class
End Namespace