diff --git a/Readme.md b/Readme.md index 93ed8fa..e64b624 100644 --- a/Readme.md +++ b/Readme.md @@ -1,5 +1,4 @@ -![](https://img.shields.io/endpoint?url=https://codecentral.devexpress.com/api/v1/VersionRange/128598055/20.1.8%2B) [![](https://img.shields.io/badge/Open_in_DevExpress_Support_Center-FF7200?style=flat-square&logo=DevExpress&logoColor=white)](https://supportcenter.devexpress.com/ticket/details/E4631) [![](https://img.shields.io/badge/📖_How_to_use_DevExpress_Examples-e9f6fc?style=flat-square)](https://docs.devexpress.com/GeneralInformation/403183) diff --git a/VB/DXSample.sln b/VB/DXSample.sln index 167704a..ed1062c 100644 --- a/VB/DXSample.sln +++ b/VB/DXSample.sln @@ -1,4 +1,4 @@ -Microsoft Visual Studio Solution File, Format Version 12.00 +Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio Version 16 VisualStudioVersion = 16.0.30611.23 MinimumVisualStudioVersion = 10.0.40219.1 diff --git a/VB/MinimalisticReportPreviewDemo/App.xaml b/VB/MinimalisticReportPreviewDemo/App.xaml new file mode 100644 index 0000000..a9d1a25 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/App.xaml @@ -0,0 +1,5 @@ + + + + + diff --git a/VB/MinimalisticReportPreviewDemo/App.xaml.vb b/VB/MinimalisticReportPreviewDemo/App.xaml.vb new file mode 100644 index 0000000..afabcb3 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/App.xaml.vb @@ -0,0 +1,12 @@ +Imports System.Windows + +Namespace DXSample + + ''' + ''' Interaction logic for App.xaml + ''' + Public Partial Class App + Inherits Application + + End Class +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/DXSample.vbproj b/VB/MinimalisticReportPreviewDemo/DXSample.vbproj index f621e51..def9f09 100644 --- a/VB/MinimalisticReportPreviewDemo/DXSample.vbproj +++ b/VB/MinimalisticReportPreviewDemo/DXSample.vbproj @@ -1,21 +1,23 @@ - + + On Debug x86 8.0.30703 2.0 {03842F9F-5A5D-4B93-9165-A9B9D325709C} WinExe - + Properties + + MinimalisticReportPreviewDemo v4.5.2 + + 512 {60dc8134-eba5-43b8-bcc9-bb4bc16c2548};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} - On - Binary - Off - On + 4 x86 @@ -23,140 +25,87 @@ full false bin\Debug\ - true - true + DEBUG,TRACE prompt - true + 4 + false false - true x86 pdbonly true bin\Release\ - false - true + TRACE prompt + 4 false - true - - - - - - - - - - - - - - - - - - - - - False - True - - - True + False - True - - - True + False - True False - True False - True False - True False - True False - True False - True False - True False - True False - True False - True - - - True + False - True - - - True + False - True False - True - - - True + False - True False - True False - True False - True @@ -175,7 +124,7 @@ - + MSBuild:Compile Designer @@ -189,8 +138,8 @@ MSBuild:Compile Designer - - Application.xaml + + App.xaml Code @@ -200,35 +149,34 @@ - + Code - + True True Resources.resx - + True Settings.settings True - - - VbMyResourcesResXFileCodeGenerator + + + ResXFileCodeGenerator Resources.Designer.vb - My.Resources + MinimalisticReportPreviewDemo.Properties XtraReport1.vb - + SettingsSingleFileGenerator Settings.Designer.vb - My - + @@ -236,11 +184,11 @@ - - + \ No newline at end of file diff --git a/VB/MinimalisticReportPreviewDemo/MainWindow.xaml.vb b/VB/MinimalisticReportPreviewDemo/MainWindow.xaml.vb index fc756e9..e1d9bc1 100644 --- a/VB/MinimalisticReportPreviewDemo/MainWindow.xaml.vb +++ b/VB/MinimalisticReportPreviewDemo/MainWindow.xaml.vb @@ -1,29 +1,26 @@ -Imports System.Windows +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 + ''' + ''' Interaction logic for MainWindow.xaml + ''' + Public Partial Class MainWindow + Inherits Window + + Public Sub New() + Me.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 + 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/MyDocumentPreviewControl.vb b/VB/MinimalisticReportPreviewDemo/MyDocumentPreviewControl.vb index 6d1bc64..03882d4 100644 --- a/VB/MinimalisticReportPreviewDemo/MyDocumentPreviewControl.vb +++ b/VB/MinimalisticReportPreviewDemo/MyDocumentPreviewControl.vb @@ -1,32 +1,30 @@ -Imports DevExpress.Xpf.Printing -Imports System -Imports System.Collections.Generic -Imports System.Linq -Imports System.Text +Imports DevExpress.Xpf.Printing 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) + Public Class MyDocumentPreviewControl + Inherits DocumentPreviewControl - End Sub - Private Sub PrintingSystem_StartPrint(ByVal sender As Object, ByVal e As PrintDocumentEventArgs) + Public Overrides Sub Print() + Dim pt As PrintTool = New PrintTool(Document.PrintingSystem) + pt.PrintingSystem.StartPrint += New PrintDocumentEventHandler(AddressOf PrintingSystem_StartPrint) + pt.PrintingSystem.PrintProgress += New PrintProgressEventHandler(AddressOf PrintingSystem_PrintProgress) + pt.PrintDialog() + End Sub - End Sub - End Class + Public Overrides Sub PrintDirect(ByVal Optional printerName As String = Nothing) + Dim pt As PrintTool = New PrintTool(Document.PrintingSystem) + pt.PrintingSystem.StartPrint += New PrintDocumentEventHandler(AddressOf PrintingSystem_StartPrint) + pt.PrintingSystem.PrintProgress += New PrintProgressEventHandler(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/Properties/AssemblyInfo.vb b/VB/MinimalisticReportPreviewDemo/Properties/AssemblyInfo.vb new file mode 100644 index 0000000..55b3117 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/Properties/AssemblyInfo.vb @@ -0,0 +1,44 @@ +Imports System.Reflection +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)] +'(used if a resource is not found in the page, +' or application resource dictionaries) +'(used if a resource is not found in the page, +' app, or any theme specific resource dictionaries) + 'where theme specific resource dictionaries are located +'where the generic resource dictionary is located +' 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/Properties/Resources.Designer.vb b/VB/MinimalisticReportPreviewDemo/Properties/Resources.Designer.vb new file mode 100644 index 0000000..a8626e9 --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/Properties/Resources.Designer.vb @@ -0,0 +1,64 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ +Imports System + +Namespace DXSample.Properties + + ''' + ''' 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 Class Resources + + Private Shared resourceMan As Global.System.Resources.ResourceManager + + Private Shared resourceCulture As Global.System.Globalization.CultureInfo + + + Friend Sub New() + End Sub + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + + Friend Shared ReadOnly Property ResourceManager As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(DXSample.Properties.Resources.resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DXSample.Properties.Resources", GetType(DXSample.Properties.Resources).Assembly) + DXSample.Properties.Resources.resourceMan = temp + End If + + Return DXSample.Properties.Resources.resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + + Friend Shared Property Culture As Global.System.Globalization.CultureInfo + Get + Return DXSample.Properties.Resources.resourceCulture + End Get + + Set(ByVal value As Global.System.Globalization.CultureInfo) + DXSample.Properties.Resources.resourceCulture = value + End Set + End Property + End Class +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/Properties/Resources.resx b/VB/MinimalisticReportPreviewDemo/Properties/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/Properties/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/Properties/Settings.Designer.vb b/VB/MinimalisticReportPreviewDemo/Properties/Settings.Designer.vb new file mode 100644 index 0000000..d71148a --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/Properties/Settings.Designer.vb @@ -0,0 +1,35 @@ +'------------------------------------------------------------------------------ +' +' 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 DXSample.Properties + + + + Friend NotInheritable Partial Class Settings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As DXSample.Properties.Settings = CType((Global.System.Configuration.ApplicationSettingsBase.Synchronized(New DXSample.Properties.Settings())), DXSample.Properties.Settings) + + Public Shared ReadOnly Property [Default] As Settings + Get + Return DXSample.Properties.Settings.defaultInstance + End Get + End Property + + + + + + Public ReadOnly Property nwindConnectionString As String + Get + Return(CStr((Me("nwindConnectionString")))) + End Get + End Property + End Class +End Namespace diff --git a/VB/MinimalisticReportPreviewDemo/Properties/Settings.settings b/VB/MinimalisticReportPreviewDemo/Properties/Settings.settings new file mode 100644 index 0000000..4d4a5fa --- /dev/null +++ b/VB/MinimalisticReportPreviewDemo/Properties/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/Properties/licenses.licx b/VB/MinimalisticReportPreviewDemo/Properties/licenses.licx new file mode 100644 index 0000000..e69de29 diff --git a/VB/MinimalisticReportPreviewDemo/XtraReport1.Designer.vb b/VB/MinimalisticReportPreviewDemo/XtraReport1.Designer.vb index 88ac911..d00c1da 100644 --- a/VB/MinimalisticReportPreviewDemo/XtraReport1.Designer.vb +++ b/VB/MinimalisticReportPreviewDemo/XtraReport1.Designer.vb @@ -1,347 +1,372 @@ -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 +Namespace DXSample + + Partial 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 (Me.components IsNot Nothing) Then + Me.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 DevExpress.DataAccess.Sql.SelectQuery = New DevExpress.DataAccess.Sql.SelectQuery() + Dim column1 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column() + Dim columnExpression1 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression() + Dim table3 As DevExpress.DataAccess.Sql.Table = New DevExpress.DataAccess.Sql.Table() + Dim column2 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column() + Dim columnExpression2 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression() + Dim column3 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column() + Dim columnExpression3 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression() + Dim column4 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column() + Dim columnExpression4 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DXSample.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.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.vb b/VB/MinimalisticReportPreviewDemo/XtraReport1.vb index 6c56263..6201818 100644 --- a/VB/MinimalisticReportPreviewDemo/XtraReport1.vb +++ b/VB/MinimalisticReportPreviewDemo/XtraReport1.vb @@ -1,16 +1,14 @@ -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 + Public Partial Class XtraReport1 + Inherits DevExpress.XtraReports.UI.XtraReport - End Class + Public Sub New() + InitializeComponent() + End Sub + End Class End Namespace