DevExpress-Examples · DevExpressExampleBot · Sep 6, 2021 · Sep 6, 2021
diff --git a/Readme.md b/Readme.md
@@ -1,5 +1,4 @@
 <!-- default badges list -->
-![](https://img.shields.io/endpoint?url=https://codecentral.devexpress.com/api/v1/VersionRange/128643029/11.2.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/E20026)
 [![](https://img.shields.io/badge/📖_How_to_use_DevExpress_Examples-e9f6fc?style=flat-square)](https://docs.devexpress.com/GeneralInformation/403183)
 <!-- default badges end -->

diff --git a/VB/Application.xaml b/VB/Application.xaml
@@ -1,4 +1,4 @@
-<Application x:Class="WpfApplication.App"
+<Application x:Class="WpfApplication.App"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:View="clr-namespace:WpfApplication.View"

diff --git a/VB/Application.xaml.vb b/VB/Application.xaml.vb
@@ -1,5 +1,4 @@
-Imports Microsoft.VisualBasic
-Imports System
+Imports System
 Imports System.Collections.Generic
 Imports System.Configuration
 Imports System.Data
@@ -12,5 +11,6 @@ Namespace WpfApplication
 	''' </summary>
 	Partial Public Class App
 		Inherits Application
+
 	End Class
 End Namespace
diff --git a/VB/Helpers/GlyphHelper.vb b/VB/Helpers/GlyphHelper.vb
@@ -1,15 +1,12 @@
-Imports Microsoft.VisualBasic
-Imports System
+Imports System
 Imports System.Collections.Generic
 Imports System.Linq
 Imports System.Windows.Media.Imaging
 
 Namespace WpfApplication
-	Friend NotInheritable Class GlyphHelper
-		Private Sub New()
-		End Sub
-		Public Shared Function GetGlyph(ByVal path As String) As BitmapImage
+	Friend Module GlyphHelper
+		Public Function GetGlyph(ByVal path As String) As BitmapImage
 			Return New BitmapImage(DevExpress.Utils.AssemblyHelper.GetResourceUri(GetType(GlyphHelper).Assembly, path))
 		End Function
-	End Class
+	End Module
 End Namespace
diff --git a/VB/MainWindow.xaml b/VB/MainWindow.xaml
@@ -1,4 +1,4 @@
-<Window x:Class="WpfApplication.MainWindow"
+<Window x:Class="WpfApplication.MainWindow"
         xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
         xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
         xmlns:local="clr-namespace:WpfApplication"

diff --git a/VB/MainWindow.xaml.vb b/VB/MainWindow.xaml.vb
@@ -1,5 +1,4 @@
-Imports Microsoft.VisualBasic
-Imports System
+Imports System
 Imports System.Collections.Generic
 Imports System.Linq
 Imports System.Text
@@ -21,6 +20,7 @@ Namespace WpfApplication
 	''' </summary>
 	Partial Public Class MainWindow
 		Inherits Window
+
 		Public Sub New()
 			InitializeComponent()
 		End Sub

diff --git a/VB/My Project/AssemblyInfo.vb b/VB/My Project/AssemblyInfo.vb
@@ -1,5 +1,4 @@
-Imports Microsoft.VisualBasic
-Imports System.Reflection
+Imports System.Reflection
 Imports System.Resources
 Imports System.Runtime.CompilerServices
 Imports System.Runtime.InteropServices
@@ -32,10 +31,6 @@ Imports System.Windows
 '[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)
 <Assembly: ThemeInfo(ResourceDictionaryLocation.None, ResourceDictionaryLocation.SourceAssembly)>
 
 

diff --git a/VB/My Project/Resources.Designer.vb b/VB/My Project/Resources.Designer.vb
diff --git a/VB/My Project/Settings.Designer.vb b/VB/My Project/Settings.Designer.vb
diff --git a/VB/View/DocumentView.xaml b/VB/View/DocumentView.xaml
@@ -1,4 +1,4 @@
-<UserControl x:Class="WpfApplication.View.DocumentView"
+<UserControl x:Class="WpfApplication.View.DocumentView"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 

diff --git a/VB/View/DocumentView.xaml.vb b/VB/View/DocumentView.xaml.vb
@@ -1,5 +1,4 @@
-Imports Microsoft.VisualBasic
-Imports System
+Imports System
 Imports System.Collections.Generic
 Imports System.Linq
 Imports System.Text
@@ -19,6 +18,7 @@ Namespace WpfApplication.View
 	''' </summary>
 	Partial Public Class DocumentView
 		Inherits UserControl
+
 		Public Sub New()
 			InitializeComponent()
 		End Sub

diff --git a/VB/View/PanelView.xaml b/VB/View/PanelView.xaml
@@ -1,4 +1,4 @@
-<UserControl x:Class="WpfApplication.View.PanelView"
+<UserControl x:Class="WpfApplication.View.PanelView"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 

diff --git a/VB/View/PanelView.xaml.vb b/VB/View/PanelView.xaml.vb
@@ -1,5 +1,4 @@
-Imports Microsoft.VisualBasic
-Imports System
+Imports System
 Imports System.Collections.Generic
 Imports System.Linq
 Imports System.Text
@@ -19,6 +18,7 @@ Namespace WpfApplication.View
 	''' </summary>
 	Partial Public Class PanelView
 		Inherits UserControl
+
 		Public Sub New()
 			InitializeComponent()
 		End Sub

diff --git a/VB/ViewModel/DocumentViewModel.vb b/VB/ViewModel/DocumentViewModel.vb
@@ -1,63 +1,37 @@
-Imports Microsoft.VisualBasic
-Imports System
+Imports System
 Imports System.Collections.Generic
 Imports System.Linq
 Imports DevExpress.Xpf.Docking
 
 Namespace WpfApplication
 	Public Class DocumentViewModel
-        Implements IMVVMDockingProperties
+		Inherits IMVVMDockingProperties
 
 
 		Public Sub New(ByVal caption As String, ByVal imagePath As String)
-			Caption = caption
+			Me.Caption = caption
 			Glyph = GlyphHelper.GetGlyph(imagePath)
 			Text = String.Format("Document text ({0})", caption)
 		End Sub
 
-        Private Property TargetName() As String Implements IMVVMDockingProperties.TargetName
-            Get
-                Return "DocumentsGroup"
-            End Get
-            Set(ByVal value As String)
-                Throw New NotImplementedException()
-            End Set
-
-        End Property
-
-
-
-
-		Private privateCaption As String
-		Public Property Caption() As String
+		Private Property IMVVMDockingProperties_TargetName() As String Implements IMVVMDockingProperties.TargetName
 			Get
-				Return privateCaption
+				Return "DocumentsGroup"
 			End Get
 			Set(ByVal value As String)
-				privateCaption = value
+				Throw New NotImplementedException()
 			End Set
+
 		End Property
 
 
-		Private privateGlyph As Object
+
+		Public Property Caption() As String
+
+
 		Public Property Glyph() As Object
-			Get
-				Return privateGlyph
-			End Get
-			Set(ByVal value As Object)
-				privateGlyph = value
-			End Set
-		End Property
 
-		Private privateText As String
 		Public Property Text() As String
-			Get
-				Return privateText
-			End Get
-			Set(ByVal value As String)
-				privateText = value
-			End Set
-		End Property
 
 
 	End Class

diff --git a/VB/ViewModel/MainViewModel.vb b/VB/ViewModel/MainViewModel.vb
@@ -1,5 +1,4 @@
-Imports Microsoft.VisualBasic
-Imports System
+Imports System
 Imports System.Collections.Generic
 Imports System.Linq
 Imports System.Collections.ObjectModel

diff --git a/VB/ViewModel/PanelViewModel.vb b/VB/ViewModel/PanelViewModel.vb
@@ -1,19 +1,18 @@
-Imports Microsoft.VisualBasic
-Imports System
+Imports System
 Imports System.Collections.Generic
 Imports System.Linq
 Imports DevExpress.Xpf.Docking
 Imports System.Windows.Media
 
 Namespace WpfApplication
 	Public Class PanelViewModel
-        Implements IMVVMDockingProperties
+		Inherits IMVVMDockingProperties
 
 		Public Sub New(ByVal c As Color)
 			_Color = New SolidColorBrush(c)
 		End Sub
 
-		Private Property TargetName() As String Implements IMVVMDockingProperties.TargetName
+		Private Property IMVVMDockingProperties_TargetName() As String Implements IMVVMDockingProperties.TargetName
 			Get
 				Return "DockPanels"
 			End Get

diff --git a/VB/WpfApplication.Net5.sln b/VB/WpfApplication.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
 VisualStudioVersion = 12.0.30501.0
 MinimumVisualStudioVersion = 10.0.40219.1

diff --git a/VB/WpfApplication.Net5.vbproj b/VB/WpfApplication.Net5.vbproj
@@ -1,3 +1,4 @@
+<?xml version="1.0" encoding="utf-8"?>
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <TargetFramework>net5.0-windows</TargetFramework>
@@ -12,6 +13,10 @@
     <Platforms>x86;AnyCPU</Platforms>
     <CopyLocalLockFileAssemblies>false</CopyLocalLockFileAssemblies>
     <DefaultItemExcludes>obj*/**</DefaultItemExcludes>
+    <OptionExplicit>On</OptionExplicit>
+    <OptionCompare>Binary</OptionCompare>
+    <OptionStrict>Off</OptionStrict>
+    <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <ItemGroup>
     <AppDesigner Include="My Project\" />

diff --git a/VB/WpfApplication.sln b/VB/WpfApplication.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
 VisualStudioVersion = 12.0.30501.0
 MinimumVisualStudioVersion = 10.0.40219.1