This repository has been archived by the owner on Oct 2, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
fmDesigner.vb
37 lines (31 loc) · 1.6 KB
/
fmDesigner.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
Imports System
Imports System.ComponentModel.Design
Imports System.Windows.Forms
Imports DevExpress.DataAccess.UI.Wizard.Services
Imports DevExpress.XtraReports.UI
' ...
Namespace CustomRepositoryItem
Partial Public Class fmDesigner
Inherits Form
Private ReadOnly myRepositoryItemsProvider As MyRepositoryItemsProvider
Public Sub New()
InitializeComponent()
myRepositoryItemsProvider = New MyRepositoryItemsProvider()
ReplaceService(reportDesignerMDIController, GetType(IRepositoryItemsProvider), myRepositoryItemsProvider)
AddHandler reportDesignerMDIController.DesignPanelLoaded, AddressOf reportDesignerMDIController_DesignPanelLoaded
End Sub
Private Sub reportDesignerMDIController_DesignPanelLoaded(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UserDesigner.DesignerLoadedEventArgs)
ReplaceService(e.DesignerHost, GetType(IRepositoryItemsProvider), myRepositoryItemsProvider)
End Sub
Private Sub ReplaceService(ByVal container As IServiceContainer, ByVal serviceType As Type, ByVal serviceInstance As Object)
If container.GetService(serviceType) IsNot Nothing Then
container.RemoveService(serviceType)
End If
container.AddService(serviceType, serviceInstance)
End Sub
Private Sub fmDesigner_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim report As XtraReport = New XtraReport1()
reportDesignerMDIController.OpenReport(report)
End Sub
End Class
End Namespace