15 lines
329 B
VB.net
15 lines
329 B
VB.net
Public Class clsLog
|
|
Dim db As New clsDB
|
|
|
|
Public Enum Logtype
|
|
Information = 0
|
|
Wartning = 1
|
|
ApplError = 2
|
|
End Enum
|
|
|
|
Public Function Writelog(ByVal entry As String, ByVal Ltype As Logtype)
|
|
If Ltype >= My.Settings.LogLevel Then db.WriteLog(entry, Ltype)
|
|
|
|
End Function
|
|
End Class
|