/
CustomChooseReportTypePage.vb
35 lines (31 loc) · 1.4 KB
/
CustomChooseReportTypePage.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
Imports DevExpress.DataAccess.Sql
Imports DevExpress.DataAccess.Wizard
Imports DevExpress.DataAccess.Wizard.Services
Imports DevExpress.Entity.ProjectModel
Imports DevExpress.XtraReports.Wizards
Imports DevExpress.XtraReports.Wizards.Presenters
Imports DevExpress.XtraReports.Wizards.Views
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Namespace CustomReportWizard
Friend Class CustomChooseReportTypePage
Inherits ChooseReportTypePage(Of XtraReportModel)
Public Sub New(ByVal view As IChooseReportTypePageView, ByVal connectionStorageService As IConnectionStorageService, ByVal dataSourceTypes As DataSourceTypes, ByVal context As IWizardRunnerContext, ByVal solutionTypesProvider As ISolutionTypesProvider)
MyBase.New(view, connectionStorageService, dataSourceTypes, context, solutionTypesProvider)
End Sub
Public Overrides ReadOnly Property MoveNextEnabled() As Boolean
Get
Return True
End Get
End Property
Public Overrides Function GetNextPageType() As Type
If View.ReportType = ReportType.Standard OrElse View.ReportType = ReportType.Empty Then
Return GetType(ChoosePageSettingsPage(Of CustomReportModel))
End If
Return MyBase.GetNextPageType()
End Function
End Class
End Namespace