From de10d0b6c24e915baf899cf3eb7473569b3d4841 Mon Sep 17 00:00:00 2001 From: DevExpressExampleBot Date: Mon, 6 Sep 2021 17:14:20 +0300 Subject: [PATCH 1/2] autogenerate VB --- VB/Application.xaml | 2 +- VB/Application.xaml.vb | 12 +- VB/Data.vb | 204 ++++++++++++++-------------- VB/E3382.Net5.sln | 2 +- VB/E3382.sln | 2 +- VB/MainWindow.xaml | 2 +- VB/MainWindow.xaml.vb | 18 +-- VB/My Project/AssemblyInfo.vb | 6 +- VB/My Project/Resources.Designer.vb | 86 ++++++------ VB/My Project/Settings.Designer.vb | 21 +-- VB/PLinqDataSource.Net5.vbproj | 24 +--- VB/PLinqDataSource.vbproj | 69 ++++++---- VB/ViewModel.vb | 110 +++++++-------- 13 files changed, 278 insertions(+), 280 deletions(-) diff --git a/VB/Application.xaml b/VB/Application.xaml index 1df0c0c..1f95e44 100644 --- a/VB/Application.xaml +++ b/VB/Application.xaml @@ -1,4 +1,4 @@ - diff --git a/VB/Application.xaml.vb b/VB/Application.xaml.vb index e8242dd..0b65ef6 100644 --- a/VB/Application.xaml.vb +++ b/VB/Application.xaml.vb @@ -25,11 +25,11 @@ Imports System.Linq Imports System.Windows Namespace PLinqDataSource - ''' - ''' Interaction logic for App.xaml - ''' - Partial Public Class App - Inherits Application + ''' + ''' Interaction logic for App.xaml + ''' + Partial Public Class App + Inherits Application - End Class + End Class End Namespace diff --git a/VB/Data.vb b/VB/Data.vb index 5f6ca85..8612cde 100644 --- a/VB/Data.vb +++ b/VB/Data.vb @@ -2,109 +2,105 @@ Imports System.Collections.Generic Namespace PLinqDataSource - Public NotInheritable Class Data + Public Module Data +'INSTANT VB NOTE: The field customers was renamed since Visual Basic does not allow fields to have the same name as other class members: + Private customers_Conflict As List(Of String) + Public ReadOnly Property Customers() As List(Of String) + Get + If customers_Conflict Is Nothing Then + customers_Conflict = New List(Of String)() + customers_Conflict.AddRange(New String() { "Maria Anders", "Ana Trujillo", "Antonio Moreno", "Thomas Hardy", "Christina Berglund", "Hanna Moos", "Frédérique Citeaux", "Martín Sommer", "Laurence Lebihan", "Elizabeth Lincoln", "Victoria Ashworth", "Patricio Simpson", "Francisco Chang", "Yang Wang", "Pedro Afonso", "Elizabeth Brown", "Sven Ottlieb", "Janine Labrune", "Ann Devon", "Roland Mendel", "Aria Cruz", "Diego Roel", "Martine Rancé", "Maria Larsson", "Peter Franken", "Carine Schmitt", "Paolo Accorti", "Lino Rodriguez ", "Eduardo Saavedra", "José Pedro Freyre", "André Fonseca", "Howard Snyder", "Manuel Pereira", "Mario Pontes", "Carlos Hernández", "Yoshi Latimer", "Patricia McKenna", "Helen Bennett", "Philip Cramer", "Daniel Tonini", "Annette Roulet", "Yoshi Tannamuri", "John Steel", "Renate Messner", "Jaime Yorres", "Carlos González", "Felipe Izquierdo", "Fran Wilson", "Giovanni Rovelli", "Catherine Dewey", "Jean Fresnière", "Alexander Feuer", "Simon Crowther", "Yvonne Moncada", "Rene Phillips", "Henriette Pfalzheim", "Marie Bertrand", "Guillermo Fernández", "Georg Pipps", "Isabel de Castro", "Bernardo Batista", "Lúcia Carvalho", "Horst Kloss", "Sergio Gutiérrez", "Paula Wilson", "Maurizio Moroni", "Janete Limeira", "Michael Holz", "Alejandra Camino", "Jonas Bergulfsen", "Jose Pavarotti", "Hari Kumar", "Jytte Petersen", "Dominique Perrier", "Art Braunschweiger", "Pascale Cartrain", "Liz Nixon", "Liu Wong", "Karin Josephs", "Miguel Angel Paolino", "Anabela Domingues", "Helvetius Nagy", "Palle Ibsen", "Mary Saveley", "Paul Henriot", "Rita Müller", "Pirkko Koskitalo", "Paula Parente", "Karl Jablonski", "Matti Karttunen", "Zbyszek Piestrzeniewicz" }) + End If + Return customers_Conflict + End Get + End Property - Private Sub New() - End Sub - - - Private Shared customers_Renamed As List(Of String) - Public Shared ReadOnly Property Customers() As List(Of String) - Get - If customers_Renamed Is Nothing Then - customers_Renamed = New List(Of String)() - customers_Renamed.AddRange(New String() { "Maria Anders", "Ana Trujillo", "Antonio Moreno", "Thomas Hardy", "Christina Berglund", "Hanna Moos", "Frédérique Citeaux", "Martín Sommer", "Laurence Lebihan", "Elizabeth Lincoln", "Victoria Ashworth", "Patricio Simpson", "Francisco Chang", "Yang Wang", "Pedro Afonso", "Elizabeth Brown", "Sven Ottlieb", "Janine Labrune", "Ann Devon", "Roland Mendel", "Aria Cruz", "Diego Roel", "Martine Rancé", "Maria Larsson", "Peter Franken", "Carine Schmitt", "Paolo Accorti", "Lino Rodriguez ", "Eduardo Saavedra", "José Pedro Freyre", "André Fonseca", "Howard Snyder", "Manuel Pereira", "Mario Pontes", "Carlos Hernández", "Yoshi Latimer", "Patricia McKenna", "Helen Bennett", "Philip Cramer", "Daniel Tonini", "Annette Roulet", "Yoshi Tannamuri", "John Steel", "Renate Messner", "Jaime Yorres", "Carlos González", "Felipe Izquierdo", "Fran Wilson", "Giovanni Rovelli", "Catherine Dewey", "Jean Fresnière", "Alexander Feuer", "Simon Crowther", "Yvonne Moncada", "Rene Phillips", "Henriette Pfalzheim", "Marie Bertrand", "Guillermo Fernández", "Georg Pipps", "Isabel de Castro", "Bernardo Batista", "Lúcia Carvalho", "Horst Kloss", "Sergio Gutiérrez", "Paula Wilson", "Maurizio Moroni", "Janete Limeira", "Michael Holz", "Alejandra Camino", "Jonas Bergulfsen", "Jose Pavarotti", "Hari Kumar", "Jytte Petersen", "Dominique Perrier", "Art Braunschweiger", "Pascale Cartrain", "Liz Nixon", "Liu Wong", "Karin Josephs", "Miguel Angel Paolino", "Anabela Domingues", "Helvetius Nagy", "Palle Ibsen", "Mary Saveley", "Paul Henriot", "Rita Müller", "Pirkko Koskitalo", "Paula Parente", "Karl Jablonski", "Matti Karttunen", "Zbyszek Piestrzeniewicz" }) - End If - Return customers_Renamed - End Get - End Property - - - Private Shared products_Renamed As List(Of KeyValuePair(Of String, Decimal)) - Public Shared ReadOnly Property Products() As List(Of KeyValuePair(Of String, Decimal)) - Get - If products_Renamed Is Nothing Then - products_Renamed = New List(Of KeyValuePair(Of String, Decimal))() - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Chai", 18.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Chang", 19.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Aniseed Syrup", 10.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Chef Anton's Cajun Seasoning", 22.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Chef Anton's Gumbo Mix", 21.35D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Grandma's Boysenberry Spread", 25.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Uncle Bob's Organic Dried Pears", 30.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Northwoods Cranberry Sauce", 40.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Mishi Kobe Niku", 97.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Ikura", 31.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Queso Cabrales", 21.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Queso Manchego La Pastora", 38.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Konbu", 6.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Tofu", 23.25D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Genen Shouyu", 15.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Pavlova", 17.45D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Alice Mutton", 39.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Carnarvon Tigers", 62.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Teatime Chocolate Biscuits", 9.2D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Sir Rodney's Marmalade", 81.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Sir Rodney's Scones", 10.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Gustaf's Knäckebröd", 21.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Tunnbröd", 9.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Guaraná Fantástica", 4.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("NuNuCa Nuß-Nougat-Creme", 14.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Gumbär Gummibärchen", 31.23D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Schoggi Schokolade", 43.9D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Rössle Sauerkraut", 45.6D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Thüringer Rostbratwurst", 123.79D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Nord-Ost Matjeshering", 25.89D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Gorgonzola Telino", 12.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Mascarpone Fabioli", 32.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Geitost", 2.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Sasquatch Ale", 14.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Steeleye Stout", 18.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Inlagd Sill", 19.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Gravad lax", 26.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Côte de Blaye", 263.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Chartreuse verte", 18.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Boston Crab Meat", 18.4D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Jack's New England Clam Chowder", 9.65D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Singaporean Hokkien Fried Mee", 14.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Ipoh Coffee", 46.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Gula Malacca", 19.45D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Røgede sild", 9.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Spegesild", 12.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Zaanse koeken", 9.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Chocolade", 12.75D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Maxilaku", 20.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Valkoinen suklaa", 16.25D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Manjimup Dried Apples", 53.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Filo Mix", 7.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Perth Pasties", 32.8D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Tourtière", 7.45D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Pâté chinois", 24.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Gnocchi di nonna Alice", 38.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Ravioli Angelo", 19.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Escargots de Bourgogne", 13.25D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Raclette Courdavault", 55.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Camembert Pierrot", 34.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Sirop d'érable", 28.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Tarte au sucre", 49.3D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Vegie-spread", 43.9D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Wimmers gute Semmelknödel", 33.25D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Louisiana Fiery Hot Pepper Sauce", 21.05D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Louisiana Hot Spiced Okra", 17.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Laughing Lumberjack Lager", 14.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Scottish Longbreads", 12.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Gudbrandsdalsost", 36.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Outback Lager", 15.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Fløtemysost", 21.5D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Mozzarella di Giovanni", 34.8D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Röd Kaviar", 15.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Longlife Tofu", 10.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Rhönbräu Klosterbier", 7.75D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Lakkalikööri", 18.0D)) - products_Renamed.Add(New KeyValuePair(Of String,Decimal)("Original Frankfurter grüne Soße", 13.0D)) - End If - Return products_Renamed - End Get - End Property - End Class +'INSTANT VB NOTE: The field products was renamed since Visual Basic does not allow fields to have the same name as other class members: + Private products_Conflict As List(Of KeyValuePair(Of String, Decimal)) + Public ReadOnly Property Products() As List(Of KeyValuePair(Of String, Decimal)) + Get + If products_Conflict Is Nothing Then + products_Conflict = New List(Of KeyValuePair(Of String, Decimal))() + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Chai", 18.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Chang", 19.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Aniseed Syrup", 10.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Chef Anton's Cajun Seasoning", 22.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Chef Anton's Gumbo Mix", 21.35D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Grandma's Boysenberry Spread", 25.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Uncle Bob's Organic Dried Pears", 30.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Northwoods Cranberry Sauce", 40.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Mishi Kobe Niku", 97.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Ikura", 31.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Queso Cabrales", 21.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Queso Manchego La Pastora", 38.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Konbu", 6.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Tofu", 23.25D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Genen Shouyu", 15.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Pavlova", 17.45D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Alice Mutton", 39.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Carnarvon Tigers", 62.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Teatime Chocolate Biscuits", 9.2D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Sir Rodney's Marmalade", 81.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Sir Rodney's Scones", 10.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Gustaf's Knäckebröd", 21.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Tunnbröd", 9.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Guaraná Fantástica", 4.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("NuNuCa Nuß-Nougat-Creme", 14.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Gumbär Gummibärchen", 31.23D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Schoggi Schokolade", 43.9D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Rössle Sauerkraut", 45.6D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Thüringer Rostbratwurst", 123.79D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Nord-Ost Matjeshering", 25.89D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Gorgonzola Telino", 12.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Mascarpone Fabioli", 32.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Geitost", 2.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Sasquatch Ale", 14.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Steeleye Stout", 18.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Inlagd Sill", 19.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Gravad lax", 26.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Côte de Blaye", 263.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Chartreuse verte", 18.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Boston Crab Meat", 18.4D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Jack's New England Clam Chowder", 9.65D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Singaporean Hokkien Fried Mee", 14.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Ipoh Coffee", 46.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Gula Malacca", 19.45D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Røgede sild", 9.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Spegesild", 12.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Zaanse koeken", 9.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Chocolade", 12.75D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Maxilaku", 20.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Valkoinen suklaa", 16.25D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Manjimup Dried Apples", 53.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Filo Mix", 7.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Perth Pasties", 32.8D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Tourtière", 7.45D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Pâté chinois", 24.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Gnocchi di nonna Alice", 38.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Ravioli Angelo", 19.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Escargots de Bourgogne", 13.25D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Raclette Courdavault", 55.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Camembert Pierrot", 34.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Sirop d'érable", 28.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Tarte au sucre", 49.3D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Vegie-spread", 43.9D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Wimmers gute Semmelknödel", 33.25D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Louisiana Fiery Hot Pepper Sauce", 21.05D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Louisiana Hot Spiced Okra", 17.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Laughing Lumberjack Lager", 14.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Scottish Longbreads", 12.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Gudbrandsdalsost", 36.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Outback Lager", 15.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Fløtemysost", 21.5D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Mozzarella di Giovanni", 34.8D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Röd Kaviar", 15.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Longlife Tofu", 10.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Rhönbräu Klosterbier", 7.75D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Lakkalikööri", 18.0D)) + products_Conflict.Add(New KeyValuePair(Of String,Decimal)("Original Frankfurter grüne Soße", 13.0D)) + End If + Return products_Conflict + End Get + End Property + End Module End Namespace diff --git a/VB/E3382.Net5.sln b/VB/E3382.Net5.sln index 4a72bab..13e332a 100644 --- a/VB/E3382.Net5.sln +++ b/VB/E3382.Net5.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 16 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "PLinqDataSource", "PLinqDataSource.Net5.vbproj", "{08192537-93CA-477B-B8FF-49AA082766C6}" EndProject diff --git a/VB/E3382.sln b/VB/E3382.sln index c7b3d09..b23ff44 100644 --- a/VB/E3382.sln +++ b/VB/E3382.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 2012 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "PLinqDataSource", "PLinqDataSource.vbproj", "{08192537-93CA-477B-B8FF-49AA082766C6}" EndProject diff --git a/VB/MainWindow.xaml b/VB/MainWindow.xaml index 37b69d2..9e7df37 100644 --- a/VB/MainWindow.xaml +++ b/VB/MainWindow.xaml @@ -1,4 +1,4 @@ - - ''' Interaction logic for MainWindow.xaml - ''' - Partial Public Class MainWindow - Inherits Window + ''' + ''' Interaction logic for MainWindow.xaml + ''' + Partial Public Class MainWindow + Inherits Window - Public Sub New() - InitializeComponent() - End Sub - End Class + Public Sub New() + InitializeComponent() + End Sub + End Class End Namespace diff --git a/VB/My Project/AssemblyInfo.vb b/VB/My Project/AssemblyInfo.vb index d60c2b2..8dc9169 100644 --- a/VB/My Project/AssemblyInfo.vb +++ b/VB/My Project/AssemblyInfo.vb @@ -50,11 +50,7 @@ Imports System.Windows '[assembly: NeutralResourcesLanguage("en-US", UltimateResourceFallbackLocation.Satellite)] - 'where the generic resource dictionary is located - where theme specific resource dictionaries are located - '(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) + ' Version information for an assembly consists of the following four values: diff --git a/VB/My Project/Resources.Designer.vb b/VB/My Project/Resources.Designer.vb index ebc283d..63831ea 100644 --- a/VB/My Project/Resources.Designer.vb +++ b/VB/My Project/Resources.Designer.vb @@ -30,51 +30,53 @@ 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 + ''' + ''' 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 Global.System.Resources.ResourceManager + Private resourceMan As System.Resources.ResourceManager - Private resourceCulture As Global.System.Globalization.CultureInfo + Private resourceCulture As System.Globalization.CultureInfo -' internal Resources() -' { -' } +' internal Resources() +' { +' } - ''' - ''' Returns the cached ResourceManager instance used by this class. - ''' - _ - Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager - Get - If (resourceMan Is Nothing) Then - Dim temp As New Global.System.Resources.ResourceManager("Resources", GetType(Resources).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + + Friend ReadOnly Property ResourceManager() As System.Resources.ResourceManager + Get + If (resourceMan Is 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 Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set(ByVal value As System.Globalization.CultureInfo) - resourceCulture = value - End Set - End Property - End Module + ''' + ''' 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/My Project/Settings.Designer.vb b/VB/My Project/Settings.Designer.vb index c38b4d8..9a64317 100644 --- a/VB/My Project/Settings.Designer.vb +++ b/VB/My Project/Settings.Designer.vb @@ -30,16 +30,17 @@ Namespace My - _ - Friend NotInheritable Partial Class Settings - Inherits System.Configuration.ApplicationSettingsBase + + + Friend NotInheritable Partial Class Settings + Inherits System.Configuration.ApplicationSettingsBase - Private Shared defaultInstance As Settings = (CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()), Settings)) + 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 - End Class + Public Shared ReadOnly Property [Default]() As Settings + Get + Return defaultInstance + End Get + End Property + End Class End Namespace diff --git a/VB/PLinqDataSource.Net5.vbproj b/VB/PLinqDataSource.Net5.vbproj index 6d30dac..d5c8c74 100644 --- a/VB/PLinqDataSource.Net5.vbproj +++ b/VB/PLinqDataSource.Net5.vbproj @@ -1,3 +1,4 @@ + net5.0-windows @@ -12,26 +13,11 @@ x86;AnyCPU false obj*/** + On + Binary + Off + On - - - - - - - - - - - - - - - - - - - diff --git a/VB/PLinqDataSource.vbproj b/VB/PLinqDataSource.vbproj index f3a2a36..dea7fd7 100644 --- a/VB/PLinqDataSource.vbproj +++ b/VB/PLinqDataSource.vbproj @@ -13,11 +13,11 @@ v4.5.2 512 {60dc8134-eba5-43b8-bcc9-bb4bc16c2548};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} + obj.NetFX On Binary Off On - obj.NetFX x86 @@ -28,6 +28,7 @@ true true prompt + true x86 @@ -37,46 +38,80 @@ false true prompt + true + + + + + + + + + + + + + + + + + + + + True + C:\DXDlls\21.1.5\DevExpress.Data.v21.1.dll True + C:\DXDlls\21.1.5\DevExpress.Mvvm.v21.1.dll True + C:\DXDlls\21.1.5\DevExpress.Pdf.v21.1.Core.dll True + C:\DXDlls\21.1.5\DevExpress.Office.v21.1.Core.dll True + C:\DXDlls\21.1.5\DevExpress.RichEdit.v21.1.Core.dll True + C:\DXDlls\21.1.5\DevExpress.RichEdit.v21.1.Export.dll True + C:\DXDlls\21.1.5\DevExpress.Printing.v21.1.Core.dll True + C:\DXDlls\21.1.5\DevExpress.Xpf.CodeView.v21.1.dll True + C:\DXDlls\21.1.5\DevExpress.Data.Desktop.v21.1.dll True + C:\DXDlls\21.1.5\DevExpress.Xpf.Core.v21.1.dll True + C:\DXDlls\21.1.5\DevExpress.Xpf.Printing.v21.1.dll True + C:\DXDlls\21.1.5\DevExpress.Xpf.Grid.v21.1.dll True + C:\DXDlls\21.1.5\DevExpress.Xpf.Grid.v21.1.Core.dll @@ -92,25 +127,6 @@ - - - - - - - - - - - - - - - - - - - MSBuild:Compile @@ -153,16 +169,17 @@ SettingsSingleFileGenerator Settings.Designer.vb + My - diff --git a/VB/ViewModel.vb b/VB/ViewModel.vb index ea7bacb..d9f7da5 100644 --- a/VB/ViewModel.vb +++ b/VB/ViewModel.vb @@ -4,66 +4,66 @@ Imports System.Collections.Generic Imports System.ComponentModel Namespace PLinqDataSource - Public Class PLinqViewModel + Public Class PLinqViewModel - Public Sub New() - ListSource = New OrderDataListSource(1000000) - End Sub + Public Sub New() + ListSource = New OrderDataListSource(1000000) + End Sub - Public Overridable Property ListSource() As OrderDataListSource - End Class + Public Overridable Property ListSource() As OrderDataListSource + End Class - Public Class OrderDataListSource - Implements IListSource + Public Class OrderDataListSource + Implements IListSource - Private orders As List(Of OrderData) - Private count As Integer = 0 - Private Shared Locker As New Object() + Private orders As List(Of OrderData) + Private count As Integer = 0 + Private Shared Locker As New Object() - Public Sub New(ByVal count As Integer) - Me.count = count - End Sub + Public Sub New(ByVal count As Integer) + Me.count = count + End Sub - Private Sub GenerateOrders() - orders = New List(Of OrderData)(count) - Dim rnd As New Random() - Dim customersCount As Integer = Data.Customers.Count - Dim productsCount As Integer = Data.Products.Count - For i As Integer = 0 To count - 1 - Dim orderData As New OrderData() - orderData.OrderId = i + 1 - orderData.CustomerName = Data.Customers(rnd.Next(customersCount)) - orderData.OrderDate = Date.Today.Subtract(TimeSpan.FromDays(rnd.Next(180))) - Dim product As KeyValuePair(Of String, Decimal) = Data.Products(rnd.Next(productsCount)) - orderData.ProductName = product.Key - orderData.Price = product.Value - orderData.Quantity = rnd.Next(200) + 1 - orders.Add(orderData) - Next i - End Sub - Public Function GetList() As IList Implements IListSource.GetList - If orders Is Nothing Then - SyncLock Locker - If orders Is Nothing Then - GenerateOrders() - End If - End SyncLock - End If - Return orders - End Function - Public ReadOnly Property ContainsListCollection() As Boolean Implements IListSource.ContainsListCollection - Get - Return False - End Get - End Property - End Class + Private Sub GenerateOrders() + orders = New List(Of OrderData)(count) + Dim rnd As New Random() + Dim customersCount As Integer = Data.Customers.Count + Dim productsCount As Integer = Data.Products.Count + For i As Integer = 0 To count - 1 + Dim orderData As New OrderData() + orderData.OrderId = i + 1 + orderData.CustomerName = Data.Customers(rnd.Next(customersCount)) + orderData.OrderDate = DateTime.Today.Subtract(TimeSpan.FromDays(rnd.Next(180))) + Dim product As KeyValuePair(Of String, Decimal) = Data.Products(rnd.Next(productsCount)) + orderData.ProductName = product.Key + orderData.Price = product.Value + orderData.Quantity = rnd.Next(200) + 1 + orders.Add(orderData) + Next i + End Sub + Public Function GetList() As IList + If orders Is Nothing Then + SyncLock Locker + If orders Is Nothing Then + GenerateOrders() + End If + End SyncLock + End If + Return orders + End Function + Public ReadOnly Property ContainsListCollection() As Boolean + Get + Return False + End Get + End Property + End Class - Public Class OrderData - Public Property OrderId() As Integer - Public Property CustomerName() As String - Public Property OrderDate() As Date - Public Property ProductName() As String - Public Property Price() As Decimal - Public Property Quantity() As Integer - End Class + Public Class OrderData + Public Property OrderId() As Integer + Public Property CustomerName() As String + Public Property OrderDate() As DateTime + Public Property ProductName() As String + Public Property Price() As Decimal + Public Property Quantity() As Integer + End Class End Namespace From ba4b38100a420869cf558cab2ba977e5cbe7ffcc Mon Sep 17 00:00:00 2001 From: DevExpressExampleBot Date: Mon, 6 Sep 2021 17:18:54 +0300 Subject: [PATCH 2/2] README auto update [skip ci] --- Readme.md | 1 - 1 file changed, 1 deletion(-) diff --git a/Readme.md b/Readme.md index a2afab2..6dbaaab 100644 --- a/Readme.md +++ b/Readme.md @@ -1,5 +1,4 @@ -![](https://img.shields.io/endpoint?url=https://codecentral.devexpress.com/api/v1/VersionRange/128652045/14.2.3%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/E3382) [![](https://img.shields.io/badge/📖_How_to_use_DevExpress_Examples-e9f6fc?style=flat-square)](https://docs.devexpress.com/GeneralInformation/403183)