From 550041698f2728aa384c65875a88a0d52d9eff30 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 23 Aug 2018 15:02:00 +0200 Subject: [PATCH] jj: update test gui --- TestGUI/Form1.Designer.vb | 37 +++++++++++++++++++++++- TestGUI/Form1.vb | 61 +++++++++++++++++++++++++++++++++++++-- 2 files changed, 94 insertions(+), 4 deletions(-) diff --git a/TestGUI/Form1.Designer.vb b/TestGUI/Form1.Designer.vb index 95ad1e2f..80cb3831 100644 --- a/TestGUI/Form1.Designer.vb +++ b/TestGUI/Form1.Designer.vb @@ -40,6 +40,9 @@ Partial Class Form1 Me.Label5 = New System.Windows.Forms.Label() Me.Button5 = New System.Windows.Forms.Button() Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -55,7 +58,7 @@ Partial Class Form1 ' 'Button3 ' - Me.Button3.Location = New System.Drawing.Point(297, 12) + Me.Button3.Location = New System.Drawing.Point(556, 13) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(56, 21) Me.Button3.TabIndex = 2 @@ -199,11 +202,40 @@ Partial Class Form1 Me.ComboBox1.Size = New System.Drawing.Size(121, 21) Me.ComboBox1.TabIndex = 19 ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(362, 14) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(188, 21) + Me.TextBox1.TabIndex = 20 + Me.TextBox1.Text = "sdd-vmx02-aps01" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(286, 17) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(70, 13) + Me.Label6.TabIndex = 21 + Me.Label6.Text = "ServerName:" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(764, 11) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(229, 23) + Me.Button4.TabIndex = 22 + Me.Button4.Text = "Test Background Worker Logging" + Me.Button4.UseVisualStyleBackColor = True + ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1050, 487) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.ComboBox1) Me.Controls.Add(Me.Button5) Me.Controls.Add(Me.Label5) @@ -249,4 +281,7 @@ Partial Class Form1 Friend WithEvents Label5 As Label Friend WithEvents Button5 As Button Friend WithEvents ComboBox1 As ComboBox + Friend WithEvents TextBox1 As TextBox + Friend WithEvents Label6 As Label + Friend WithEvents Button4 As Button End Class diff --git a/TestGUI/Form1.vb b/TestGUI/Form1.vb index 0b05bffa..bb4030a5 100644 --- a/TestGUI/Form1.vb +++ b/TestGUI/Form1.vb @@ -1,12 +1,34 @@ Imports DigitalData.Modules.Windream Imports DigitalData.Modules.Logging +Imports System.ComponentModel Public Class Form1 Dim MyLogger As LogConfig + Shared Logger As NLog.Logger + Protected _windream As Windream + Protected _windream2 As Windream2 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - _windream = New Windream("W", True) - If _windream.LoggedInSession = True Then + Dim serverName As String = TextBox1.Text + + ' Windream.vb + '_windream = New Windream("W", True, False) + + ' Windream2.vb + Try + _windream2 = New ConnectionBuilder(MyLogger.LogFactory). + WithDriveLetter("W"). + WithSessionReconnect(). + With64BitSupport(). + WithServerName("sdd-vmx02-aps01"). + Connect() + Catch ex As Exception + Logger.Error(ex) + MsgBox("Login failed!") + Exit Sub + End Try + + If _windream2.LoggedInSession = True Then MsgBox("Session created") Else MsgBox("No session created") @@ -17,7 +39,20 @@ Public Class Form1 End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load - MyLogger = New LogConfig(LogConfig.PathType.AppData,) + MyLogger = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "MAIN") + Logger = MyLogger.LogFactory.GetCurrentClassLogger() + + + Dim MySecondLogger = New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "MAIN2") + Dim SecondLogger = MySecondLogger.LogFactory.GetCurrentClassLogger() + + Logger.Warn("WANRING!!!") + Logger.Info("INFO!!!") + Logger.Debug("DEBUG!!!") + + SecondLogger.Warn("WANRING!!!") + SecondLogger.Info("INFO!!!") + SecondLogger.Debug("DEBUG!!!") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles GetValue.Click @@ -86,4 +121,24 @@ Public Class Form1 ComboBox1.DroppedDown = True End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + Dim bw1 As New BackgroundWorker + Dim bw2 As New BackgroundWorker + + AddHandler bw1.DoWork, Sub() + Dim config1 As New LogConfig(LogConfig.PathType.CurrentDirectory, Nothing, "TEST1") + Dim logger As NLog.Logger = config1.LogFactory.GetCurrentClassLogger() + + logger.Warn("WANRING!!!") + logger.Info("INFO!!!") + logger.Debug("DEBUG!!!") + + Console.WriteLine("This is logger 1 calling!") + Console.WriteLine(config1.LogFile) + End Sub + + + bw1.RunWorkerAsync() + End Sub End Class