27 lines
1.1 KiB
VB.net
27 lines
1.1 KiB
VB.net
Imports System.IO
|
|
Imports DigitalData.Modules.Logging
|
|
Public Class frmUserBasics
|
|
Private _Logger As Logger
|
|
Private _MyLogger As LogConfig
|
|
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
|
' Specify that the link was visited.
|
|
Me.LinkLabel1.LinkVisited = True
|
|
' Navigate to a URL.
|
|
System.Diagnostics.Process.Start("http://www.didalog.de/Support")
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Process.Start(_MyLogger.LogDirectory)
|
|
End Sub
|
|
|
|
Private Sub frmUserBasics_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Dim oUserAppdata = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\EDMI_Client_Suite\Log")
|
|
|
|
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, oUserAppdata)
|
|
_Logger = _MyLogger.GetLogger()
|
|
End Sub
|
|
End Class |