Base: Add BaseClass

Modules.Base/Base/Base.vbproj

@@ -65,6 +65,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="BaseClass.vb" />
     <Compile Include="Database\Enums.vb" />
     <Compile Include="IDB\Database.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
@@ -106,5 +107,11 @@
   <ItemGroup>
     <Content Include="README.txt" />
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\..\Modules.Logging\Logging.vbproj">
+      <Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
+      <Name>Logging</Name>
+    </ProjectReference>
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

Modules.Base/Base/BaseClass.vb

@@ -0,0 +1,13 @@
+Imports DigitalData.Modules.Logging
+
+Public Class BaseClass
+    Protected LogConfig As LogConfig
+    Protected Logger As Logger
+
+    Public Sub New(LogConfig As LogConfig)
+        Dim oClassName = Me.GetType().Name
+
+        Me.LogConfig = LogConfig
+        Me.Logger = LogConfig.GetLogger(oClassName)
+    End Sub
+End Class