Change build 2.1 to 6.0

+ code cleanup

Author: lorcQc

EFCore.VisualBasic/Scaffolding/Internal/VisualBasicDbContextGenerator.vb

@@ -575,23 +575,21 @@ Namespace Scaffolding.Internal
                     Dim methodName As String = ""
 
                     Select Case valueGenerated
-                        Case = ValueGenerated.OnAdd
+                        Case ValueGenerated.OnAdd
                             methodName = NameOf(PropertyBuilder.ValueGeneratedOnAdd)
-                        Case = ValueGenerated.OnAddOrUpdate
+                        Case ValueGenerated.OnAddOrUpdate
                             methodName = If(prop.IsConcurrencyToken,
                                             NameOf(PropertyBuilder.IsRowVersion),
                                             NameOf(PropertyBuilder.ValueGeneratedOnAddOrUpdate))
-
-                        Case = ValueGenerated.OnUpdate
+                        Case ValueGenerated.OnUpdate
                             methodName = NameOf(PropertyBuilder.ValueGeneratedOnUpdate)
-                        Case = ValueGenerated.Never
+                        Case ValueGenerated.Never
                             methodName = NameOf(PropertyBuilder.ValueGeneratedNever)
                         Case Else
                             Throw New InvalidOperationException(DesignStrings.UnhandledEnumValue($"{NameOf(valueGenerated)}.{valueGenerated}"))
                     End Select
 
                     lines.Add($"{methodName}()")
-
                 End If
             End If
 

…uild/netstandard2.1/EFCoreVisualBasic.vb …lBasic/build/net6.0/EFCoreVisualBasic.vbEFCore.VisualBasic/build/netstandard2.1/EFCoreVisualBasic.vb renamed to EFCore.VisualBasic/build/net6.0/EFCoreVisualBasic.vb EFCore.VisualBasic/build/netstandard2.1/EFCoreVisualBasic.vb renamed to EFCore.VisualBasic/build/net6.0/EFCoreVisualBasic.vb

@@ -4,14 +4,9 @@
     <OutputType>Exe</OutputType>
     <TargetFramework>net6.0</TargetFramework>
     <IsPackable>False</IsPackable>
+    <OptionStrict>On</OptionStrict>
   </PropertyGroup>
-
-  <ItemGroup>
-    <Compile Remove="Scaffolding\**" />
-    <EmbeddedResource Remove="Scaffolding\**" />
-    <None Remove="Scaffolding\**" />
-  </ItemGroup>
-
+  
   <ItemGroup>
     <PackageReference Include="Microsoft.EntityFrameworkCore.Sqlite" Version="6.0.0-rtm.21474.9" />
     <PackageReference Include="Microsoft.EntityFrameworkCore.Tools" Version="6.0.0-rtm.21474.9">
@@ -29,7 +24,7 @@
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
   </ItemGroup>
-  
-  <Import Project="..\EFCore.VisualBasic\build\netstandard2.1\EntityFrameworkCore.VisualBasic.targets" />
+
+  <Import Project="..\EFCore.VisualBasic\build\net6.0\EntityFrameworkCore.VisualBasic.targets" />
 
 </Project>

…/EntityFrameworkCore.VisualBasic.targets …/EntityFrameworkCore.VisualBasic.targetsEFCore.VisualBasic/build/netstandard2.1/EntityFrameworkCore.VisualBasic.targets renamed to EFCore.VisualBasic/build/net6.0/EntityFrameworkCore.VisualBasic.targets EFCore.VisualBasic/build/netstandard2.1/EntityFrameworkCore.VisualBasic.targets renamed to EFCore.VisualBasic/build/net6.0/EntityFrameworkCore.VisualBasic.targets

@@ -2174,7 +2174,7 @@ End Namespace
 
             Protected Overrides Function GenerateDataAnnotation(entityType As IEntityType, annotation As IAnnotation) As AttributeCodeFragment
                 Select Case annotation.Name
-                    Case = "Custom:EntityAnnotation"
+                    Case "Custom:EntityAnnotation"
                         Return New AttributeCodeFragment(GetType(CustomEntityDataAnnotationAttribute),
                                                          TryCast(annotation.Value, String))
                     Case Else
@@ -2184,7 +2184,7 @@ End Namespace
 
             Protected Overrides Function GenerateDataAnnotation([property] As IProperty, annotation As IAnnotation) As AttributeCodeFragment
                 Select Case annotation.Name
-                    Case = "Custom:PropertyAnnotation"
+                    Case "Custom:PropertyAnnotation"
                         Return New AttributeCodeFragment(GetType(CustomPropertyDataAnnotationAttribute),
                                                          TryCast(annotation.Value, String))
                     Case Else