MS Limilabs etc

This commit is contained in:
2021-10-22 15:24:49 +02:00
parent f2825b9d09
commit fb6f2558f2
449 changed files with 459298 additions and 427010 deletions

View File

@@ -0,0 +1,20 @@
Imports System.IO
Imports DigitalData.Modules.Logging
Public Class Form1
Private Logger As DigitalData.Modules.Logging.Logger
Private Shared MyLogger As LogConfig
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, My.Application.Info.CompanyName, My.Application.Info.ProductName)
Logger = MyLogger.GetLogger()
MyLogger.Debug = True
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in FormLoad")
End Try
End Sub
End Class