-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form1.vb
48 lines (40 loc) · 1.77 KB
/
Form1.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
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.XtraReports.UserDesigner
Namespace CustomSavingEUD
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
' Create an MDI (multi-document interface) controller instance.
Private mdiController As XRDesignMdiController
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
' Create a design form and get its MDI controller.
Dim form As New XRDesignForm()
mdiController = form.DesignMdiController
' Handle the DesignPanelLoaded event of the MDI controller,
' to override the SaveCommandHandler for every loaded report.
AddHandler mdiController.DesignPanelLoaded, AddressOf mdiController_DesignPanelLoaded
'Override the Open Command.
mdiController.AddCommandHandler(New OpenCommandHandler())
' Open an empty report in the form.
mdiController.OpenReport(New XtraReport1())
' Show the form.
form.ShowDialog()
If mdiController.ActiveDesignPanel IsNot Nothing Then
mdiController.ActiveDesignPanel.CloseReport()
End If
End Sub
Private Sub mdiController_DesignPanelLoaded(ByVal sender As Object, ByVal e As DesignerLoadedEventArgs)
Dim panel As XRDesignPanel = DirectCast(sender, XRDesignPanel)
panel.AddCommandHandler(New SaveCommandHandler(panel))
End Sub
End Class
End Namespace