add vb.net tests

FreeSql.Tests.VB/FreeSql.Tests.VB.vbproj

@@ -0,0 +1,23 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <RootNamespace>FreeSql.Tests.VB</RootNamespace>
+    <TargetFramework>netcoreapp3.1</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="16.2.0" />
+    <PackageReference Include="xunit" Version="2.4.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.4.0" />
+    <PackageReference Include="coverlet.collector" Version="1.0.1" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <ProjectReference Include="..\Extensions\FreeSql.Extensions.LazyLoading\FreeSql.Extensions.LazyLoading.csproj" />
+    <ProjectReference Include="..\FreeSql.DbContext\FreeSql.DbContext.csproj" />
+    <ProjectReference Include="..\Providers\FreeSql.Provider.SqlServer\FreeSql.Provider.SqlServer.csproj" />
+  </ItemGroup>
+
+</Project>

FreeSql.Tests.VB/UnitTest1.vb

@@ -0,0 +1,23 @@
+Imports System
+Imports Xunit
+
+Namespace FreeSql.Tests.VB
+    Public Class UnitTest1
+        <Fact>
+        Sub TestSub()
+
+            REM VB.net <20><><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD>
+            Dim List1 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Id = 100).ToList()
+            Dim List2 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Title = "xxx").ToList()
+            Dim List3 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Title <> "xxx").ToList()
+
+            Dim List4 = g.sqlserver.Select(Of Testvb).ToList(Function(a) New With {a, a.Id, a.Title})
+
+        End Sub
+    End Class
+End Namespace
+
+Class Testvb
+    Property Id As Integer
+    Property Title As String
+End Class

FreeSql.Tests.VB/g.vb

@@ -0,0 +1,18 @@
+Imports System.Threading
+
+Public Class g
+
+    Shared sqlserverLazy As Lazy(Of IFreeSql) = New Lazy(Of IFreeSql)(New Func(Of IFreeSql)(Function() New FreeSqlBuilder() _
+        .UseConnectionString(DataType.SqlServer, "Data Source=.;Integrated Security=True;Initial Catalog=freesqlTest;Pooling=true;Max Pool Size=3") _
+        .UseAutoSyncStructure(True) _
+        .UseMonitorCommand(Sub(cmd) Trace.WriteLine("\r\n线程" & Thread.CurrentThread.ManagedThreadId & ": " & cmd.CommandText)) _
+        .UseLazyLoading(True) _
+        .Build()))
+
+    Public Shared ReadOnly Property sqlserver As IFreeSql
+        Get
+            Return sqlserverLazy.Value
+        End Get
+    End Property
+
+End Class