diff --git a/VB/DXSample.sln b/VB/DXSample.sln new file mode 100644 index 0000000..167704a --- /dev/null +++ b/VB/DXSample.sln @@ -0,0 +1,24 @@ +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 16.0.30611.23 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DXSample", "MinimalisticReportPreviewDemo\DXSample.vbproj", "{03842F9F-5A5D-4B93-9165-A9B9D325709C}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|x86 = Debug|x86 + Release|x86 = Release|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {03842F9F-5A5D-4B93-9165-A9B9D325709C}.Debug|x86.ActiveCfg = Debug|x86 + {03842F9F-5A5D-4B93-9165-A9B9D325709C}.Debug|x86.Build.0 = Debug|x86 + {03842F9F-5A5D-4B93-9165-A9B9D325709C}.Release|x86.ActiveCfg = Release|x86 + {03842F9F-5A5D-4B93-9165-A9B9D325709C}.Release|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {F75CEC5A-6586-4DC0-9670-725B42DA34E0} + EndGlobalSection +EndGlobal diff --git a/VB/MinimalisticReportPreviewDemo/Application.xaml b/VB/MinimalisticReportPreviewDemo/Application.xaml new file mode 100644 index 0000000..ea5afec --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/Application.xaml @@ -0,0 +1,5 @@ + + + + + diff --git a/VB/MinimalisticReportPreviewDemo/Application.xaml.vb b/VB/MinimalisticReportPreviewDemo/Application.xaml.vb new file mode 100644 index 0000000..ecfc036 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/Application.xaml.vb @@ -0,0 +1,16 @@ +Imports System +Imports System.Collections.Generic +Imports System.Configuration +Imports System.Data +Imports System.Linq +Imports System.Windows + +Namespace DXSample + ''' + ''' Interaction logic for App.xaml + ''' + Partial Public Class App + Inherits Application + + End Class +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/DXSample.vbproj b/VB/MinimalisticReportPreviewDemo/DXSample.vbproj new file mode 100644 index 0000000..2fee088 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/DXSample.vbproj @@ -0,0 +1,271 @@ + + + + Debug + x86 + 8.0.30703 + 2.0 + {03842F9F-5A5D-4B93-9165-A9B9D325709C} + WinExe + + MinimalisticReportPreviewDemo + v4.5.2 + 512 + {60dc8134-eba5-43b8-bcc9-bb4bc16c2548};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} + On + Binary + Off + On + + + x86 + true + full + false + bin\Debug\ + true + true + prompt + true + false + true + + + x86 + pdbonly + true + bin\Release\ + false + true + prompt + false + true + + + + + + + + + + + + + + + + + + + + + + + + + False + True + C:\DXDlls\20.1.8\DevExpress.Charts.v20.1.Core.dll + + + True + C:\DXDlls\20.1.8\DevExpress.DataAccess.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Office.v20.1.Core.dll + + + True + C:\DXDlls\20.1.8\DevExpress.Pdf.v20.1.Core.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.RichEdit.v20.1.Core.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.RichEdit.v20.1.Export.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Printing.v20.1.Core.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Data.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Utils.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Mvvm.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Xpf.CodeView.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Data.Desktop.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Xpf.Core.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Xpf.DocumentViewer.v20.1.Core.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Xpf.Printing.v20.1.dll + + + True + C:\DXDlls\20.1.8\DevExpress.Xpo.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.XtraCharts.v20.1.dll + + + True + C:\DXDlls\20.1.8\DevExpress.XtraGauges.v20.1.Core.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.XtraPivotGrid.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.PivotGrid.v20.1.Core.dll + + + True + C:\DXDlls\20.1.8\DevExpress.XtraPrinting.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.XtraReports.v20.1.Extensions.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.Sparkline.v20.1.Core.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.CodeParser.v20.1.dll + + + False + True + C:\DXDlls\20.1.8\DevExpress.XtraReports.v20.1.dll + + + + + + + + + + + + 4.0 + + + + + + + + MSBuild:Compile + Designer + + + Component + + + XtraReport1.vb + + + MSBuild:Compile + Designer + + + Application.xaml + Code + + + MainWindow.xaml + Code + + + + + + Code + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + + + XtraReport1.vb + + + + SettingsSingleFileGenerator + Settings.Designer.vb + My + + + + + + Always + + + + + \ No newline at end of file diff --git a/VB/MinimalisticReportPreviewDemo/MainWindow.xaml b/VB/MinimalisticReportPreviewDemo/MainWindow.xaml new file mode 100644 index 0000000..07464d8 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/MainWindow.xaml @@ -0,0 +1,6 @@ + + + diff --git a/VB/MinimalisticReportPreviewDemo/MainWindow.xaml.vb b/VB/MinimalisticReportPreviewDemo/MainWindow.xaml.vb new file mode 100644 index 0000000..fc756e9 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/MainWindow.xaml.vb @@ -0,0 +1,29 @@ +Imports System.Windows +Imports DevExpress.Xpf.Core +Imports DevExpress.Xpf.Printing +' ... + +Namespace DXSample + ''' + ''' Interaction logic for MainWindow.xaml + ''' + Partial Public Class MainWindow + Inherits Window + + Public Sub New() + InitializeComponent() + End Sub + + Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs) + Dim report As XtraReport1 = New XtraReport1() + Dim preview = New MyDocumentPreviewControl() With { + .DocumentSource = report + } + Dim window = New Window() With { + .Content = preview + } + report.CreateDocument(True) + window.ShowDialog() + End Sub + End Class +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/My Project/AssemblyInfo.vb b/VB/MinimalisticReportPreviewDemo/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..4e2646f --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/My Project/AssemblyInfo.vb @@ -0,0 +1,48 @@ +Imports System.Reflection +Imports System.Resources +Imports System.Runtime.CompilerServices +Imports System.Runtime.InteropServices +Imports System.Windows + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + + + + + + + + + +' Setting ComVisible to false makes the types in this assembly not visible +' to COM components. If you need to access a type in this assembly from +' COM, set the ComVisible attribute to true on that type. + + +'In order to begin building localizable applications, set +'CultureYouAreCodingWith in your .csproj file +'inside a . For example, if you are using US english +'in your source files, set the to en-US. Then uncomment +'the NeutralResourceLanguage attribute below. Update the "en-US" in +'the line below to match the UICulture setting in the project file. + +'[assembly: NeutralResourcesLanguage("en-US", UltimateResourceFallbackLocation.Satellite)] + + + + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' [assembly: AssemblyVersion("1.0.*")] + + diff --git a/VB/MinimalisticReportPreviewDemo/My Project/Resources.Designer.vb b/VB/MinimalisticReportPreviewDemo/My Project/Resources.Designer.vb new file mode 100644 index 0000000..ff4afc2 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/My Project/Resources.Designer.vb @@ -0,0 +1,65 @@ +Imports System + +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Namespace My.Resources + + + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + ' This class was auto-generated by the StronglyTypedResourceBuilder + ' class via a tool like ResGen or Visual Studio. + ' To add or remove a member, edit your .ResX file then rerun ResGen + ' with the /str option, or rebuild your VS project. + + + + Friend Module Resources + + Private resourceMan As System.Resources.ResourceManager + + Private resourceCulture As System.Globalization.CultureInfo + +' internal Resources() +' { +' } + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + + Friend ReadOnly Property ResourceManager() As System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As New System.Resources.ResourceManager("Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + + Friend Property Culture() As System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/My Project/Resources.resx b/VB/MinimalisticReportPreviewDemo/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/VB/MinimalisticReportPreviewDemo/My Project/Settings.Designer.vb b/VB/MinimalisticReportPreviewDemo/My Project/Settings.Designer.vb new file mode 100644 index 0000000..f04fbbf --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/My Project/Settings.Designer.vb @@ -0,0 +1,37 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Namespace My + + + + + Friend NotInheritable Partial Class Settings + Inherits System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As Settings = (CType(System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()), Settings)) + + Public Shared ReadOnly Property [Default]() As Settings + Get + Return defaultInstance + End Get + End Property + + + + + + Public ReadOnly Property nwindConnectionString() As String + Get + Return (DirectCast(Me("nwindConnectionString"), String)) + End Get + End Property + End Class +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/My Project/Settings.settings b/VB/MinimalisticReportPreviewDemo/My Project/Settings.settings new file mode 100644 index 0000000..4d4a5fa --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/My Project/Settings.settings @@ -0,0 +1,14 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\nwind.mdb;Persist Security Info=True</ConnectionString> + <ProviderName>System.Data.OleDb</ProviderName> +</SerializableConnectionString> + Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\nwind.mdb;Persist Security Info=True + + + \ No newline at end of file diff --git a/VB/MinimalisticReportPreviewDemo/My Project/licenses.licx b/VB/MinimalisticReportPreviewDemo/My Project/licenses.licx new file mode 100644 index 0000000..e69de29 diff --git a/VB/MinimalisticReportPreviewDemo/MyDocumentPreviewControl.vb b/VB/MinimalisticReportPreviewDemo/MyDocumentPreviewControl.vb new file mode 100644 index 0000000..6d1bc64 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/MyDocumentPreviewControl.vb @@ -0,0 +1,32 @@ +Imports DevExpress.Xpf.Printing +Imports System +Imports System.Collections.Generic +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpf.Printing.PreviewControl +Imports DevExpress.XtraPrinting + +Namespace DXSample + Public Class MyDocumentPreviewControl + Inherits DocumentPreviewControl + + Public Overrides Sub Print() + Dim pt As New PrintTool(Document.PrintingSystem) + AddHandler pt.PrintingSystem.StartPrint, AddressOf PrintingSystem_StartPrint + AddHandler pt.PrintingSystem.PrintProgress, AddressOf PrintingSystem_PrintProgress + pt.PrintDialog() + End Sub + Public Overrides Sub PrintDirect(Optional ByVal printerName As String = Nothing) + Dim pt As New PrintTool(Document.PrintingSystem) + AddHandler pt.PrintingSystem.StartPrint, AddressOf PrintingSystem_StartPrint + AddHandler pt.PrintingSystem.PrintProgress, AddressOf PrintingSystem_PrintProgress + pt.Print() + End Sub + Private Sub PrintingSystem_PrintProgress(ByVal sender As Object, ByVal e As PrintProgressEventArgs) + + End Sub + Private Sub PrintingSystem_StartPrint(ByVal sender As Object, ByVal e As PrintDocumentEventArgs) + + End Sub + End Class +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/XtraReport1.Designer.vb b/VB/MinimalisticReportPreviewDemo/XtraReport1.Designer.vb new file mode 100644 index 0000000..88ac911 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/XtraReport1.Designer.vb @@ -0,0 +1,347 @@ +Namespace DXSample + Partial Public Class XtraReport1 + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso (components IsNot Nothing) Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + #Region "Designer generated code" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim selectQuery1 As New DevExpress.DataAccess.Sql.SelectQuery() + Dim column1 As New DevExpress.DataAccess.Sql.Column() + Dim columnExpression1 As New DevExpress.DataAccess.Sql.ColumnExpression() + Dim table3 As New DevExpress.DataAccess.Sql.Table() + Dim column2 As New DevExpress.DataAccess.Sql.Column() + Dim columnExpression2 As New DevExpress.DataAccess.Sql.ColumnExpression() + Dim column3 As New DevExpress.DataAccess.Sql.Column() + Dim columnExpression3 As New DevExpress.DataAccess.Sql.ColumnExpression() + Dim column4 As New DevExpress.DataAccess.Sql.Column() + Dim columnExpression4 As New DevExpress.DataAccess.Sql.ColumnExpression() +'INSTANT VB NOTE: The variable resources was renamed since it may cause conflicts with calls to static members of the user-defined type with this name: + Dim resources_Conflict As New System.ComponentModel.ComponentResourceManager(GetType(XtraReport1)) + Me.sqlDataSource1 = New DevExpress.DataAccess.Sql.SqlDataSource(Me.components) + Me.Title = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailCaption1 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailData1 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailData3_Odd = New DevExpress.XtraReports.UI.XRControlStyle() + Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle() + Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand() + Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand() + Me.ReportHeader = New DevExpress.XtraReports.UI.ReportHeaderBand() + Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand() + Me.Detail = New DevExpress.XtraReports.UI.DetailBand() + Me.pageInfo1 = New DevExpress.XtraReports.UI.XRPageInfo() + Me.pageInfo2 = New DevExpress.XtraReports.UI.XRPageInfo() + Me.label1 = New DevExpress.XtraReports.UI.XRLabel() + Me.table1 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow1 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell1 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell2 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell3 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell4 = New DevExpress.XtraReports.UI.XRTableCell() + Me.table2 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow2 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell5 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell6 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell7 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell8 = New DevExpress.XtraReports.UI.XRTableCell() + Me.pictureBox1 = New DevExpress.XtraReports.UI.XRPictureBox() + CType(Me.table1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.table2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + ' sqlDataSource1 + ' + Me.sqlDataSource1.ConnectionName = "nwind.mdb" + Me.sqlDataSource1.Name = "sqlDataSource1" + columnExpression1.ColumnName = "CategoryID" + table3.Name = "Categories" + columnExpression1.Table = table3 + column1.Expression = columnExpression1 + columnExpression2.ColumnName = "CategoryName" + columnExpression2.Table = table3 + column2.Expression = columnExpression2 + columnExpression3.ColumnName = "Description" + columnExpression3.Table = table3 + column3.Expression = columnExpression3 + columnExpression4.ColumnName = "Picture" + columnExpression4.Table = table3 + column4.Expression = columnExpression4 + selectQuery1.Columns.Add(column1) + selectQuery1.Columns.Add(column2) + selectQuery1.Columns.Add(column3) + selectQuery1.Columns.Add(column4) + selectQuery1.Name = "Categories" + selectQuery1.Tables.Add(table3) + Me.sqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() { selectQuery1}) + Me.sqlDataSource1.ResultSchemaSerializable = resources_Conflict.GetString("sqlDataSource1.ResultSchemaSerializable") + ' + ' Title + ' + Me.Title.BackColor = System.Drawing.Color.Transparent + Me.Title.BorderColor = System.Drawing.Color.Black + Me.Title.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.Title.BorderWidth = 1F + Me.Title.Font = New System.Drawing.Font("Arial", 14.25F) + Me.Title.ForeColor = System.Drawing.Color.FromArgb((CInt((CByte(75)))), (CInt((CByte(75)))), (CInt((CByte(75))))) + Me.Title.Name = "Title" + ' + ' DetailCaption1 + ' + Me.DetailCaption1.BackColor = System.Drawing.Color.FromArgb((CInt((CByte(75)))), (CInt((CByte(75)))), (CInt((CByte(75))))) + Me.DetailCaption1.BorderColor = System.Drawing.Color.White + Me.DetailCaption1.Borders = DevExpress.XtraPrinting.BorderSide.Left + Me.DetailCaption1.BorderWidth = 2F + Me.DetailCaption1.Font = New System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold) + Me.DetailCaption1.ForeColor = System.Drawing.Color.White + Me.DetailCaption1.Name = "DetailCaption1" + Me.DetailCaption1.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 100F) + Me.DetailCaption1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + ' DetailData1 + ' + Me.DetailData1.BorderColor = System.Drawing.Color.Transparent + Me.DetailData1.Borders = DevExpress.XtraPrinting.BorderSide.Left + Me.DetailData1.BorderWidth = 2F + Me.DetailData1.Font = New System.Drawing.Font("Arial", 8.25F) + Me.DetailData1.ForeColor = System.Drawing.Color.Black + Me.DetailData1.Name = "DetailData1" + Me.DetailData1.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 100F) + Me.DetailData1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + ' DetailData3_Odd + ' + Me.DetailData3_Odd.BackColor = System.Drawing.Color.FromArgb((CInt((CByte(231)))), (CInt((CByte(231)))), (CInt((CByte(231))))) + Me.DetailData3_Odd.BorderColor = System.Drawing.Color.Transparent + Me.DetailData3_Odd.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.DetailData3_Odd.BorderWidth = 1F + Me.DetailData3_Odd.Font = New System.Drawing.Font("Arial", 8.25F) + Me.DetailData3_Odd.ForeColor = System.Drawing.Color.Black + Me.DetailData3_Odd.Name = "DetailData3_Odd" + Me.DetailData3_Odd.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 100F) + Me.DetailData3_Odd.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + ' PageInfo + ' + Me.PageInfo.Font = New System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold) + Me.PageInfo.ForeColor = System.Drawing.Color.FromArgb((CInt((CByte(75)))), (CInt((CByte(75)))), (CInt((CByte(75))))) + Me.PageInfo.Name = "PageInfo" + Me.PageInfo.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F) + ' + ' TopMargin + ' + Me.TopMargin.Name = "TopMargin" + ' + ' BottomMargin + ' + Me.BottomMargin.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() { Me.pageInfo1, Me.pageInfo2}) + Me.BottomMargin.Name = "BottomMargin" + ' + ' ReportHeader + ' + Me.ReportHeader.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() { Me.label1}) + Me.ReportHeader.HeightF = 60F + Me.ReportHeader.Name = "ReportHeader" + ' + ' GroupHeader1 + ' + Me.GroupHeader1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() { Me.table1}) + Me.GroupHeader1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail + Me.GroupHeader1.HeightF = 28F + Me.GroupHeader1.Name = "GroupHeader1" + ' + ' Detail + ' + Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() { Me.table2}) + Me.Detail.HeightF = 25F + Me.Detail.Name = "Detail" + ' + ' pageInfo1 + ' + Me.pageInfo1.LocationFloat = New DevExpress.Utils.PointFloat(6F, 6F) + Me.pageInfo1.Name = "pageInfo1" + Me.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime + Me.pageInfo1.SizeF = New System.Drawing.SizeF(313F, 23F) + Me.pageInfo1.StyleName = "PageInfo" + ' + ' pageInfo2 + ' + Me.pageInfo2.LocationFloat = New DevExpress.Utils.PointFloat(331F, 6F) + Me.pageInfo2.Name = "pageInfo2" + Me.pageInfo2.SizeF = New System.Drawing.SizeF(313F, 23F) + Me.pageInfo2.StyleName = "PageInfo" + Me.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight + Me.pageInfo2.TextFormatString = "Page {0} of {1}" + ' + ' label1 + ' + Me.label1.LocationFloat = New DevExpress.Utils.PointFloat(6F, 6F) + Me.label1.Name = "label1" + Me.label1.SizeF = New System.Drawing.SizeF(638F, 24.19433F) + Me.label1.StyleName = "Title" + Me.label1.Text = "Report Title" + ' + ' table1 + ' + Me.table1.LocationFloat = New DevExpress.Utils.PointFloat(0F, 0F) + Me.table1.Name = "table1" + Me.table1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() { Me.tableRow1}) + Me.table1.SizeF = New System.Drawing.SizeF(650F, 28F) + ' + ' tableRow1 + ' + Me.tableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() { Me.tableCell1, Me.tableCell2, Me.tableCell3, Me.tableCell4}) + Me.tableRow1.Name = "tableRow1" + Me.tableRow1.Weight = 1R + ' + ' tableCell1 + ' + Me.tableCell1.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.tableCell1.Name = "tableCell1" + Me.tableCell1.StyleName = "DetailCaption1" + Me.tableCell1.StylePriority.UseBorders = False + Me.tableCell1.StylePriority.UseTextAlignment = False + Me.tableCell1.Text = "Category ID" + Me.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight + Me.tableCell1.Weight = 0.25569842998798076R + ' + ' tableCell2 + ' + Me.tableCell2.Name = "tableCell2" + Me.tableCell2.StyleName = "DetailCaption1" + Me.tableCell2.Text = "Category Name" + Me.tableCell2.Weight = 0.32011953500600959R + ' + ' tableCell3 + ' + Me.tableCell3.Name = "tableCell3" + Me.tableCell3.StyleName = "DetailCaption1" + Me.tableCell3.Text = "Description" + Me.tableCell3.Weight = 0.25153752253605771R + ' + ' tableCell4 + ' + Me.tableCell4.Name = "tableCell4" + Me.tableCell4.StyleName = "DetailCaption1" + Me.tableCell4.Text = "Picture" + Me.tableCell4.Weight = 0.17264447725736179R + ' + ' table2 + ' + Me.table2.LocationFloat = New DevExpress.Utils.PointFloat(0F, 0F) + Me.table2.Name = "table2" + Me.table2.OddStyleName = "DetailData3_Odd" + Me.table2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() { Me.tableRow2}) + Me.table2.SizeF = New System.Drawing.SizeF(650F, 25F) + ' + ' tableRow2 + ' + Me.tableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() { Me.tableCell5, Me.tableCell6, Me.tableCell7, Me.tableCell8}) + Me.tableRow2.Name = "tableRow2" + Me.tableRow2.Weight = 11.5R + ' + ' tableCell5 + ' + Me.tableCell5.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.tableCell5.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() { New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[CategoryID]")}) + Me.tableCell5.Name = "tableCell5" + Me.tableCell5.StyleName = "DetailData1" + Me.tableCell5.StylePriority.UseBorders = False + Me.tableCell5.StylePriority.UseTextAlignment = False + Me.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight + Me.tableCell5.Weight = 0.25569842998798076R + ' + ' tableCell6 + ' + Me.tableCell6.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() { New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[CategoryName]")}) + Me.tableCell6.Name = "tableCell6" + Me.tableCell6.StyleName = "DetailData1" + Me.tableCell6.Weight = 0.32011953500600959R + ' + ' tableCell7 + ' + Me.tableCell7.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() { New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Description]")}) + Me.tableCell7.Name = "tableCell7" + Me.tableCell7.StyleName = "DetailData1" + Me.tableCell7.Weight = 0.25153752253605771R + ' + ' tableCell8 + ' + Me.tableCell8.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() { Me.pictureBox1}) + Me.tableCell8.Name = "tableCell8" + Me.tableCell8.StyleName = "DetailData1" + Me.tableCell8.Weight = 0.17264451246995191R + ' + ' pictureBox1 + ' + Me.pictureBox1.AnchorHorizontal = (CType((DevExpress.XtraReports.UI.HorizontalAnchorStyles.Left Or DevExpress.XtraReports.UI.HorizontalAnchorStyles.Right), DevExpress.XtraReports.UI.HorizontalAnchorStyles)) + Me.pictureBox1.AnchorVertical = (CType((DevExpress.XtraReports.UI.VerticalAnchorStyles.Top Or DevExpress.XtraReports.UI.VerticalAnchorStyles.Bottom), DevExpress.XtraReports.UI.VerticalAnchorStyles)) + Me.pictureBox1.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() { New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "ImageSource", "[Picture]")}) + Me.pictureBox1.LocationFloat = New DevExpress.Utils.PointFloat(2.083333F, 0F) + Me.pictureBox1.Name = "pictureBox1" + Me.pictureBox1.SizeF = New System.Drawing.SizeF(110.1356F, 25F) + Me.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.ZoomImage + ' + ' XtraReport1 + ' + Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() { Me.TopMargin, Me.BottomMargin, Me.ReportHeader, Me.GroupHeader1, Me.Detail}) + Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() { Me.sqlDataSource1}) + Me.DataMember = "Categories" + Me.DataSource = Me.sqlDataSource1 + Me.Font = New System.Drawing.Font("Arial", 9.75F) + Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() { Me.Title, Me.DetailCaption1, Me.DetailData1, Me.DetailData3_Odd, Me.PageInfo}) + Me.Version = "20.1" + CType(Me.table1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.table2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + + #End Region + + Private sqlDataSource1 As DevExpress.DataAccess.Sql.SqlDataSource + Private Title As DevExpress.XtraReports.UI.XRControlStyle + Private DetailCaption1 As DevExpress.XtraReports.UI.XRControlStyle + Private DetailData1 As DevExpress.XtraReports.UI.XRControlStyle + Private DetailData3_Odd As DevExpress.XtraReports.UI.XRControlStyle + Private PageInfo As DevExpress.XtraReports.UI.XRControlStyle + Private TopMargin As DevExpress.XtraReports.UI.TopMarginBand + Private BottomMargin As DevExpress.XtraReports.UI.BottomMarginBand + Private pageInfo1 As DevExpress.XtraReports.UI.XRPageInfo + Private pageInfo2 As DevExpress.XtraReports.UI.XRPageInfo + Private ReportHeader As DevExpress.XtraReports.UI.ReportHeaderBand + Private label1 As DevExpress.XtraReports.UI.XRLabel + Private GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand + Private table1 As DevExpress.XtraReports.UI.XRTable + Private tableRow1 As DevExpress.XtraReports.UI.XRTableRow + Private tableCell1 As DevExpress.XtraReports.UI.XRTableCell + Private tableCell2 As DevExpress.XtraReports.UI.XRTableCell + Private tableCell3 As DevExpress.XtraReports.UI.XRTableCell + Private tableCell4 As DevExpress.XtraReports.UI.XRTableCell + Private Detail As DevExpress.XtraReports.UI.DetailBand + Private table2 As DevExpress.XtraReports.UI.XRTable + Private tableRow2 As DevExpress.XtraReports.UI.XRTableRow + Private tableCell5 As DevExpress.XtraReports.UI.XRTableCell + Private tableCell6 As DevExpress.XtraReports.UI.XRTableCell + Private tableCell7 As DevExpress.XtraReports.UI.XRTableCell + Private tableCell8 As DevExpress.XtraReports.UI.XRTableCell + Private pictureBox1 As DevExpress.XtraReports.UI.XRPictureBox + End Class +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/XtraReport1.resx b/VB/MinimalisticReportPreviewDemo/XtraReport1.resx new file mode 100644 index 0000000..4ed744d --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/XtraReport1.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + PERhdGFTZXQgTmFtZT0ic3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IkNhdGVnb3JpZXMiPjxGaWVsZCBOYW1lPSJDYXRlZ29yeUlEIiBUeXBlPSJJbnQzMiIgLz48RmllbGQgTmFtZT0iQ2F0ZWdvcnlOYW1lIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkRlc2NyaXB0aW9uIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlBpY3R1cmUiIFR5cGU9IkJ5dGVBcnJheSIgLz48L1ZpZXc+PC9EYXRhU2V0Pg== + + \ No newline at end of file diff --git a/VB/MinimalisticReportPreviewDemo/XtraReport1.vb b/VB/MinimalisticReportPreviewDemo/XtraReport1.vb new file mode 100644 index 0000000..6c56263 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/XtraReport1.vb @@ -0,0 +1,16 @@ +Imports System +Imports System.Drawing +Imports System.Collections +Imports System.ComponentModel +Imports DevExpress.XtraReports.UI + +Namespace DXSample + Partial Public Class XtraReport1 + Inherits DevExpress.XtraReports.UI.XtraReport + + Public Sub New() + InitializeComponent() + End Sub + + End Class +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/app.config b/VB/MinimalisticReportPreviewDemo/app.config new file mode 100644 index 0000000..78fa2ac --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/app.config @@ -0,0 +1,9 @@ + + + + + + + + + \ No newline at end of file diff --git a/VB/MinimalisticReportPreviewDemo/nwind.mdb b/VB/MinimalisticReportPreviewDemo/nwind.mdb new file mode 100644 index 0000000..459f37b Binary files /dev/null and b/VB/MinimalisticReportPreviewDemo/nwind.mdb differ diff --git a/VB/NuGet.Config b/VB/NuGet.Config new file mode 100644 index 0000000..519fb65 --- /dev/null +++ b/VB/NuGet.Config @@ -0,0 +1,9 @@ + + + + + + + + + \ No newline at end of file