Improve LinqToVB for some VB features (#100)

* LinqToVB - Support type conversion functions

* LinqToVB - Support VB String comparaison (Operators.CompareString)

* Imports Microsoft.VisualBasic in all genered files

* Minor code cleanup

EFCore.VisualBasic.Templates/templates/ef-templates/CodeTemplates/EFCore/DbContext.t4

@@ -27,7 +27,8 @@
     {
         "System",
         "System.Collections.Generic",
-        "Microsoft.EntityFrameworkCore"
+        "Microsoft.EntityFrameworkCore",
+        "Microsoft.VisualBasic"
     };
 
     var FullyQualifiedContextNamespace = code.FullyQualifiedNamespace(Options.RootNamespace, NamespaceHint);

EFCore.VisualBasic.Templates/templates/ef-templates/CodeTemplates/EFCore/EntityType.t4

@@ -31,7 +31,8 @@
     var importsList = new List<string>
     {
         "System",
-        "System.Collections.Generic"
+        "System.Collections.Generic",
+        "Microsoft.VisualBasic"
     };
 
     if (Options.UseDataAnnotations)

EFCore.VisualBasic/Design/EFCoreVisualBasicServices.vb

@@ -11,7 +11,6 @@ Namespace Design
         Implements IDesignTimeServices
 
         Public Sub ConfigureDesignTimeServices(services As IServiceCollection) Implements IDesignTimeServices.ConfigureDesignTimeServices
-
             With services
                 .AddSingleton(Of IVisualBasicHelper, VisualBasicHelper)()
                 .AddSingleton(Of IMigrationsCodeGenerator, VisualBasicMigrationsGenerator)()
@@ -21,7 +20,6 @@ Namespace Design
                 .AddSingleton(Of IVisualBasicRuntimeAnnotationCodeGenerator, VisualBasicRuntimeAnnotationCodeGenerator)
                 .AddSingleton(Of ICompiledModelCodeGenerator, VisualBasicRuntimeModelCodeGenerator)
             End With
-
         End Sub
     End Class
 End Namespace

EFCore.VisualBasic/Design/Internal/VisualBasicHelper.vb

@@ -509,26 +509,26 @@ Namespace Design.Internal
             Return ArrayLitetal(GetType(T), values, vertical)
         End Function
 
-        Private Function ArrayLitetal(Type As Type, values As IEnumerable, Optional vertical As Boolean = False) As String
+        Private Function ArrayLitetal(type As Type, values As IEnumerable, Optional vertical As Boolean = False) As String
             Dim builder As New IndentedStringBuilder
 
             Dim valuesList = values.Cast(Of Object)().ToList()
 
             If valuesList.Count = 0 Then
                 builder.
                     Append("New ").
-                    Append(Reference(Type)).
+                    Append(Reference(type)).
                     Append("() {}")
             Else
 
                 Dim byteArray As Boolean
                 Dim addingType As Boolean
 
-                If Type = GetType(Byte) Then
+                If type = GetType(Byte) Then
                     builder.Append("New Byte")
                     addingType = True
                     byteArray = True
-                ElseIf Type = GetType(Object) Then
+                ElseIf type = GetType(Object) Then
                     builder.Append("New Object")
                     addingType = True
                 End If

EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/CosmosVisualBasicRuntimeAnnotationCodeGenerator.vb

@@ -45,6 +45,5 @@ Namespace Design.AnnotationCodeGeneratorProvider
 
             MyBase.Generate(entityType, parameters)
         End Sub
-
     End Class
 End Namespace